oh kalau variabel status change nya di-off-ken, cukup dijaga agar dalam prosedur isicombo tidak ada proses mengubah nilai properti Text, value, atau listindex. Juga tidak berisi baris penentuan properti listfillrange atau rowsource. Karena properies tersebut bisa memicu event change kembali, sehingga akan terjadi proses rekursif.
Mungkin akan mulai terasa jika daftarnya sampai 5000 baris dan inipun masih relatif terhadap spesifikasi komputer yang digunakan. Wassalam, Kid. 2014-12-16 17:54 GMT+11:00 ke2t keket....@gmail.com [belajar-excel] < belajar-excel@yahoogroups.com>: > > > > Dh, > > Untuk properties combobox sdh sy rubah jg ke none none gitu.. hhehe.., pas > trial lagi tetep gak jalan, hanya satu hutuf awal saja yang ter list. Saya > coba terakhir dgn tdk mengaktifkan booleannya & berhasil membuat list > secara real time.. wow,,!! Kereeeennn.. sperti yang saya mau.. > > Tp takutnya nanti jika data yang ada itu ratusan list, membuat kinerjanya > agak berat. Tp utk sementara, ini sdh sangat membantu saya. Jika ada > masukan dr temen-temen yang lain.. monggo.. :-) > > Tks master Mr. Kid.. :-) > > Hs, > > Keket ijo > > > > "'Mr. Kid' mr.nm...@gmail.com [belajar-excel]" < > belajar-excel@yahoogroups.com> wrote: > > > > Oh iya, > > satu lagi yang kurang, yaitu combobox diset agar properti bernama > MatchEntry dipilih yang None atau MatchEntryNone atau sebangsanya yang ada > None nya gitulah. > > kalau masih ndak bisa, berarti ada Langkah1 sampai Langkah4 yang gak utuh > dilaksanakan. bypilingsih bisa jalan. > gimana kalau Anda cek ulang langkah-per-langkah (pakai checklist bila > perlu), dan saya juga coba melakukan cek file lampiran Anda (Insya Allah > pada kesempatan pertama) > > Kalau sudah selesai cek, langsung psting hasil cek yak... > > Wassalam, > Kid. > > > > > 2014-12-16 14:09 GMT+11:00 ke2t keket....@gmail.com [belajar-excel] < > belajar-excel@yahoogroups.com>: >> >> >> >> Dh, >> >> Sdh sy coba sesuai instruksi tp kok gak jalan ya? Kayaknya ada yang >> salah.. hahaha.. >> Ketika saya ketikkan "makan" hanya satu combo box saja yang tampil. >> >> Mohon koreksinya >> File terlampir >> >> Tks >> Keket ijo >> >> >> "'Mr. Kid' mr.nm...@gmail.com [belajar-excel]" < >> belajar-excel@yahoogroups.com> wrote: >> >> >> >> Hai Keket, >> >> Langkah 1 : >> >> buat blok pengisian item combobix dengan methods additem. Jadi tidak >> menggunakan properti rowsource alias listfillrange. >> >> Blok proses pengisian item combobox dengan methods additem ini bisa >> diletakkan disebuah prosedur tersendiri ataupun di event init milik si >> userform (jika menggunakan userform). Lihat disini >> <http://b-excel.blogspot.com/2014/02/belajarvba-102-combobox-02.html>. >> >> ubah baris pengisian (yang ada bunyi additem-nya) agar berada dalam >> satu blok pengkondisian (blok IF) yang memeriksa apakah item yang akan >> ditambahkan berisi teks yang ditulis user atau tidak. >> >> sebelum blok for, tambahkan perintah hapus isi daftar combobox >> >> Kira-kira bentuknya >> namanyacombobox.clear >> for blablabla >> if instr( nilai_yang_di_loop_for , teks_inputan_user , 1 ) <> 0 or >> len(teks_inputan_user)=0 then >> baris yang ada additem nya >> endif >> next blabla >> >> Langkah 2 : >> >> buat sebuah prosedur berscope private, misal diberi nama IsiCombo >> private sub isicombo() >> >> >> end sub >> >> >> cut baris dari event init userform mulai dari proses clear combobox >> sampai next ke dalam prosedur IsiCombo >> >> di event init userform, pada baris bekas blok for yang di-cut tadi, >> isi dengan perintah untuk panggil prosedur IsiCombo >> >> Langkah 3 : >> >> pada module milik userform, buat variabel bertipe boolean untuk status >> apakah proses change sedang berlangsung atau tidak, dengan scope private >> private bStatusChange as boolean >> >> >> pada event init si userform, sebelum proses clear, isi nilai >> bStatusChange dengan FALSE >> bStatusChange=false >> >> Langkah 4 : >> >> pada event change si combobox, >> setelah baris deklarasi variabel (jika ada), letakkan blok kondisi >> pengubah informasi status change berikut : >> if bStatusChange then >> exit sub >> endif >> bStatusChange =true >> >> >> panggil prosedur isicombo >> >> >> pada event change si combobox, >> sebelum end sub atau sebelum baris perintah keluar dari prosedur, >> tambahkan baris pengubah status change agar kembali ke normal, yaitu nilai >> bStatusChange menjadi FALSE >> bStatusChange=false >> >> Kira-kira demikian alurnya.... silakan disesuaikan dengan keadaan >> setempat. >> Konsep : >> 1. proses pengisian combobox didahului dengan clear isi daftarnya >> 2. proses pengisian combobox dengan methods additem (isi satu per satu >> melalui loop) >> 3. proses pengisian combobox yang utuh tersebut diletakkan di sebuah >> prosedur tersendiri >> 4. proses init userform perlu memanggil proses pengisian combobox >> 5. proses change terhadap combobox juga perlu memanggil proses pengisian >> combobox >> 6. karena proses 5 akan membuat proses yang circular, maka buat variabel >> penyimpan status bahwa proses change combo sedang dilakukan (nilai TRUE), >> sehingga ketika nilai TRUE harus segera keluar dari event change si >> combobox. Proses circular bisa dicegah. >> >> Selamat mencoba. >> >> Wassalam, >> Kid. >> >> >> >> >> >> >> >> 2014-12-12 17:57 GMT+11:00 ke2t keket....@gmail.com [belajar-excel] < >> belajar-excel@yahoogroups.com>: >>> >>> >>> >>> Sore.. >>> >>> Saya coba buat macro dengan combo box. Apakah bisa seperti data >>> terlampir, jika saya ketikkan "makan" dalam ComboBox1, maka akan otomatis >>> muncul 4 suggestion drop down kebawah: >>> - besok kamu mau makan apa >>> - makan sama apa ya >>> - pokoke makan aja deh >>> - makan nasi goreng deh >>> Karena kata "makan" adalah kata kucinya. Dan terakhir akan dieksekusi >>> dengan pilihan click kita pilih text yg mana. >>> >>> Tks atas bantuannya. >>> Keket Ijo >>> >> >
