Thursday, June 9, 2016

Cara Isi Pilihan Pada Combobox Vba Excel


Cara Isi Pilihan Combobox - Perhatikan Gambar Gif diatas. dimana Combobox terisi pilihan yang dapat dipilih. pada posting ini saya mencoba memberikan tiga cara mengisi Combobox 

Download Filenya Terlebih dahulu : Isian Combobox

Selanjutnya Ikuti langkah-langkah mengisi kode pada tempatnya :
Cara Pertama : Combobox1 
  • Tempatkan kode dibawah ini pada UserForm_Initialize
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "ABDULLAH"
.AddItem "AMINAH"
.AddItem "MUHAMMAD"
.AddItem "SITI KHADIJAH"
.AddItem "AISYAH"
.AddItem "ABU BAKAR"
.AddItem "UMAR"
End With
End Sub

Cara Kedua : Combobox2 
  • Dengan menggunakan Range, lihat Range yang sudah saya bikin di Sheet1 Klik Formula dan Pilih Name Manager.
  • Tempatkan kode dibawah ini pada UserForm_Initialize.
Private Sub UserForm_Initialize()
With ComboBox2
.RowSource = "RDATA"
End With
End Sub


Cara Ketiga : Combobox3
    • Tempatkan kode dibawah ini pada UserForm_Initialize.
    Private Sub UserForm_Initialize()
    ComboBox3.List = Array("ABDULLAH", "AMINAH", "MUHAMMAD", "SITI KHADIJAH", "AISYAH", "ABU BAKAR", "UMAR")
    En Sub

    Bila Kode digabungkan

    Private Sub UserForm_Initialize()
    With ComboBox1 
    .AddItem "ABDULLAH" 
    .AddItem "AMINAH" 
    .AddItem "MUHAMMAD"
    .AddItem "SITI KHADIJAH"
    .AddItem "AISYAH" 
    .AddItem "ABU BAKAR"
    .AddItem "UMAR" 
    End With 
    With ComboBox2
    .RowSource = "RDATA" 
    End With 
    ComboBox3.List = Array("ABDULLAH", "AMINAH", "MUHAMMAD", "SITI KHADIJAH", "AISYAH", "ABU BAKAR", "UMAR") 
    End Sub

    Demikian Cara Isi Pilihan Pada Combobox Vba Excel, Semoga bermanfaat bagi yang belajar otodidak.


    Komentar Anda Sangat Menentukan Kelangsungan Blog ini
    EmoticonEmoticon