Visi Della

Hai visitors kali ini kita akan membuat form dan terisi kedalam excel worksheet, otomatis data akan bertambah setiap inputnya untuk memudahkan pekerjaan dalam pengisian table apalagi kalau data sangat banyak. Bagaimana caranya? Mari simak!

Langkah pertama simpan excel kedalam bentuk excel macro-enabled workbook dengan cara klik save atau tekan CTRL+ALT+S lalu pilih excel macro-enabled workbook. Seperti berikut:

Langkah selanjutnya:

• Setelah itu buat lah table entry. Data apa saja yang akan diisikan dari form entry nantinya, misal 

KODE BARANG

NAMA BARANG

SATUAN

HARGA

buat dalam empat kolom dalam sheet yang aktif. \

Halo semua visitors, kali ini kita akan bahas apa itu macro bagaimana cara menjalankannya dan apa-apa saja fungsinya. Nah, mari semua liat penjelasan Della dibawah yaa...

*Bagaimana Cara Membuat Macro

-Langkah 1 kalian harus liat pada microsoft office kalian, ada tidak GRUP DEVELOPER disebelah view, seperti ini:

Jika tidak maka kalian harus mengaturnya terlebih dahulu. Caranya seperti berikut:
1. Klik file pada sebelah kiri atas
2. Lalu pilih Options letaknya paling bawah
3. Maka akan muncul jendela baru dan pilih CUSTOMIZE RIBBON dan pada sebelah kanan ada tulisan main tabs
4. Temukan tab DEVELOPER lalu klik ceklist pada kolom yang belum terceklist disebelah kiri tulisan Developer, seperti ini:


Jika tab Developer sudah muncul maka sekarang kalian akan menjalankan macro.
Dengan langkah seperti berikut:
1. Klik Tab Developer lalu pilih macros
2. Setelah itu beri nama macro tanpa spasi dan klik create

3. Lalu pilih Insert dan pilih lagi Userforms
4. Maka disitu banyak sekali Controls didalam Toolbox, seperti label, textbox, combobox, list box, checkbox, option button, toggle button dsb.
dan seperti ini bentuknya

Lalu kalian dapat membuat form entri dengan tampilan seperti yang diinginkan menggunakan Controls tersebut dalam Toolbox yang letaknya disebelah kiri Userform yang dibuka, dan jangan lupa untuk save macro setelah dibuat, misal seperti ini:

Dapat dilihat, saya mengunakan combo box untuk nama lengkap, textbox untuk pengetikan nama dan tanggalnya, sedangkan untuk menginsert picture background langkah-langkahnya adalah sebagai berikut:
1.Klik pada Userformnya dan dibawah sebelah kiri pada Properties cari tulisan Picture
2. Jika sudah lihat list Picture klik dan lalu kolom kanannya akan terlihat tiga titik kecil
3. Klik titik-titik tersebut
4. Lalu pilih gambar yang kan dimasukkan

Untuk mengubah Cell A1 menjadi berwarna yang berubah-ubah saat diganti nomer dari 1-6 dan membuat cell A2 menyebutkan angka terbilang dalam hurufnya, seperti berikut ini:

Pada tab developer lalu klik ribbon MACROS disebelah kiri, lalu ketik nama macro tanpa spasi dan klik create, seperti itu


Lalu pada macro tersebut klik Insert, klik Userforms lalu klik pada sheet yang aktif worksheet dan masukkan koding dibawah ini pada kolomnya:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = 1 Then
   Range("B1") = "Satu"
   Range("A1").Interior.ColorIndex = 6
ElseIf Range("A1") = 2 Then
   Range("B1") = "Dua"
   Range("A1").Interior.ColorIndex = 4
ElseIf Range("A1") = 3 Then
   Range("B1") = "Tiga"
   Range("A1").Interior.ColorIndex = 3
ElseIf Range("A1") = 4 Then
   Range("B1") = "Empat"
   Range("A1").Interior.ColorIndex = 7
ElseIf Range("A1") = 5 Then
   Range("B1") = "Lima"
   Range("A1").Interior.ColorIndex = 9
ElseIf Range("A1") = 6 Then
   Range("B1") = "Enam"
   Range("A1").Interior.ColorIndex = 8
End If
End Sub


*catatan 6 indeks warna kuning, 4 indeks warna hijau, 3 indeks warna merah bata, 7 indeks warna  ungu, 9 indeks warna merah marun, dan 8 indeks warna turquoise.

JANGAN LUPA UNTUK SAVE MACRO

Setelah selesai memasukkan koding, maka tekan F5 atau klik run macro pada worksheet aktif

