» » » Belajar Membuat OptionButton dalam UserForm

Belajar Membuat OptionButton dalam UserForm

OptionButton merupakan pilihan dan biasanya hal ini digunakan untuk memilih beberapa jenis pilihan. Optionbutton yang dibuat dalam UserForm memudahkan user dalam mengolah data di Excel. Pilihan ini biasanya yang sering kita lihat adalah jenis kelamin, namun disini saya akan contohkan pilihan sebuah kota dengan menggunakan optionbutton.

Sebenarnya Optionbutton bisa Anda buat dengan bantuan ActiveXcontrol Anda bisa lihat tulisan saya untuk mempelajari optionbutton dengn model activeX


[25] Macro Excel | Cara Membuat Options Button ActiveX Control untuk Pilihan Jenis Kelamin dengan Script VBA
Baiklah kita langsung saja kedalam tutorialnya, pertama silakan buat dua buah Optionbutton kedalam UserForm.


Langkah berikutnya silakan ganti Caption pada properties untuk OptionButton1 dengan "Cirebon" dan untuk OptionButton2 dengan "Majalengka".


Langkah berikutnya dalah saatnya menuliskan listing programnya. Silakan double klik untuk optionbuton1 kemudian ketikkan script VBA dibawah ini

Private Sub OptionButton1_Click()
If OptionButton1.Value = "False" Then
    Cells(2, 2).Value = "Majalengka"
Else: Cells(2, 2).Value = "Cirebon"
End If
End Sub
Kemudian silakan double klik OptionButton2 dan ketikan listing program berikut ini untuk pilihan jika optionbutton2 dipilih

Private Sub OptionButton2_Click()
If OptionButton2.Value = "False" Then
    Cells(2, 2).Value = "Cirebon"
Else: Cells(2, 2).Value = "Majalengka"
End If
End Sub
Sampai disini sebenarnya sudah berakhir dan silakan jalankan program Anda kemudian silakan pilih salah satu dari optionbutton tersebut. Jika Anda memilih Cirebon maka pada cell B2 tertuliskan "Cirebon" namun apabila Anda memilih optionbutton yang kedua yaitu "Majalengka" maka pada cell B2 tertuliskan "Majalengka"



Bagaimana, mudah bukan? silakan dicoba semoga berhasil jika ada pertanyaan silakan komentar dibawah akan saya bahas lebih lanjut mengenai OptionButton dengan materi yang lain.

6 Responses to "Belajar Membuat OptionButton dalam UserForm"

  1. Bunita Bakery8 Februari 2016 pukul 19.42

    kalau mau meletakkannnya bukan di sheet1 tapi di sheet2 gmana gan. thanks sebelumnya.

    BalasHapus
  2. Bunita Bakery8 Februari 2016 pukul 19.45

    kalau mau meletakkannnya bukan di sheet1 tapi di sheet2 gmana gan. thanks sebelumnya.

    BalasHapus
    Balasan
    1. Yatna Supriyatna9 Februari 2016 pukul 08.08

      Coba begini :

      Private Sub OptionButton1_Click()
      If OptionButton1.Value = "False" Then
      Sheets("Sheet2").Cells(2, 2).Value = "Majalengka"
      Else: Sheets("Sheet2").Cells(2, 2).Value = "Cirebon"
      End If
      End Sub

      Private Sub OptionButton2_Click()
      If OptionButton2.Value = "False" Then
      Sheets("Sheet2").Cells(2, 2).Value = "Cirebon"
      Else: Sheets("Sheet2").Cells(2, 2).Value = "Majalengka"
      End If
      End Sub

      Hapus
  3. Unknown4 Juni 2016 pukul 11.20

    kalau mau banyak misal buat 50 data gimana ya? apa harus manual ?

    BalasHapus
  4. MTs. Negeri 3 Bolaang Mongondow Selatan20 September 2016 pukul 20.32

    Contoh:
    Saya punya 2 Buah Userform yaitu Userform1 dan Userform2. Pada userform1 terdapat 3 textbox yaitu textbox1, textbox2 dan textbox3. Sedangkan userform2 terdapat 3 optionbutton yaitu optionbutton1 (Captionnya: 1 Baris), Optionbutton2 (Capt. 2 Baris) dan optionbutton3 (capt. 3 Baris) serta 1 Buah combobox.
    Yang jadi pertanyaan ialah:
    1. Bagaimana caranya agar ketika saya melakukan doubleclick pada textbox1 maka akan tampil userform2.
    2. Ketika Userform2 tampil. Saya mengisi combobox dan memilih salah satu optionbutton. Nah, bagimana caranya jika saya memilih optionbutton2 (Caption : 2 Baris) maka secara otomatis textbox1 dan textbox2 pada userform1 terisi sama dengan isian pada combobox userform2?
    Mohon solusinya!!!

    BalasHapus
  5. Unknown1 Maret 2019 pukul 10.10

    Mohon pencerahannya, bila saya memiliki beberapa (lebih dari satu) kriteria penilaian yang memerlukan jawaban "Ada" dan "Tidak Ada".
    Misal :
    1. Kriteria Surat Ijin Usaha ("Ada"/"Tidak Ada")
    2. Kriteria Ijin Lokasi ("Ada"/"Tidak Ada")
    Bagaimana cara membuat optionbutton agar saling terpisah antara dua kriteria penilaian yang saya buat tadi (bukan empat optionbutton dengan keharusan memilih hanya satu)
    Terima kasih sebelumnya

    BalasHapus

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

Langganan: Posting Komentar (Atom)