Diskusi tentang Excel

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.

Related

OptionButton 8660543655436616193

Post a Comment

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

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

    ReplyDelete
    Replies
    1. 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

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

    ReplyDelete
  4. 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!!!

    ReplyDelete

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

emo-but-icon

item