Combobox ialah data dimana data yang dientrikan berupa data pilihan jadi user tidak dapat mengetikan data pada Combobox tersebut. Data yang dimaksud dapat dibentuk pribadi melalui coding atau juga data dapat diambil dari range worksheet yang dipilih.
Lalu bagaimana caranya menciptakan Combobox yang datanya diambil dari range worksheet lain? Artikel kali ini akan menampilkan data dari range kedalam Combobox walaupun worksheet tidak active tetapi datanya masih tetap dapat dipanggil atau ditampilkan.
Langkah pertama Anda harus menciptakan data list yang akan ditampilkan melalui Combobox pada range worksheet. Terserah mau ditempatkan di worksheet1 atau worksheet lainnya. Dalam pola kali ini aku akan menciptakan list daftar warna pada Sheet1 menyerupai gambar berikut :
Gambar diatas menampilkan data dari kolom B tepatnya di range B2:B5 melalui Combobox, untuk dapat melaksanakan hal yang sama dengan gambar diatas langkah pertama silakan Anda desain terlebih dahulu dengan menyisipkan satu buah UserForm dan satu buah Combobox melalui ToolBox.
Setelah itu silakan tuliskan coding dibawah ini pada Object UserForm dan Prosedur Initialize
Baca:
Cara Membuat Combobox Melalui UserForm untuK Pemula
Jika Anda memilik list data hingga dengan baris ke 100 maka silakan Anda juga dapat mengganti coding tersebut diatas FOr Bariske = 2 To 100 Angka 100 merupakan baris terakhir penampatan data list item nya bila Anda melebih baris ke 100 maka tidak akan dimunculkan melalui Combobox.
Lalu bagaimana caranya menciptakan Combobox yang datanya diambil dari range worksheet lain? Artikel kali ini akan menampilkan data dari range kedalam Combobox walaupun worksheet tidak active tetapi datanya masih tetap dapat dipanggil atau ditampilkan.
Langkah pertama Anda harus menciptakan data list yang akan ditampilkan melalui Combobox pada range worksheet. Terserah mau ditempatkan di worksheet1 atau worksheet lainnya. Dalam pola kali ini aku akan menciptakan list daftar warna pada Sheet1 menyerupai gambar berikut :
Gambar diatas menampilkan data dari kolom B tepatnya di range B2:B5 melalui Combobox, untuk dapat melaksanakan hal yang sama dengan gambar diatas langkah pertama silakan Anda desain terlebih dahulu dengan menyisipkan satu buah UserForm dan satu buah Combobox melalui ToolBox.
Setelah itu silakan tuliskan coding dibawah ini pada Object UserForm dan Prosedur Initialize
Private Sub UserForm_Initialize()Perintah tersebut pertama akan menempatkan focus Kursor pada Combobox1 kemudian melaksanakan pencarian baris ke2 hingga ke5 dan data akan dicari pada worksheet1 cell B2, B3, B4, B5 kemudian bila ketemu ditampilkan melalui Combobox1.
ComboBox1.SetFocus
For Bariske = 2 To 5
caridata = Sheets("Sheet1").Range("B" & Bariske)
ComboBox1.AddItem caridata
Next Bariske
End Sub
Baca:
Cara Membuat Combobox Melalui UserForm untuK Pemula
Jika Anda memilik list data hingga dengan baris ke 100 maka silakan Anda juga dapat mengganti coding tersebut diatas FOr Bariske = 2 To 100 Angka 100 merupakan baris terakhir penampatan data list item nya bila Anda melebih baris ke 100 maka tidak akan dimunculkan melalui Combobox.