Halo sobat belajar office. Kali ini admin akan melanjutkan lagi pembahasan tentang membuat form Exce VBA. Pada artikel sebelumnya sudah belajar cara menambahkan text box dan command button. Pada kesempatan ini kita belajar cara menambahkan option button pada form Excel VBA.
Option button adalah merupakan tool box yang tersedia pada Excel VBA berupa tombol biasanya berbentuk bulatan yang digunakan untuk menentukan satu pilihan saja bagi penggunannya dari beberapa opsi yang telah ditentukan.
Untuk lebih jelasnya berikut ini contoh gambar option button
Langkah-langkah menambah option button pada form excel vba sebagai berikut :
- Karena artikel ini admin buat bersambung atau berseri, tujuannya supaya tidak terlalu banyak sehingga lebih mudah untuk dipahami, maka alakah baiknya sobat baca terlebih dahulu artikel sebelumnya yaitu Membuat Form Input Data Pada Excel VBA
- Pada form tersebut akan kita tambahkan option button untuk input data jenis kelamin (laki-laki dan perempuan)
- Selanjutnya kita tambahkan dua buah option button dengan propeties sebagi berikut
- Name : OptionButton 1, Caption : L
- Name : OptionButton2, Caption : P
- Selanjutnya masuk pada koding
Double klik pada form, ketikan koding dibawah ini untuk option button yang berwarna merah
Private Sub Add_Click()
Dim kosong As Long
Sheet2.Activate
kosong = WorksheetFunction.CountA(Range(“A:A”)) + 1
Cells(kosong, 1).Value = TextBox1.Value
Cells(kosong, 2).Value = TextBox2.Value
If OptionButton1.Value = True Then
Cells(kosong, 3).Value = “Laki-laki”
Else
If OptionButton2.Value = True Then
Cells(kosong, 3).Value = “Perempuan”
End If
End If
End Sub
Penjelasannya
If OptionButton1.Value = True Then
Cells(kosong, 3).Value = “Laki-laki”
Jika option button1 nilanya benar atau di pilih maka pada sheet2 akan muncul tulisan “Laki-laki”
Else
Sedangkan
If OptionButton2.Value = True Then
Cells(kosong, 3).Value = “Perempuan”
End If
Jika option button2 nilanya benar atau di pilih maka pada sheet2 akan muncul tulisan “Perempuan”
- Selanjutnya pada sheet2 kita tambahka kolom untuk input Jenis kelamin, seperti gambar dibawah ini
- Selanjutnya simpan dan kita uji coba input data, maka akan tampil seperti gambar dibawah ini
Ketika kita tekan tombol add maka data otomatis akan terinput pada sheet2
Untuk file yang sudah jadi bisa sobat downoad pada link dibawah ini, supaya lebih mudah untuk dipelajari
Demikian penjelasan tentang Menambahkan Option Button Pada Form Excel VBA
Pada Artikel selanjutnya akan dijelaskan cara menambahkan Combo Box Form Exel VBA
Terimaksih, semoga bermanfaat.