dlm subject ini kan ada dua kasus / dua pertanyaan truzz.. kasus yg mana yang anda katakan "tidak terjadi apa-apa" itu ? berdiskusi via milis andalan kita adalah bahasa yg jelas..
atau.. gini saja.... workbook percobaan yg suah dibuat itu dilampirkan/kirim kemareee.. kita-kita (kalo bisa) tinggal "biking betoel" bukan membayangkan-bayangkan spt sekarang ini kita kita kan "agak males" kalo sambil menjawab juga harus sambil kerja bakti dulu membuat workbook dan mengarang-karang segala isinya -------------------------------------------------------------------------------- ----- Original Message ----- From: Arista Syahdana To: [email protected] Sent: Saturday, February 27, 2010 4:03 PM Subject: Bls: [belajar-excel] Combo box Maaf mbak siti saya sudah mencoba tapi koq tidak terjadi apa2 ya?. Ato mungkin saya salah meletakkan kode nya? kalo boleh tahu dimana tempat meletakkan kodenya? apakah di textbox1_change ato afterupdate ato dimana? ------------------------------------------------------------------------------ Dari: siti Vi <[email protected]> Kepada: [email protected] Terkirim: Sab, 27 Februari, 2010 08:55:15 Judul: Re: [belajar-excel] Combo box 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: belajar-excel@ yahoogroups. com 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.
