Sunday, October 9, 2016

VBA Excel Pemula 23 : Pengenalan CheckBox Control Melalui UserForm

VBA Excel Pemula 23 : Pengenalan CeckBox Control - CheckBox Control digunakan untuk menentukan atau menunjukkan pilihan. Baik Mengaktifkan (centang) atau menonaktifkan (tidak centang). Ketika kita menggunakan lebih dari satu checkboxs, kita dapat memilih lebih dari satu kotak centang baik itu di Worksheet atau di UserForm. Anda dapat memilih beberapa kotak centang dalam kotak kelompok, semua tergantung kebutuhan aplikasi seberapa banyak perlu Cheksbox. Perhatikan gambar gif dibawah..!! 


Pengenalan CheckBox Control Melalui UserForm :
  • Buka Excel, buat data seperti terlihat pada gambar gif diatas, dan selanjutnya Pilih Tab Developer, klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol Alt+F11. Jangan lupa disave dengan format Enable Macro atau Binary
  • Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 23" dan tambahkan CheckBox1 dengan Caption "Validasi", CheckBox2 dengan Caption "CheckBox Tampil Kotak Pesan" dan CommandButton1 dengan Caption "Tambah CheckBox"
  • Klik kanan pada CheckBox1 dengan Caption "Validasi", Pilih View Code dan masukkan Kode berikut :
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Worksheets("Sheet1").Range("D3:D10").Value = "Valid" 'ceks
Else
Worksheets("Sheet1").Range("D3:D10").Value = "Tidak Valid" 'No ceks
End If
End Sub
  • Klik kanan pada CheckBox2 dengan Caption "CheckBox Tampil Kotak Pesan", Pilih View Code dan masukkan Kode berikut :
Private Sub CheckBox2_Click()
If UserForm1.CheckBox2.Value = True Then
MsgBox "Checkbox Telah Dipilih", vbInformation, "Checkbox"
Else
MsgBox "Checkbox Tidak Dipilih", vbInformation, "Checkbox"
End If
End Sub
  • Menambahkan CheckBox Dinamik Klik kanan pada CommandButton1 dengan Caption "Tambah CheckBox", Pilih View Code dan masukkan Kode berikut 
Private Sub CommandButton1_Click()
'Add Dynamic Checkbox and assign it to object 'Cbx'
Set Cbx = UserForm1.Controls.Add("Forms.CheckBox.1")
'Assign Checkbox Name
Cbx.Caption = "Checkbox2"
'Checkbox Position
Cbx.Left = 18
Cbx.Top = 70
End Sub
  • Selesai..!! Uji Aplikasinya. Bila penempatan kode dan rancangan userform sudah mengikuti dengan benar maka aplikasi akan berjalan sesuai dengan yang diharapkan.
Pilih CheckBox Atau Tidak Pilih ChekBox 
Pahami kode VBA berikut ini tentang nilai True dan False terhadap CheckBox. 


'Kode untuk Pilih CheckBox
CheckBox1.Value=True

'Kode untuk Tidak Memilih CheckBox
CheckBox1.Value=False

Peringatan Kotak Pesan CheckBox
Pahami Kode VBA berikut ini untuk menampilkan pesan jika CheckBox dipilih atau tidak dipilih

'Bila ChekBox1 bernilai True Maka Tampil Kota Pesan
If CheckBox1.Value = True Then
MsgBox “CheckBox has selected”
Else
'Bila ChekBox1  tidak dipilih Maka Tampil Kota Pesan
MsgBox “CheckBox has not selected”
End If


Download : Aplikasi Pemula 23

Demikian Posting VBA Excel Pemula 23 : Pengenalan CheckBox Control Melalui UserForm. Semoga dapat dikembangkan dan disesuaikan dengan kebutuhan aplikasi. Bagi anda yang memiliki kode modifikasi CheckBox  mohon bisa share di kolom komentar.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon