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] <belajar-ex...@yahoogroups.com> 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) : 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-ex...@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 formatnya
berikut codingnya, mohon bantuan untuk modifikasi coding di bawah ini, file
terlampir
Private 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 Variant
If Ws.FilterMode Then Ws.ShowAllData
If UserForm1.TxtCariData.Text = "" Then MsgBox "Maaf...!! Anda Belum
Memasukkan Data ..!!", 16, "Aplikasi Data" Exit Sub
End If UserForm1..TxtCariData.Text = RCari R.AdvancedFilter
Action:=xlFilterCopy, _ CriteriaRange:=RFilter,
CopyToRange:=wsrekap.Range("B3:BQ3"), Unique:=False ListBox1.RowSource =
"REKAPCARI"
End Sub
Trimakasih
Pada Senin, 16 Maret 2020 22.04.35 GMT+7, 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel] <belajar-ex...@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 rowsource
Contoh :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 ditampilkan
set 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 vbnullstring
properrti fillcolor untuk control namanya BackColorkondisi 'jika kosong'
berarti panjang karakter isinya adalah 0if len(textboxnya.text)=0 then
textboxnya.backcolor=vbwhite else textboxtnya.backcolor=vbyellow
On Mon, Mar 16, 2020 at 11:48 AM Gobang Gocir gobang13...@yahoo.com
[belajar-excel] <belajar-ex...@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 kosong
Trimakasih sebelum nya dan mohon Bantuanya, file terlampir
Best RegardsBambang
__._,_.___ Posted by: "Mr. Kid" <mr.nm...@gmail.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • |
Start a New Topic | • | Messages in this topic (4) |
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscr...@yahoogroups.com
posting ke milis, kirimkan ke: belajar-ex...@yahoogroups.com
berkunjung ke web milis :
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran :
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-ow...@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke :
belajar-excel-unsubscr...@yahoogroups.com
--------------------------------------------------------------------- Visit
Your Group
• Privacy • Unsubscribe • Terms of Use
.
__,_._,___#yiv2193948521 #yiv2193948521 -- #yiv2193948521ygrp-mkp {border:1px
solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2193948521
#yiv2193948521ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2193948521
#yiv2193948521ygrp-mkp #yiv2193948521hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv2193948521 #yiv2193948521ygrp-mkp #yiv2193948521ads
{margin-bottom:10px;}#yiv2193948521 #yiv2193948521ygrp-mkp .yiv2193948521ad
{padding:0 0;}#yiv2193948521 #yiv2193948521ygrp-mkp .yiv2193948521ad p
{margin:0;}#yiv2193948521 #yiv2193948521ygrp-mkp .yiv2193948521ad a
{color:#0000ff;text-decoration:none;}#yiv2193948521 #yiv2193948521ygrp-sponsor
#yiv2193948521ygrp-lc {font-family:Arial;}#yiv2193948521
#yiv2193948521ygrp-sponsor #yiv2193948521ygrp-lc #yiv2193948521hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2193948521
#yiv2193948521ygrp-sponsor #yiv2193948521ygrp-lc .yiv2193948521ad
{margin-bottom:10px;padding:0 0;}#yiv2193948521 #yiv2193948521actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2193948521
#yiv2193948521activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2193948521
#yiv2193948521activity span {font-weight:700;}#yiv2193948521
#yiv2193948521activity span:first-child
{text-transform:uppercase;}#yiv2193948521 #yiv2193948521activity span a
{color:#5085b6;text-decoration:none;}#yiv2193948521 #yiv2193948521activity span
span {color:#ff7900;}#yiv2193948521 #yiv2193948521activity span
.yiv2193948521underline {text-decoration:underline;}#yiv2193948521
.yiv2193948521attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv2193948521 .yiv2193948521attach div a
{text-decoration:none;}#yiv2193948521 .yiv2193948521attach img
{border:none;padding-right:5px;}#yiv2193948521 .yiv2193948521attach label
{display:block;margin-bottom:5px;}#yiv2193948521 .yiv2193948521attach label a
{text-decoration:none;}#yiv2193948521 blockquote {margin:0 0 0
4px;}#yiv2193948521 .yiv2193948521bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2193948521
.yiv2193948521bold a {text-decoration:none;}#yiv2193948521 dd.yiv2193948521last
p a {font-family:Verdana;font-weight:700;}#yiv2193948521 dd.yiv2193948521last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2193948521
dd.yiv2193948521last p span.yiv2193948521yshortcuts
{margin-right:0;}#yiv2193948521 div.yiv2193948521attach-table div div a
{text-decoration:none;}#yiv2193948521 div.yiv2193948521attach-table
{width:400px;}#yiv2193948521 div.yiv2193948521file-title a, #yiv2193948521
div.yiv2193948521file-title a:active, #yiv2193948521
div.yiv2193948521file-title a:hover, #yiv2193948521 div.yiv2193948521file-title
a:visited {text-decoration:none;}#yiv2193948521 div.yiv2193948521photo-title a,
#yiv2193948521 div.yiv2193948521photo-title a:active, #yiv2193948521
div.yiv2193948521photo-title a:hover, #yiv2193948521
div.yiv2193948521photo-title a:visited {text-decoration:none;}#yiv2193948521
div#yiv2193948521ygrp-mlmsg #yiv2193948521ygrp-msg p a
span.yiv2193948521yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2193948521
.yiv2193948521green {color:#628c2a;}#yiv2193948521 .yiv2193948521MsoNormal
{margin:0 0 0 0;}#yiv2193948521 o {font-size:0;}#yiv2193948521
#yiv2193948521photos div {float:left;width:72px;}#yiv2193948521
#yiv2193948521photos div div {border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv2193948521
#yiv2193948521photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2193948521
#yiv2193948521reco-category {font-size:77%;}#yiv2193948521
#yiv2193948521reco-desc {font-size:77%;}#yiv2193948521 .yiv2193948521replbq
{margin:4px;}#yiv2193948521 #yiv2193948521ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv2193948521 #yiv2193948521ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2193948521
#yiv2193948521ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2193948521
#yiv2193948521ygrp-mlmsg select, #yiv2193948521 input, #yiv2193948521 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv2193948521
#yiv2193948521ygrp-mlmsg pre, #yiv2193948521 code {font:115%
monospace;}#yiv2193948521 #yiv2193948521ygrp-mlmsg *
{line-height:1.22em;}#yiv2193948521 #yiv2193948521ygrp-mlmsg #yiv2193948521logo
{padding-bottom:10px;}#yiv2193948521 #yiv2193948521ygrp-msg p a
{font-family:Verdana;}#yiv2193948521 #yiv2193948521ygrp-msg
p#yiv2193948521attach-count span {color:#1E66AE;font-weight:700;}#yiv2193948521
#yiv2193948521ygrp-reco #yiv2193948521reco-head
{color:#ff7900;font-weight:700;}#yiv2193948521 #yiv2193948521ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv2193948521 #yiv2193948521ygrp-sponsor
#yiv2193948521ov li a {font-size:130%;text-decoration:none;}#yiv2193948521
#yiv2193948521ygrp-sponsor #yiv2193948521ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv2193948521
#yiv2193948521ygrp-sponsor #yiv2193948521ov ul {margin:0;padding:0 0 0
8px;}#yiv2193948521 #yiv2193948521ygrp-text
{font-family:Georgia;}#yiv2193948521 #yiv2193948521ygrp-text p {margin:0 0 1em
0;}#yiv2193948521 #yiv2193948521ygrp-text tt {font-size:120%;}#yiv2193948521
#yiv2193948521ygrp-vital ul li:last-child {border-right:none
!important;}#yiv2193948521
--
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/32136480.110377.1585198114142%40mail.yahoo.com.