Lalu setelah kalian ganti-ganti angkanya, maka akan berubah-ubah juga hasilnya pada cell B1 dan warna pada cell A1

1. Buat tabel dulu, lalu isikan data

Klik Chart lalu
Klik Insert X Y (Scatters) dan pilih scatter with smoth lines and markers untuk membuatnya seperti grafik lalu pilih style 6 atau pilih style sesuai selera

Klik Chart lalu
Klik Insert Combo Charts dan pilih combo combination untuk membuatnya seperti grafik batang lalu pilih style 2 atau pilih style sesuai selera




Untuk pivot, blog seluruh tablenya dan pilih tab Insert lalu pilih pivot chart selanjutnya kan terbuka worksheet baru dan klik semua elemen fields yang ingin ditampilkan pada pivot

Selain itu kalian juga dapat mengubah ubah format grafik dengan delete, edit dsb

SELAMAT MENCOBA :)

Langkah 1 Buat sebuah dokumen baru kemudian aktifkan VBA editor dengan menekan kombinasi keyboar ALT+F11 kemudian cari menu Insert dan klik UserForm

Langkah 2 Untuk langkah kedua setelah menyisipkan sebuah form baru maka kita edit ukuran form nya sesuai dengan kebutuhan kemudian buat sebuah label dengan menggunakan Toolbox dan letakkan pada Form kemudian ganti Caption menjadi NIS 

Langkah 3 Setelah label NIS terbuat silakan buat label berikutnya sesuai dengan Field diatas dan caranya sama dengan tahap 2 hingga menjadi seperi tampilan berikut. Jangan lupa ganti properties Caption sesuai dengan fieldnya 

Langkah 4 Untuk langkah ke-4 Anda harus membuat beberapa TextBox sebagai syarat untuk pengisian data. Bagi yang belum tahu cara membuat textbox caranya adalah klik TextBox pada Toolbox kemudan drag ke UserForm misalnya untuk membuat textbox nis seperti berikut jangan lupa ganti properties Name menjadi "TXTNis" untuk mendefinisikan supaya tidak lupa dalam membuat kode program VBA nya. Dari langkah ke-4 tersebut silakan buat beberapa textbox
 Anda bisa juga menggunakan teknik copy paste. dan silakan ganti propertis name menjadi seperti berikut ini. Textbox1 ganti dengan TXTNis Textbox2 ganti dengan TXTNama Textbox3 ganti dengan TXTTempatLahir Textbox4 ganti dengan TXTTglLahir Textbox5 ganti dengan TXTALamat Textbox6 ganti dengan TXTNISN Textbox7 ganti dengan TXTHP Textbox8 ganti dengan TXTSKHUN Textbox9 ganti dengan TXTIjasah Textbox10 ganti dengan TXTNamaIbu Textbox11 ganti dengan TXTThnLahirIbu Textbox12 ganti dengan TXTPekIbu Textbox13 ganti dengan TXTNamaAyah Textbox14 ganti dengan TXTThnLahirAyah Textbox15 ganti dengan TXTPekAyah Textbox16 ganti dengan TXTPengAyah Textbox17 ganti dengan TXTAlamatOrtu Untuk ComboBox silakan buat dengan menggunakan Toolbox dan ganti properties name nya ComboBox1 ganti dengan CBO CBOKelamin ComboBox2 ganti dengan CBO CBOPendidikanIbu ComboBox3 ganti dengan CBO CBOPendidikanAyah

Langkah 5 
Buat 3 buah tombol dengan menggunakan CommandButton seperti diatas yang pertama tombol "Simpan" ke-2 tombol "Cari Data Siswa" dan yang ke-3 "Close" untuk masing-masing tombol silakan ganti properties name menjadi "TBLSimpan", "TBLCariData", CMDClose" Untuk yang belum tahu cara membuat CommandButton caranya hampir sama dengan membuat texbox tetapi disini toolbox yang dipake adalah CommandButton. Jadi kalo untuk membuat tiga buah tombol maka kita harus membuat 3 buah CommandButton. 

Langkah 6 
Langkah berikutnya adalah langkah membuat script VBA. 
Dan yang pertama silakan View Code kemudian tuliskan script berikut untuk membuat initial pada UserForm Private Sub 
UserForm_Initialize() With CBOKelamin .AddItem "Laki-Laki" .AddItem "Perempuan" End With With CBOPendidikanIbu .AddItem "Tidak Sekolah" .AddItem "SD" .AddItem "SMP" .AddItem "SMA" .AddItem "D1" .AddItem "D2" .AddItem "D3" .AddItem "S1" .AddItem "S2" .AddItem "S3" End With With CBOPendidikanAyah .AddItem "Tidak Sekolah" .AddItem "SD" .AddItem "SMP" .AddItem "SMA" .AddItem "D1" .AddItem "D2" .AddItem "D3" .AddItem "S1" .AddItem "S2" .AddItem "S3" End With End Sub 

Langkah 7 
Buat sebuah script VBA untuk simpan data siswa silakan ketikkan script VBA nya di bawah ini:
Private Sub TBLSimpan_Click() Dim iRow As Long Dim Ws As Worksheet Set Ws = Worksheets("databasesiswa") 'menemukan baris kosong pada database siswa iRow = Ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row 'check untuk sebuah nis If Trim(Me.TXTNis.Value) = "" Then Me.TXTNis.SetFocus MsgBox "Masukan NIS terlebih dahulu Kang.." Exit Sub End If 'copy data ke database siswa Ws.Cells(iRow, 1).Value = Range("X1").Value Ws.Cells(iRow, 2).Value = Me.TXTNis.Value Ws.Cells(iRow, 3).Value = Me.TXTNama.Value Ws.Cells(iRow, 4).Value = Me.TXTTempatLahir.Value Ws.Cells(iRow, 5).Value = Me.TXTTglLahir.Value Ws.Cells(iRow, 6).Value = Me.CBOKelamin.Value Ws.Cells(iRow, 7).Value = Me.TXTAlamat.Value Ws.Cells(iRow, 8).Value = Me.TXTNISN.Value Ws.Cells(iRow, 9).Value = Me.TXTHP.Value Ws.Cells(iRow, 10).Value = Me.TXTSKHUN.Value Ws.Cells(iRow, 11).Value = Me.TXTIjasah.Value Ws.Cells(iRow, 12).Value = Me.TXTNamaIbu.Value Ws.Cells(iRow, 13).Value = Me.TXTThnLahirIbu.Value Ws.Cells(iRow, 14).Value = Me.TXTPekIbu.Value Ws.Cells(iRow, 15).Value = Me.CBOPendidikanIbu.Value Ws.Cells(iRow, 16).Value = Me.TXTNamaAyah.Value Ws.Cells(iRow, 17).Value = Me.TXTThnAyah.Value Ws.Cells(iRow, 18).Value = Me.TXTPekAyah.Value Ws.Cells(iRow, 19).Value = Me.CBOPendidikanAyah.Value Ws.Cells(iRow, 20).Value = Me.TXTPengAyah.Value Ws.Cells(iRow, 21).Value = Me.TXTAlamat.Value 'clear data siswa Me.TXTNis.Value = "" Me.TXTNama.Value = "" Me.TXTTempatLahir.Value = "" Me.TXTTglLahir.Value = "" Me.CBOKelamin.Value = "" Me.TXTAlamat.Value = "" Me.TXTNISN.Value = "" Me.TXTHP.Value = "" Me.TXTSKHUN.Value = "" Me.TXTIjasah.Value = "" Me.TXTNamaIbu.Value = "" Me.TXTThnLahirIbu.Value = "" Me.TXTPekIbu.Value = "" Me.CBOPendidikanIbu.Value = "" Me.TXTNamaAyah.Value = "" Me.TXTThnAyah.Value = "" Me.TXTPekAyah.Value = "" Me.CBOPendidikanAyah.Value = "" Me.TXTPengAyah.Value = "" Me.TXTAlamatOrtu.Value = "" Me.TXTNis.SetFocus 'Simpan data Application.ActiveWorkbook.Save
End Sub 

Langkah 8 Membuat perintah CLOSE silakan ketikkan script nya dibawah ini dengan cara double klik tombol CLOSE Private Sub CMDClose_Click() Unload Me End Sub 

Langkah 9 Membuat sebuah validasi data untuk textbox yang berisi data angka agar data yang diinput hanya berupa data angka buka hurfu. Apabila data yang dimasukan pada textbox bukan berupa data angka maka secara otomatis akan menampilkan pesan error dan ini dia script nya Private Sub HanyaAngka() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Maaf, Masukan data angka saja" .Value = vbNullString End If End With End If End Sub 

