Re: [belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom
Daer Mr Kids dan Para Suhu, Sebelumnya trimakasih atas pencerahannya, maaf kalau ternyata peenyataanya membingungkan Mungkin kata Flexibel sangat luas, saya hanya ingin Pencarian lebih sama dengan program yang pertama saya dapate dengan menggunakan Unbound, Contoh program pertama: Ketika kita mencari BUDI yang keluar dari Nama BUDI SETIAWAN, dan Bambang Budi keluar Contoh Program kedua dengan Bound : Ketika kita mencari Nama BUDI, yang keluar hanya BUDI setiawan saja, Bambang Budi tidak muncul Mohon maaf kalau ternyata pertanyaan salah, Tapi saya sudah dapat jawabanya dari Milis sebelah, dengan menggunakan Asterik (*) sebelum dan sesudah kata cari nya Private Sub TxtCariData_Change() Sheets("DB").Range("CG2").Value = "*" & UserForm1.TxtCariData.Text & "*" End Subdan Untuk Text nya benar di buat format tanggalnya dulu TextBox1.Value = Format(ListBox1.List(ListBox1.ListIndex, 6), "dd-mmm-yy") Trimakasih Mr. Kids atas pembelajaranya Bambang On Wednesday, March 25, 2020, 03:42:31 PM GMT+7, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote: tentang : mendapatkan coding untuk Listbox yang sesuai dengan keinginan saya > ada banyak cara untuk meng-extract records yang dibutuhkan, salah satunya > dengan fitur advanced filter yang Anda gunakan. Cara lainnya memanfaatkan > pivot tables dan sebagainya. tentang : bagaimana membuat hasil pencarian lebih flexibel > buat saja comboboxes untuk memilih nama header kriteria pencarian dan text > box kriteria pencarian, lalu dibuat tabel kriteria berdasar pilihan di > comboboxes dan text box terkait ke suatu range lalu dilakukan advanced filter > (jika Anda menggunakan advanced filter). Ini sudah fleksibel. Hanya menulis > nama header di range tertentu lalu menulis isi textbox nya dibahawa header > lalu dilakukan advanced filter.> jika pakai pivot tables, filter saja setiap > field di pivot tables sesuai kebutuhan, lalu definisikan range area pivot > table yang terfilter, ganti listbox dengan area range tersebut.> jika pakai > pivot tables dan slicer, set slicer sesuai kriteria yang diisi user, > definisikan area pivot tables, ganti listbox dengan area range tersebut.> > kalau hobinya pakai loop baca satu per satu di setiap kolom yang dibutuhkan, > ya buat saja loopnya. tentang : coding sebelumnya hasil pencarian sangat flexibel > saya gak paham maksudnya ini apa ? beneran fleksibel ?> bukankah sebelumnya > menggunakan proses loop untuk add item untuk mengisi listbox ? berarti > filternya pun akan loop per kolom kriteria yang dibutuhkan. Lalu fleksibelnya > dimana ? kan sama saja harus mencari per kolom kriteria sesuai kebutuhan.> > Andai kriterianya berdasar kolom Nama yang dicari adalah nama diawali su, > seperti sukarman bin bla atau sulistiyani a. tapi hasilnya ada gatot subroto > dan semacamnya yang tidak diawali su Hal seperti ini paling fleksibel > dengan advanced filter atau pivot tables (slicer kurang fleksibel untuk > pencarian sebagian seperti ini)> Jadi yang dimaksud coding sebelumnya yang > lebih fleksibel itu dimana ? Apalagi data berupa array yang sudah ada dalam > listbox hasil loop add item, sudah lebih gak mungkin untuk fleksibel. > Biasanya, kalau cara yang dianggap fleksibel padahal data sudah berupa array, > harus dilakukan search per kolom array pakai loop juga. Pengguna VBA pemula > biasanya akan tergiur dengan fungsi Filter milik VBA, lalu dipakai disemua > array data.. Padahal harusnya tetap digunakan per elemen kolom array.> Saya > curiga deh... Anda menganggap fleksibel itu jangan-jangan Anda pakai fungsi > Filter dengan area pencarian langsung seluruh isi listbox yang disimpan > sebagai array data. Kalau kecurigaan tersebut benar, berarti Anda sudah > tersesat. Sebaiknya segera ambil jalan balik kembali ke jalan yang wajar > saja. Pakai contoh seperti mencari yang su tadi saja. Mencari dikolom nama, > kalau pakai Filter nya VBA ke seluruh isi listbox, akan ketemu gatot subroto > juga. Malah kalau pakai filter nya VBA ke seluruh isi listbox bisa lebih > parah lagi hasilnya, misal ada kolom alamat juga, yang isinya jalan > menteri supeno atau supermall bekasi atau su lainnya di kolom lainnya akan > ikut keluar menjadi hasil, walau di kolom nama gak ada bunyi su hmmm jadi bingung...kok bisa si kid nyaranin sesuatu yang gak efisien gak bisa fleksibel atau gak se-universal mungkin ya ?si kid lagi error kali ya.. :( tentang : textbox yang tampilan dari hasil listbox berupa tanggal, berubah formatnya > disisi internal listbox itu sendiri : a. listbox yang diisi dengan add > item akan menampilkan apa yang disimpannya b. listbox yang diisi dengan > merujuk ke object lain (lewat properti listfillrange atau rowsource), akan > menampilkan apa yang ditampilkan sumber data dan tidak menyimpan nilai sumber > data)> jadi, ketika mengambil nilai dari listbox (misal si textbox mengambil > nilai dari listbox, artinya si textbox sebagai peminta) :
Re: [belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom
tentang : > mendapatkan coding untuk Listbox yang sesuai dengan keinginan saya > ada banyak cara untuk meng-extract records yang dibutuhkan, salah satunya dengan fitur advanced filter yang Anda gunakan. Cara lainnya memanfaatkan pivot tables dan sebagainya. tentang : > bagaimana membuat hasil pencarian lebih flexibel > buat saja comboboxes untuk memilih nama header kriteria pencarian dan text box kriteria pencarian, lalu dibuat tabel kriteria berdasar pilihan di comboboxes dan text box terkait ke suatu range lalu dilakukan advanced filter (jika Anda menggunakan advanced filter). Ini sudah fleksibel. Hanya menulis nama header di range tertentu lalu menulis isi textbox nya dibahawa header lalu dilakukan advanced filter. > jika pakai pivot tables, filter saja setiap field di pivot tables sesuai kebutuhan, lalu definisikan range area pivot table yang terfilter, ganti listbox dengan area range tersebut. > jika pakai pivot tables dan slicer, set slicer sesuai kriteria yang diisi user, definisikan area pivot tables, ganti listbox dengan area range tersebut. > kalau hobinya pakai loop baca satu per satu di setiap kolom yang dibutuhkan, ya buat saja loopnya. tentang : > coding sebelumnya hasil pencarian sangat flexibel > saya gak paham maksudnya ini apa ? beneran fleksibel ? > bukankah sebelumnya menggunakan proses loop untuk add item untuk mengisi listbox ? berarti filternya pun akan loop per kolom kriteria yang dibutuhkan. Lalu fleksibelnya dimana ? kan sama saja harus mencari per kolom kriteria sesuai kebutuhan. > Andai kriterianya berdasar kolom Nama yang dicari adalah nama diawali su, seperti sukarman bin bla atau sulistiyani a. tapi hasilnya ada gatot subroto dan semacamnya yang tidak diawali su Hal seperti ini paling fleksibel dengan advanced filter atau pivot tables (slicer kurang fleksibel untuk pencarian sebagian seperti ini) > Jadi yang dimaksud coding sebelumnya yang lebih fleksibel itu dimana ? Apalagi data berupa array yang sudah ada dalam listbox hasil loop add item, sudah lebih gak mungkin untuk fleksibel. Biasanya, kalau cara yang dianggap fleksibel padahal data sudah berupa array, harus dilakukan search per kolom array pakai loop juga. Pengguna VBA pemula biasanya akan tergiur dengan fungsi Filter milik VBA, lalu dipakai disemua array data. Padahal harusnya tetap digunakan per elemen kolom array. > Saya curiga deh... Anda menganggap fleksibel itu jangan-jangan Anda pakai fungsi Filter dengan area pencarian langsung seluruh isi listbox yang disimpan sebagai array data. Kalau kecurigaan tersebut benar, berarti Anda sudah tersesat. Sebaiknya segera ambil jalan balik kembali ke jalan yang wajar saja. Pakai contoh seperti mencari yang su tadi saja. Mencari dikolom nama, kalau pakai Filter nya VBA ke seluruh isi listbox, akan ketemu gatot subroto juga. Malah kalau pakai filter nya VBA ke seluruh isi listbox bisa lebih parah lagi hasilnya, misal ada kolom alamat juga, yang isinya jalan menteri supeno atau supermall bekasi atau su lainnya di kolom lainnya akan ikut keluar menjadi hasil, walau di kolom nama gak ada bunyi su hmmm jadi bingung... kok bisa si kid nyaranin sesuatu yang gak efisien gak bisa fleksibel atau gak se-universal mungkin ya ? si kid lagi error kali ya.. :( tentang : > textbox yang tampilan dari hasil listbox berupa tanggal, berubah > formatnya > disisi internal listbox itu sendiri : a. listbox yang diisi dengan add item akan menampilkan apa yang disimpannya b. listbox yang diisi dengan merujuk ke object lain (lewat properti listfillrange atau rowsource), akan menampilkan apa yang ditampilkan sumber data dan tidak menyimpan nilai sumber data) > jadi, ketika mengambil nilai dari listbox (misal si textbox mengambil nilai dari listbox, artinya si textbox sebagai peminta) : a. listbox yang diisi dengan add item akan menyerahkan nilai yang disimpan oleh si listbox kepada pihak yang meminta b. listbox yang diisi dengan listfillrange atau rowsource akan mengambilkan nilai dari sumbernya, lalu menyerahkan nilai yang diambil itu kepada pihak yang meminta > Pada listbox yang diisi dengan rujukan ke object lain (listfillrange atau rowsource) akan didapat nilai asli dari sumbernya. > Data tanggal bertipe datetime memiliki nilai asli berupa serial date dari 0 sampai sekian. > Kalau ambil dari listbox yang pakai listfillrange atau rowsource, dan sumber data bertipe datetime, lakukan format sebelum ditampilkan dalam textbox (fungsi Format di VBA, seperti fungsi Text di Excel dengan kelebihan dan kekurangan masing-masing) On Wed, Mar 18, 2020 at 10:01 AM Gobang Gocir gobang13...@yahoo.com [belajar-excel] wrote: > > > Dear Mr. Kid dan Milis Belajar Excel, > > Trimakasih atas masukan dan pembelajaranya, setelah mencari apa yang di > ajari oleh Mr. Kid saya mendapatkan coding untuk Listbox yang sesuai dengan > keinginan saya, yang saya mau tanyakan bagaimana membuat hasil pencarian > lebih flexibel, karana coding sebelumnya hasil