Kita anggap ComboBox yg dimauksud oleh Arista adalah
object control yg dibutat melalui tool yg ada di ToolBar bernama Control ToolBox
dan di 'gambar'nya di worksheet, nama Combobox yg digambar = Combobox1
1.
cara agar combobox dapat menampilkan seluruh itemnya
Combobox tidak punya item kecuali dengan sengaja di-ISI.
Untuk mengisi list ke dalam Combobox, ada beberapa cara. (sudah dianggap tahu)
Setelah diisi dengan ItemList (bisa hanya 1 bisa Ribuan item) maka si Kombo
tetap hanya dapat menampilkan Kosong atau SATU (salah satu) itemnya.
Ketika tombol DropDown-nya di tekan, akan muncul list sebanyak yg kita set
pada propertynya yg bernama ListRow (defaultnya = 8),
Untuk menampilkan semua item-nya
a.
Di-set : Property ListRow = Jumlah Item yg ada
Tekan Tombol DropDownnya, maka semua item akan tampil (selama tombol dropdown
ditekan)
b.
diperlukan tempat lain, misalnya cells di sheet, atau ListBox atau textbox,
atau object lain yg bisa menerima data, lalu menampilkan secara "sekaligus
banyak"
Dengan Loop, kita dapat menuliskan semua Item yg ada dlm COmboBox ke media lain
spt disebut di atas.
Jadi kalau keperluannya menampilkan semua item, sebaiknya jangan gunakan
ComboBox
tapi pilihlah ListBox
2
Caranya agar combobox dapat menampilkan item sesuai dgn text pada suatu textbox.
Asumsinya: ComboBox sudah mempunyai item-list.
(a)
Dengan cara mencari melalui looping
dim i as long
with combobox1
.listindex = -1
for i = 0 to .ListCount -1
if .ListIndex(i) = "TextBox1" then
.ListIndex = i
exit for
end if
next i
if .listindex = -1 then _
msgbox "tidak ada item spt di texbox1",48
end with
(b)
kalau ISI combobox tsb berasal dari data di range, misalnya
Sheet1.Range("F1:F100") dan data tsb masih ada; kita mencarinya di range tsb
dim i as long, DatRng as range
set DatRng = Sheet1.Range("F1:F100")
with worksheetfunction
if .Countif(DatRng,TextBox1) > 0 then
i = .Match(textbox1, DatRng, 0)
Combobox1.ListIndex = i - 1
end if
end with
--------------------------------------------------------------------------------
Message -----
From: Arista Syahdana
To: [email protected]
Sent: Friday, February 26, 2010 8:22 PM
Subject: [belajar-excel] Combo box
Dear Belajar excel. saya minta tolong.
Bagaimana ya caranya agar combobox dapat menampilkan seluruh item nya?
saya dah utak atik tapi malah bingung, yang ditampilkan cuma 1 item saja.
Yang kedua, bagaimana caranya agar combobox dapat menampilkan item
sesuai dengan text pada text box? Misalnya pada yext box kita mengetikkan Cari,
maka pada combobox akan muncul semua item yang mengandung kata cari.
Sebelumnya saya ucapkan terima kasih.
