Forum Q & A Forum diskusi tanya Jawab

Menambahkan Option Button Pada Form Excel VBA

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

Option Button Excel VBA

Option Button Excel VBA

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
sheet2

MS Excel sheet2

  • Selanjutnya simpan dan kita uji coba input data, maka akan tampil seperti gambar dibawah ini
Form Dengan Option Button

Form Dengan Option Button

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

Menambahkan Option Button Pada Form Excel VBA

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.

Tinggalkan Balasan