[belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom

classic Classic list List threaded Threaded
5 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom

Gobang Gocir
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

=?UTF-8?b?QXNzZXNzbWVudCBEYXRhYmFzZSAtIENvcHkueGxzbQ==?= (90K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom

Kid
Administrator
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-us
sheet bernama 'datanya kid'
header di A1:Z1  (26 kolom)
data di A2:Z37 (36 baris)
header ditampilkan
kolom 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 26
2. ColumnHeads : diset true
3. ListFillRange (kalau listbox di worksheet) atau RowSource (kalau di
userform) : diset berisi string berbunyi   'datanya kid'!A2:Z37
4. ColumnWidths : diset 50;0;50;50;0     -> angka 50 adalah contoh untuk
kolom yang di-set dengan lebar 50 pt
jika 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  -> reset
mau clear listbox ? set nomor 3 dengan vbnullstring

properrti fillcolor untuk control namanya BackColor
kondisi 'jika kosong' berarti panjang karakter isinya adalah 0
if len(textboxnya.text)=0 then textboxnya.backcolor=vbwhite else
textboxtnya.backcolor=vbyellow





On Mon, Mar 16, 2020 at 11:48 AM Gobang Gocir [hidden email]
[belajar-excel] <[hidden email]> 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 Regards
> Bambang
>
>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom

Gobang Gocir
 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' [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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


   
  #yiv3210652835 #yiv3210652835 -- #yiv3210652835ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3210652835 #yiv3210652835ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3210652835 #yiv3210652835ygrp-mkp #yiv3210652835hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3210652835 #yiv3210652835ygrp-mkp #yiv3210652835ads {margin-bottom:10px;}#yiv3210652835 #yiv3210652835ygrp-mkp .yiv3210652835ad {padding:0 0;}#yiv3210652835 #yiv3210652835ygrp-mkp .yiv3210652835ad p {margin:0;}#yiv3210652835 #yiv3210652835ygrp-mkp .yiv3210652835ad a {color:#0000ff;text-decoration:none;}#yiv3210652835 #yiv3210652835ygrp-sponsor #yiv3210652835ygrp-lc {font-family:Arial;}#yiv3210652835 #yiv3210652835ygrp-sponsor #yiv3210652835ygrp-lc #yiv3210652835hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3210652835 #yiv3210652835ygrp-sponsor #yiv3210652835ygrp-lc .yiv3210652835ad {margin-bottom:10px;padding:0 0;}#yiv3210652835 #yiv3210652835actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3210652835 #yiv3210652835activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3210652835 #yiv3210652835activity span {font-weight:700;}#yiv3210652835 #yiv3210652835activity span:first-child {text-transform:uppercase;}#yiv3210652835 #yiv3210652835activity span a {color:#5085b6;text-decoration:none;}#yiv3210652835 #yiv3210652835activity span span {color:#ff7900;}#yiv3210652835 #yiv3210652835activity span .yiv3210652835underline {text-decoration:underline;}#yiv3210652835 .yiv3210652835attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3210652835 .yiv3210652835attach div a {text-decoration:none;}#yiv3210652835 .yiv3210652835attach img {border:none;padding-right:5px;}#yiv3210652835 .yiv3210652835attach label {display:block;margin-bottom:5px;}#yiv3210652835 .yiv3210652835attach label a {text-decoration:none;}#yiv3210652835 blockquote {margin:0 0 0 4px;}#yiv3210652835 .yiv3210652835bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3210652835 .yiv3210652835bold a {text-decoration:none;}#yiv3210652835 dd.yiv3210652835last p a {font-family:Verdana;font-weight:700;}#yiv3210652835 dd.yiv3210652835last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3210652835 dd.yiv3210652835last p span.yiv3210652835yshortcuts {margin-right:0;}#yiv3210652835 div.yiv3210652835attach-table div div a {text-decoration:none;}#yiv3210652835 div.yiv3210652835attach-table {width:400px;}#yiv3210652835 div.yiv3210652835file-title a, #yiv3210652835 div.yiv3210652835file-title a:active, #yiv3210652835 div.yiv3210652835file-title a:hover, #yiv3210652835 div.yiv3210652835file-title a:visited {text-decoration:none;}#yiv3210652835 div.yiv3210652835photo-title a, #yiv3210652835 div.yiv3210652835photo-title a:active, #yiv3210652835 div.yiv3210652835photo-title a:hover, #yiv3210652835 div.yiv3210652835photo-title a:visited {text-decoration:none;}#yiv3210652835 div#yiv3210652835ygrp-mlmsg #yiv3210652835ygrp-msg p a span.yiv3210652835yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3210652835 .yiv3210652835green {color:#628c2a;}#yiv3210652835 .yiv3210652835MsoNormal {margin:0 0 0 0;}#yiv3210652835 o {font-size:0;}#yiv3210652835 #yiv3210652835photos div {float:left;width:72px;}#yiv3210652835 #yiv3210652835photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv3210652835 #yiv3210652835photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3210652835 #yiv3210652835reco-category {font-size:77%;}#yiv3210652835 #yiv3210652835reco-desc {font-size:77%;}#yiv3210652835 .yiv3210652835replbq {margin:4px;}#yiv3210652835 #yiv3210652835ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3210652835 #yiv3210652835ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3210652835 #yiv3210652835ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3210652835 #yiv3210652835ygrp-mlmsg select, #yiv3210652835 input, #yiv3210652835 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3210652835 #yiv3210652835ygrp-mlmsg pre, #yiv3210652835 code {font:115% monospace;}#yiv3210652835 #yiv3210652835ygrp-mlmsg * {line-height:1.22em;}#yiv3210652835 #yiv3210652835ygrp-mlmsg #yiv3210652835logo {padding-bottom:10px;}#yiv3210652835 #yiv3210652835ygrp-msg p a {font-family:Verdana;}#yiv3210652835 #yiv3210652835ygrp-msg p#yiv3210652835attach-count span {color:#1E66AE;font-weight:700;}#yiv3210652835 #yiv3210652835ygrp-reco #yiv3210652835reco-head {color:#ff7900;font-weight:700;}#yiv3210652835 #yiv3210652835ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3210652835 #yiv3210652835ygrp-sponsor #yiv3210652835ov li a {font-size:130%;text-decoration:none;}#yiv3210652835 #yiv3210652835ygrp-sponsor #yiv3210652835ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3210652835 #yiv3210652835ygrp-sponsor #yiv3210652835ov ul {margin:0;padding:0 0 0 8px;}#yiv3210652835 #yiv3210652835ygrp-text {font-family:Georgia;}#yiv3210652835 #yiv3210652835ygrp-text p {margin:0 0 1em 0;}#yiv3210652835 #yiv3210652835ygrp-text tt {font-size:120%;}#yiv3210652835 #yiv3210652835ygrp-vital ul li:last-child {border-right:none !important;}#yiv3210652835  

=?UTF-8?b?QXNzZXNzbWVudCBEYXRhYmFzZSAtIFVQREFURSAtIENvcHkueGxzbQ==?= (124K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|

[milis-belajar-excel] Re: [belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom

Kid
Administrator
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 [hidden email] [belajar-excel] <[hidden email]> 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 Worksheet
Set Ws = Sheets("DB")
Dim wsrekap As Worksheet
Set wsrekap = Sheets("CARI")
Dim R As Range
Set R = Ws.Range("ListDBA")
Dim RFilter As Range
Set RFilter = Ws.Range("CG1:CG2")
Dim RCari As Range
Set 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' [hidden email] [belajar-excel] <[hidden email]> 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-us
sheet bernama 'datanya kid'
header di A1:Z1  (26 kolom)
data di A2:Z37 (36 baris)
header ditampilkan
kolom 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 26
2. ColumnHeads : diset true
3. ListFillRange (kalau listbox di worksheet) atau RowSource (kalau di userform) : diset berisi string berbunyi   'datanya kid'!A2:Z37
4. ColumnWidths : diset 50;0;50;50;0     -> angka 50 adalah contoh untuk kolom yang di-set dengan lebar 50 pt
jika 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  -> reset
mau clear listbox ? set nomor 3 dengan vbnullstring

properrti fillcolor untuk control namanya BackColor
kondisi 'jika kosong' berarti panjang karakter isinya adalah 0
if len(textboxnya.text)=0 then textboxnya.backcolor=vbwhite else textboxtnya.backcolor=vbyellow





On Mon, Mar 16, 2020 at 11:48 AM Gobang Gocir [hidden email] [belajar-excel] <[hidden email]> 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 Regards
Bambang

__._,_.___

Posted by: Gobang Gocir <[hidden email]>
Reply via web post [hidden email] [hidden email] Start a New Topic Messages in this topic (3)
============================================================
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: [hidden email]
posting ke milis, kirimkan ke: [hidden email]
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@.../
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: [hidden email]
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : [hidden email]
---------------------------------------------------------------------

.

__,_._,___

--
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 [hidden email].
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPscXxt%2BP8vsGyvqkmieD7f9e02P0Kq0hmbbr82%3DOgYu0A%40mail.gmail.com.
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom

Gobang Gocir
 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' [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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' [hidden email] [belajar-excel] <[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]> 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


   
   

   
  #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