Private Sub CheckBox1_Click()
   If CheckBox1.Value = True Then
       Range("D2").Value = 1
   Else
       Range("D2").Value = 0
   End If
End SubArtikel Menarik Lainnya
5. Option Buttons
Baik Check Box maupun Option Buttons digunakan untuk memberikan opsi kepada pengguna, tetapi ada perbedaan penting antara keduanya:
| Fitur | Check Box | Option Buttons |
| Fungsi | Memungkinkan pengguna memilih lebih dari satu opsi | Hanya satu opsi yang dapat dipilih dalam satu grup |
| Tipe Input | Nilai biner (True/False) | Pilihan eksklusif (hanya satu opsi aktif dalam satu grup) |
| Penggunaan | Digunakan untuk mengaktifkan/mematikan fitur | Digunakan untuk memilih salah satu dari beberapa opsi |
| Contoh Penggunaan | Memilih fitur tambahan dalam formulir | Memilih jenis kelamin atau metode pembayaran |
Jika pengguna perlu memilih lebih dari satu opsi, gunakan Check Box. Namun, jika hanya boleh memilih satu dari beberapa opsi, gunakan Option Buttons.
Langkah-Langkah Membuat Tombol Pilihan di Excel VBA
- Buka Excel dan aktifkan Tab Developer.
- Pilih Developer > Insert > Option Button (ActiveX Controls).
- Klik dan tarik untuk menempatkan dua Option Buttons di lembar kerja.
- Klik kanan pada setiap Option Button, lalu pilih Properties.
- Ganti nama (Name) menjadi OptionButton1 dan OptionButton2.
- Ubah Caption menjadi “Laki-laki” untuk OptionButton1 dan “Perempuan” untuk OptionButton2.
- Untuk mengelompokkan kedua tombol, letakkan dalam Frame (ActiveX Controls) atau pada UserForm.
Contoh Kode VBA untuk Menghubungkan Tombol Pilihan dengan Sel
Kode berikut akan menyimpan pilihan dari Option Button ke dalam sel D3 sesuai dengan pilihan pengguna:
If OptionButton1.Value = True Then Range("D3").Value = "Male"
If OptionButton2.Value = True Then Range("D3").Value = "Female"Untuk memastikan kode ini berjalan otomatis saat pengguna mengklik tombol, gunakan event VBA berikut:
Private Sub OptionButton1_Click()
   Range("D3").Value = "Male"
End Sub
Private Sub OptionButton2_Click()
   Range("D3").Value = "Female"
End SubDengan kode ini, sel D3 akan diperbarui secara otomatis sesuai dengan pilihan yang diambil oleh pengguna.
6. Spin Button
Spin Button adalah kontrol yang digunakan untuk meningkatkan atau menurunkan nilai angka dalam sebuah sel secara bertahap. Ini sangat berguna untuk input angka, seperti pengaturan jumlah barang, tingkat suku bunga, atau parameter lainnya yang memiliki batasan nilai.
Cara Mengatur Nilai Maksimum dan Minimum dalam Spin Button
- Buka Tab Developer di Excel.
- Klik Insert > Spin Button (ActiveX Controls).
- Klik dan seret untuk menempatkan Spin Button di lembar kerja.
- Klik kanan pada Spin Button, lalu pilih Properties.
Contoh Kode VBA untuk Mengatur Spin Button
Gunakan kode berikut untuk mengatur batas nilai Spin Button:
SpinButton1.Max = 100
SpinButton1.Min = 0Untuk menghubungkan Spin Button dengan sel di Excel, gunakan kode berikut:
Private Sub SpinButton1_Change()
   Range("C3").Value = SpinButton1.Value
End SubKode ini akan memastikan bahwa setiap kali pengguna menekan tombol Spin Button, nilai di sel C3 akan berubah sesuai dengan nilai yang ditetapkan dalam kontrol.