Diskusi tentang Excel

Macro Excel | Tutorial Membuat ComboBox pada UserForm dengan Source Data dari Worksheet

Membuat sebuah ComboBox pada UserForm memang beragam jenisnya ada yang menggunakan data secara manual diketikan dengan menggunakan Add Item. misalnya akan menambahkan data seperti berikut

Anda juga bisa belajar bagaimana membuat Validasi data menggunakan ComboBox

Cara Membuat Combobox pada UserForm


Private Sub UserForm_Initialize()
ComboBox1.AddItem "Rambutan"
ComboBox1.AddItem "Mangga"
ComboBox1.AddItem "Durian"
ComboBox1.AddItem "Jeruk"
ComboBox1.AddItem "Nanas"
ComboBox1.AddItem "Melon"
End Sub
Cara tersebut banyak juga yang menggunakan, dan bahkan ada yang menggunakan fungsi With misalnya
Private Sub UserForm_Initialize()
With ComboBox1
    .AddItem "Rambutan"
    .AddItem "Mangga"
    .AddItem "Durian"
    .AddItem "Jeruk"
    .AddItem "Nanas"
    .AddItem "Melon"
End With
End Sub
Hasilnya akan sama saja menampilkan item data dengan cara dituliskan pada script VBA UserFom_Initialize, lalu bagaimana apabila item data tidak diketikkan melalui script?

Simak Cara membuat ComboBox tanpa macro / VBA pada tulisan Cara membuat ComboBox dengan Validasi data List

Cara Menampilkan Data pada ComboBox dari Worksheet

Menampilkan data yang berada di worksheet katakanlah range A1:A6 kemudian data tersebut dijadikan data item untuk membuat sebuah ComboBox. Langkah pertama silakan buat sebuah data pada Sheet1


Langkah berikutnya silakan masuk ke VBA editor atau tekan F5 kemudian silakan buat satu buat UserForm saya kira untuk membuat UserForm sudah dianggap bisa

Langkah ketiga buat satu buat ComboBox dengan menggunakan ToolBox dan letakan pada UserForm

Langkah terkahir
Untuk menampilkan data yang ada pada worksheet atau range atau cell dan dimunculkan pada sebuah ComboBox cukup mudah silakan ketikan script VBA dibawah ini kemudian pastekan pada UserForm_Initialize


Private Sub UserForm_Initialize()
For Bariske = 1 To 6
    CariData = Sheets("Sheet1").Range("a" & Bariske)
    ComboBox1.AddItem CariData
Next Bariske
End Sub
 Silakan lihat hasilnya akan seperti gambar dibawah ini


Berhasil, Selamat mencoba jika ada pertanyaan mengenai Macro Excel | Tutorial Membuat ComboBox pada UserForm dengan Source Data dari Worksheet jangan sungkan silakan komentar dibawah. Semoga bermanfaat.

Related

Macro Excel VBA 3063208200554257700

Post a Comment

  1. hallo gan, ini bermanfaat sekali tentang tulisannya.
    tapi saya ada kendala saat membuat combobox kedua,
    isi di box kedua tidak keluar seperti di box 1.
    apakah ada tambahan perintah untuk "Private Sub UserForm_Initialize()" di box ke2 ?

    thank you gan

    ReplyDelete
  2. Mau tanya Gan... For Bariske = 1 To 6. untuk 6 baris ya ?
    kalau ada 27 baris gimana perintahnya ?
    saya sudah coba ganti angka 6 jadi 27 tetapi hasilnya tetap enan baris saja yang tampil.

    Terimakasih

    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