Cara Membuat Tombol ActiveX Controls untuk Menghitung Objek Kotak Centang yang Terpilih

Tip berikut ini akan menjelaskan contoh penggunaan tiga jenis alat kontrol ActiveX yaitu Label, Check Box, dan Command Button, yang mana ketika tombol CommandButton di-klik, maka akan melakukan penilaian terhadap objek yang tertempel pada worksheet, dalam contoh jika objeknya adalah CheckBox maka kode macro akan menentukan CheckBox manakah yang telah di pilih, dan sebagai hasil akhir dari prosedur maka akan dimunculkan suatu kotak pesan, yang melaporkan berapa banyak CheckBox yang dipilih.

Adapun hasil akhirnya seperti yang ditunjukkan pada Gambar1.

Gambar1

Silakan ikuti langkah demi langkah sebagai berikut:

Langkah Pertama: Merancang Form

Gambar2

1. Anda boleh menghilangkan garis-garis sel worksheet jika tidak diperlukan pada menu ribbon View > grup Show > Gridlines.

2. Buat label melalui menu ribbon Developer > grup Controls > Insert > ActiveX Controls > Label, kemudian letakan di atas worksheet dan beri judul pilihannya seperti pada contoh Gambar2.

3. Buat kotak centang melalui menu ribbon Developer > grup Controls > Insert > ActiveX Controls > Check Box.

4. Salin kotak centang tersebut sesuai dengan jumlah yang diinginkan dengan cara menekan tombol Ctrl pada keyboard sambil menyeret kotak tersebut ke bawah, lalu lepaskan mouse diikuti dengan melepas tombol Ctrl hingga kotak tersalin.

5. Ganti caption CheckBox1 sesuai dengan masing-masing nama pilihannya.

6. Buat tombol melalui menu ribbon Developer > grup Controls > Insert > ActiveX Controls > Command Button lalu ganti captionnya misalnnya menjadi 'Lanjutkan'.

Langkah Kedua: Menyusun Kode

1. Dobel-klik tombol 'Lanjutkan' untuk memunculkan module VBE.

2. Tepat di bawah Private Sub CommandButton1_Click() tentukan variabel jenis data Integer untuk menghitung tanda centang dan variabel berjenis data objek untuk mengenali jenis alat kontrol ActiveX (dalam contoh Check Box atau kotak centang) yang dipilih:

Dim h As Integer, x As OLEObject

3. Tetapkan variabel String untuk mencatat caption yang dipilih di kotak centang:

Dim s As String

4. Mulai dengan mengosongkan nilai variabel Integer dan String:

h = 0
s = ""
For Each x In ActiveSheet.OLEObjects
If TypeName(x.Object) = "CheckBox" Then
If x.Object.Value = True Then
h = h + 1
s = s & x.Object.Caption & Chr(10)
End If
End If
Next x
If h = 0 Then

5. Umumkan hasilnya:

MsgBox "Tidak ada kotak yang dipilih.", , "Silakan coba lagi!"
Else
MsgBox "Anda telah memilih " & h & " pilihan:" & vbCrLf & vbCrLf & s, , "Inilah yang Anda pilih:"
End If

6. Kode lengkapnya sebagai berikut:

Private Sub CommandButton1_Click()
Dim h As Integer, x As OLEObject
Dim s As String
h = 0
s = ""
For Each x In ActiveSheet.OLEObjects
If TypeName(x.Object) = "CheckBox" Then
If x.Object.Value = True Then
h = h + 1
s = s & x.Object.Caption & Chr(10)
End If
End If
Next x
If h = 0 Then
MsgBox "Tidak ada kotak yang dipilih.", , "Silakan coba lagi!"
Else
MsgBox "Anda telah memilih " & h & " pilihan:" & vbCrLf & vbCrLf & s, , "Inilah yang Anda pilih:"
End If
End Sub

7. Tekan Alt+Q untuk kembali ke worksheet

8. Macro Anda sekarang siap diuji coba, pastikan Design Mode tidak diaktifkan pada menu ribbon Developer > grup Controls, setelah itu silakan Anda pilih kotak centang yang telah Anda buat di worksheet lalu klik tombol Lanjutkan.

Demikian cara merancang form dengan menggunakan alat kontrol ActiveX yaitu tombol CommandButton dan CheckBox sebagai objeknya, semoga postingan ini bermanfaat.

Share :