Tahap 10 Anda bisa menggunakan variasi apabila ketika textbox aktif atau dipilih maka warna akan berubah. Ini dia script nya. Script ini juga akan menghasilkan perintah error yang merupakan pemanggilan prosedur dari tahap 9 diatas. Private Sub TXTNISN_Change() HanyaAngka End Sub Private Sub TXTHP_Change() HanyaAngka End Sub Private Sub txtnis_Enter() TXTNis.BackColor = &H80000005 End Sub Private Sub txtnis_Exit(ByVal Cancel As MSForms.ReturnBoolean) HanyaAngka TXTNis.BackColor = &HE0E0E0 End Sub Private Sub txtnama_enter() TXTNama.BackColor = &H80000005 End Sub Private Sub txtnama_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTNama.BackColor = &HE0E0E0 End Sub Private Sub txttempatlahir_enter() TXTTempatLahir.BackColor = &H80000005 End Sub Private Sub txttempatlahir_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTTempatLahir.BackColor = &HE0E0E0 End Sub Private Sub txttgllahir_enter() TXTTglLahir.BackColor = &H80000005 End Sub Private Sub txttgllahir_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTTglLahir.BackColor = &HE0E0E0 End Sub Private Sub txtalamat_Enter() TXTAlamat.BackColor = &H80000005 End Sub Private Sub txtalamat_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTAlamat.BackColor = &HE0E0E0 End Sub Private Sub cbokelamin_Enter() CBOKelamin.BackColor = &H80000005 End Sub Private Sub cbokelamin_Exit(ByVal Cancel As MSForms.ReturnBoolean) CBOKelamin.BackColor = &HE0E0E0 End Sub Private Sub txtnisn_Enter() TXTNISN.BackColor = &H80000005 End Sub Private Sub txtnisn_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTNISN.BackColor = &HE0E0E0 End Sub Private Sub txthp_Enter() TXTHP.BackColor = &H80000005 End Sub Private Sub txthp_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTHP.BackColor = &HE0E0E0 End Sub Private Sub txtskhun_Enter() TXTSKHUN.BackColor = &H80000005 End Sub Private Sub txtskhun_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTSKHUN.BackColor = &HE0E0E0 End Sub Private Sub txtijasah_Enter() TXTIjasah.BackColor = &H80000005 End Sub Private Sub txtijasah_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTIjasah.BackColor = &HE0E0E0 End Sub Private Sub txtnamaibu_Enter() TXTNamaIbu.BackColor = &H80000005 End Sub Private Sub txtnamaibu_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTNamaIbu.BackColor = &HE0E0E0 End Sub Private Sub txtthnlahiribu_Enter() TXTThnLahirIbu.BackColor = &H80000005 End Sub Private Sub txtthnlahiribu_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTThnLahirIbu.BackColor = &HE0E0E0 End Sub Private Sub txtpekibu_Enter() TXTPekIbu.BackColor = &H80000005 End Sub Private Sub txtpekibu_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTPekIbu.BackColor = &HE0E0E0 End Sub Private Sub cbopendidikanibu_Enter() CBOPendidikanIbu.BackColor = &H80000005 End Sub Private Sub cbopendidikanibu_Exit(ByVal Cancel As MSForms.ReturnBoolean) CBOPendidikanIbu.BackColor = &HE0E0E0 End Sub Private Sub txtnamaayah_Enter() TXTNamaAyah.BackColor = &H80000005 End Sub Private Sub txtnamaayah_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTNamaAyah.BackColor = &HE0E0E0 End Sub Private Sub txtthnayah_Enter() TXTThnAyah.BackColor = &H80000005 End Sub Private Sub txtthnayah_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTThnAyah.BackColor = &HE0E0E0 End Sub Private Sub txtpekayah_Enter() TXTPekAyah.BackColor = &H80000005 End Sub Private Sub txtpekayah_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTPekAyah.BackColor = &HE0E0E0 End Sub Private Sub cbopendidikanayah_Enter() CBOPendidikanAyah.BackColor = &H80000005 End Sub Private Sub cbopendidikanayah_Exit(ByVal Cancel As MSForms.ReturnBoolean) CBOPendidikanAyah.BackColor = &HE0E0E0 End Sub Private Sub txtpengayah_Enter() TXTPengAyah.BackColor = &H80000005 End Sub Private Sub txtpengayah_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTPengAyah.BackColor = &HE0E0E0 End Sub Private Sub txtalamatortu_Enter() TXTAlamatOrtu.BackColor = &H80000005 End Sub Private Sub txtalamatortu_Exit(ByVal Cancel As MSForms.ReturnBoolean) TXTAlamatOrtu.BackColor = &HE0E0E0 End Sub 

Tahap terakhir silakan buat sebuah Worksheet untuk menyimpan database yang telah disimpan apabila menekan tombol simpan data maka data siswa akan tersimpan pada sheet yang telah ditentukan misalnya saya ganti sheet untuk menyimpan database dengan nama "DatabaseSiswa" Selesai. Allahamdulillah, tahapan membuat sebuah userform untuk input data siswa sudah berhasil dibuat dan untuk menjalankan nya silakan coba klik RUN Selamat mencoba semoga berhasil. Update : Membuat Script Pencarian data siswa silakan lihat Script Cari Data Siswa dengan CommandButton