Hai sahabat Excel-Id, Anda tentu pernah melihat aplikasi yang dibentuk dengan VBA kan? nah biasanya untuk pilihan para desainer atau programmer menciptakan sebuah pilihan dengan memakai Option Button atau lebih dikenal dengan Radio Button. Jika Anda memperlihatkan sebuah pilihan dalam desain aplikasi berbasis VBA tentunya mempunyai nilai tertentu contohnya kalau tidak 1 maka 2. Pilihan dengan memakai RadioButton biasanya untuk jenis kelamin yang umum dipakai namun ada juga yang memakai combobox.
Kali ini aku akan mencoba bagaimana cara menciptakan sebuah RadioButton atau OptionButton pada UserForm sebagai kontrol pilihan untuk menciptakan aplikasi. Sebelum aku memperlihatkan bahan yang mungkin Anda cari aku akan mencoba memperlihatkan sebuah pola OptionButton atau RadioButton yang dibentuk pada UserForm. Berikut tampilannya
Oke, dari gambar diatas merupakan sebuah UserForm dimana ada 2 pilihan yaitu OptionButton1 dan OptionButton2 artinya user akan diarahkan untuk menentukan apakah mau pilih OptionButton1 atau pilih OptionButton2. Logikanya apabila user pilih Optionbutton1 maka di range A1 akan terisi angka 1 sedangkan apabila user menentukan OptionButton2 maka pada cell A1 akan terisi angka 2. Untuk sanggup menciptakan hal ibarat tersebut diatas Anda harus menambahkan coding dengan procedure klik. Oke pribadi saja berikut codingnya
Simak:
Contoh OptionButton untuk Memilih Worksheet
Procedure dikala OptionButton1 di klik
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Cells(1, 1).Value = 1
OptionButton2.Value = False
End If
End Sub
Procedure dikala OptionButton2 di klik
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Cells(1, 1).Value = 2
OptionButton1.Value = False
End If
End Sub Artinya:
Jika OptionButton bernilai TRUE atau dipilih maka tambahkan cell A1 pada istilah disini aku memakai baris, kolom artinya kalau alamat cell A1 maka sanggup dituliskan (1,1) dan OptionButton2 harus bernilai FALSE atau tidak dipilih begitu juga sebaliknya.
Baca:
OptionButton untuk Jenis Kelamin memakai ActiveX Control
Bagaimana kalau dikala userform aktif dan nilai di cell A1 bernilai 1 maka OptionButton1 otomatis terpilih dan apabila cell A1 bernilai 2 maka OptionButton2 yang terpilih? Tentunya kita harus menambahkan coding untuk mengantisipasi persoalan diatas.
Anda sanggup menambahkan mekanisme UserForm_Initialize sebagai berikut
Private Sub UserForm_Initialize()
If Cells(1, 1).Value = 1 Then
OptionButton1.Value = True
Else
OptionButton2.Value = True
End If
End Sub Selesai.
Silakan Anda jalankan coding yang telah dibentuk diatas dan perhatikan hasilnya, apabila Anda menentukan optionButton1 maka nilai pada cell A1 yakni 1 sedangkan apabila Anda menentukan OptionButton2 pada userform tersebut maka nilai pada cell A1 yakni 2
Silakan Kembangkan pola berguru cara menciptakan OptionButton ini untuk pilihan jenis kelamin maka Anda harus merubah nama OptionButton1 menjadi "Laki-Laki" dan OptionButton2 menjadi "Perempuan" caranya Anda sanggup merubah atau menset pada propertiesnya.
Selamat mencoba. Sumber http://www.excel-id.com/