Apakah ada rencana bikin group telegram.?Sent from my Samsung Galaxy smartphone.
-------- Original message --------From: "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> Date: 4/15/20 8:43 PM
(GMT+07:00) To: Iman Darusman <idz.i...@yahoo.com> Cc: BeExcel
<belajar-excel@yahoogroups.com>, Milis Belajar-Excel
<milis-belajar-ex...@googlegroups.com> Subject: Re: [milis-belajar-excel] Re:
[belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox
lebih dari sepuluh kolom
Semua milis di yahoogroups sudah dikosongkan oleh yahooSekarang milis
berinteraksi via email.Sent from my smart enough phoneOn Apr 15, 2020, at
18:01, Iman Darusman <idz.i...@yahoo.com> wrote:
Assalammualaiku..apa kabar semua, semoga sehat2 dan selalu dalam
Lindungan Allah azza wa jalla...saya mau taya kenapa saya gak bisa buka Milis
Group Belajar excel lagi ya?hehesaya mau tanya adakah rumus sederhana untuk
file terlampir?Barakallahu fiikumsalamIman
Pada Rabu, 25 Maret 2020 15.42.33 WIB, Mr. Kid
<mr.nm...@gmail.com> menulis:
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 suhmmm.... 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] <belajar-excel@yahoogroups.com> 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 pencarian sangat flexibel, kemudian kenapa ya textbox yang tampilan dari
hasil listbox berupa tanggal, berubah formatnyaberikut codingnya, mohon bantuan
untuk modifikasi coding di bawah ini, file terlampirPrivate Sub
LbCariData_Click()Dim Ws As WorksheetSet Ws = Sheets("DB")Dim wsrekap As
WorksheetSet wsrekap = Sheets("CARI")Dim R As RangeSet R =
Ws.Range("ListDBA")Dim RFilter As RangeSet RFilter = Ws.Range("CG1:CG2")Dim
RCari As RangeSet RCari = Ws.Range("CG2")Dim C As VariantIf Ws.FilterMode Then
Ws.ShowAllDataIf UserForm1.TxtCariData.Text = "" Then MsgBox "Maaf...!! Anda
Belum Memasukkan Data ..!!", 16, "Aplikasi Data" Exit SubEnd If
UserForm1.TxtCariData.Text = RCari R.AdvancedFilter
Action:=xlFilterCopy, _ CriteriaRange:=RFilter,
CopyToRange:=wsrekap.Range("B3:BQ3"), Unique:=False ListBox1.RowSource =
"REKAPCARI"End SubTrimakasih
Pada Senin, 16 Maret 2020 22.04.35 GMT+7, 'Mr. Kid'
mr.nm...@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
ini mesti listbox yang unbound, yang ngisi listbox nya pakai additem trus
isi kolom berikutnya pakai properti List. Kalau pakai ini, maksimal hanya 10
kolom.mbok ya pakai listbox yang bound, ngisi listboxnya pakai ngeset area
range worksheet di properti ListFillRange (kalau listbox di worksheet) atau
RowSource (kalau listbox di userform)..Kalau pakai bound listbox seperti ini,
kalau mau nampilin header, set properti ColumnHeads bernilai true. Ingat, area
range yang di-set hanya record data. baris header tidak ikut disebut tapi harus
tepat hanya di 1 baris sebelum baris pertama data.Kalau mau hide kolom, set di
columnwidths, supaya lebar kolom itu adalah 0.Kalau mau sort listbox, cukup
sort sumber datanya, lalu set ulang listfillrange atau rowsourceContoh
:regional setting : EN-ussheet bernama 'datanya kid'header di A1:Z1 (26
kolom)data di A2:Z37 (36 baris)header ditampilkankolom B (kolom ke-2) dan kolom
E (kolom ke-5) di-hide, selainnya ditampilkanset di listbox (pakai script atau
sejak design)1. ColumnCount : diset bernilai 262. ColumnHeads : diset true3.
ListFillRange (kalau listbox di worksheet) atau RowSource (kalau di userform) :
diset berisi string berbunyi 'datanya kid'!A2:Z374. ColumnWidths : diset
50;0;50;50;0 -> angka 50 adalah contoh untuk kolom yang di-set dengan lebar
50 ptjika ada opsi sort isi listbox : - lakukan sort di A1:Z37- kemudian set
nomor 3 dengan vbnullstring -> di clear- lalu set lagi nomor 3 dengan
'datanya kid'!A2:Z37 -> resetmau clear listbox ? set nomor 3 dengan
vbnullstringproperrti fillcolor untuk control namanya BackColorkondisi 'jika
kosong' berarti panjang karakter isinya adalah 0if len(textboxnya.text)=0 then
textboxnya.backcolor=vbwhite else textboxtnya.backcolor=vbyellowOn Mon, Mar 16,
2020 at 11:48 AM Gobang Gocir gobang13...@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
Dear Para Suhu Milis belajar Excel,Mohon bantuanya untuk kasus saya, saya
sudah mencoba "menyontek" code2 vba dari internet termasuk dari milis excel,
saya mempunyai data dengan banyak kolom, dan saya ingin memunculkanya di form
untuk sebagian informasi yang dianggap penting, permasalahanya ketika saya mau
tampilkan 12 dari kolom yang ada di listbox ke textbox itu terjadi error, di
listbox ke textbox yang ada hanya bisa menampilkan 10 item.Kemudian saya juga
mencoba untuk membuat textbox berubah warna apa bila di textbox tersebut
kosongTrimakasih sebelum nya dan mohon Bantuanya, file terlampirBest
RegardsBambang
--
You received this message because you are subscribed to the Google Groups
"milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to milis-belajar-excel+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPscXxt%2BP8vsGyvqkmieD7f9e02P0Kq0hmbbr82%3DOgYu0A%40mail.gmail.com.
<Jumlah Account tiap per tanggal.xlsx>
