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 : PropertyListRow = 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. Berselancar lebih cepat. Internet Explorer 8 yang dioptimalkan untuk Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser. Dapatkan IE8 di sini! http://downloads.yahoo.com/id/internetexplorer
