Menjalankan Form dan Mengisi Kode VBA
Menambahkan dan Menyusun Layout Form1. Jalankan aplikasi Microsoft Excel 2010.
2. Buat dan simpan worksheet baru dengan nama userform-excel-2010.xlsm.
3. Tekan CTRL+F11 untuk membuka Visual Basic Editor. Jika penekanan tombol tersebut tidak berhasil, klik tab menu Developer dan pilih Visual Basic
4. Pada bagian jendela Project Explorer klik kanan pada node VBA Project dan pilih menu Insertdiikuti UserForm.
5. Akan muncul satu form dengan nama UserForm1. Muncul juga satu dialog Toolbox dimana kita bisa mengambil berbagai kontrol untuk diletakkan pada form, dan terakhir ada panel Propertiesyang bisa gunakan untuk melakukan konfigurasi form maupun kontrol
6. Pada Properties, rubah nama dari UserForm1 menjadi FormEntri. Pada caption, rubah teks UserForm1 menjadi Form Entri. 7. Pada Toolbox, klik kontrol Label.
8. Klik salah satu area pada form Anda dan atur penempatan label yang akan segera ditambahkan ke form tersebut. Hasilnya kira-kira terlihat terlihat seperti pada gambar berikut.
9. Pada Properties, namakan label tersebut dengan mengisi teks pada bagian Name dengan lbl Nama dan pada Caption isi dengan teks Nama.
10. Klik area pada form untuk memunculkan kembali Toolbox. Tambahkan kontrol Textbox pada form dengan cara seperti pada langkah 7 dan 8.
11. Pada Properties, namakan textbox tersebut dengan mengisi txtNama pada bagian Name.
12. Klik area pada form untuk memunculkan kembali Toolbox.
13. Tambahkan dua kontrol command button pada form. Isi Name untuk masing-masing tersebut dengan btnHapus dan btnTambah. Caption untuk btnHapus diisi dengan teks Hapus, dan untuk btnTambah dengan teks Tambah.
14. Tampilan form akhir Anda akan terlihat seperti pada gambar screenshot berikut ini.
15. Simpan worksheet Anda dengan menekan tombol CTRL+S.
Menambahkan Kode VBA
1. Klik dua kali pada tombol dengan caption Tambah sehingga memunculkan editor dengan teks berikut.
2. Tambahkan kode berikut ke dalam fungsi btnTambah_Click().
Dim rangeSheet1 As Range For i = 1 To Sheet1.Rows.Count Set rangeSheet1 = Range(“A” & i) If Len(rangeSheet1.Value) = 0 Then rangeSheet1.Value = txtNama.Text Exit For End If Next i
3. Klik dua kali pada tombol dengan caption Hapus dan tambahkan kode berikut ke dalam fungsibtnHapus_Click().
Dim rangeSheet1 As Range btnTambah.Enabled = False For i = 1 To Sheet1.Rows.Count Set rangeSheet1 = Range("A" & i) If Len(rangeSheet1.Value) > 0 Then If rangeSheet1.Value = txtNama.Text Then rangeSheet1.EntireRow.Delete btnTambah.Enabled = True btnTambah.SetFocus Exit For End If Else Exit For End If Next i
4. Simpan worksheet Anda dengan menekan tombol CTRL+S.
Menambahkan Tombol pada Worksheet
1. Kembali ke worksheet Anda, tambahkan button control menggunakan menu Insert yang terdapat pada tab Developer.
2. Pada dialog Assign Macro yang muncul. Klik tombol New.
3. Pada editor yang muncul tambahkan kode berikut pada Button1_Click().
FormEntri.Show
4. Pada editor yang muncul tambahkan kode berikut pada Button1_Click().Kembali ke worksheet, klik kanan pada tombol tersebut dan pilih Format Control. Klik tab Properties, dan pilih Don’t move or size with cells. Tekan tombol OK.
5. Hasil akhir worksheet Anda akan terlihat kira-kira seperti pada screenshot berikut.
6. Simpan worksheet Anda dengan menekan tombol CTRL+S.
Menjalankan Form
1. Kembali ke worksheet Anda, klik tombol Button 1.
2. Pada textbox, masukkan teks Coba dan klik tombol Tambah sebanyak 3 kali. Kemudian ganti isi textbox dengan BelajarExcel, dan klik tombol Tambah sebanyak 2 kali. Hasilnya akan terlihat seperti pada screenshot berikut.
3. Masih dengan entri teks yang sama, coba klik tombol Hapus. Terlihat bahwa baris pertama ditemukannya teks BelajarExcel yaitu baris ke 4 akan dihapus.
4. Cobalah ubah teks menjadi Coba, klik tombol Hapus sebanyak dua kali. Terlihat bahwa baris pertama dan kedua yang berisi teks Coba akan dihapus.
5. Selesai.
0 komentar: