[belajar-excel] listbox di excel 2010 hanya bisa menampilkan 10 kolom yang ke 11 eror [2 Attachments]

classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] listbox di excel 2010 hanya bisa menampilkan 10 kolom yang ke 11 eror [2 Attachments]

Milis Belajar Excel mailing list
DH,


Semangat Pagi


Para master mohon dibantu, saya punya masalah dengan kode ini :

Sub table()
Set datacoba = Sheets("arus kas")
ListBox1.RowSource = ""
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = "NO REKENING"
.List(.ListCount - 1, 1) = "NAMA BANK"
.List(.ListCount - 1, 2) = "TANGGAL"
.List(.ListCount - 1, 3) = "BUKTI TRANS"
.List(.ListCount - 1, 4) = "SETORAN"
.List(.ListCount - 1, 5) = "BUNGA"
.List(.ListCount - 1, 6) = "PENARIKAN"
.List(.ListCount - 1, 7) = "PAJAK"
.List(.ListCount - 1, 8) = "BIAYA ADM"
.List(.ListCount - 1, 9) = "SALDO"
.ColumnWidths = 90 & ";" & 70 & ";" & 70 & ";" & 90 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 70 & ";" & 90
End With
With datacoba
Set rgBase = datacoba.Range("A2:A500").SpecialCells(xlCellTypeVisible)
For Each sbase In rgBase
With ListBox1
.AddItem sbase.Value
.List(.ListCount - 1, 0) = sbase.Value
.List(.ListCount - 1, 1) = sbase.Offset(0, 1).Value
.List(.ListCount - 1, 2) = sbase.Offset(0, 3).Value
.List(.ListCount - 1, 3) = sbase.Offset(0, 5).Value
.List(.ListCount - 1, 4) = sbase.Offset(0, 6).Value
.List(.ListCount - 1, 5) = sbase.Offset(0, 7).Value
.List(.ListCount - 1, 6) = sbase.Offset(0, 8).Value
.List(.ListCount - 1, 7) = sbase.Offset(0, 9).Value
.List(.ListCount - 1, 8) = sbase.Offset(0, 10).Value
.List(.ListCount - 1, 9) = sbase.Offset(0, 11).Value
End With
Next sbase
End With
End Sub


jika mau tampilkan kolom ke 10 dengan tambahan kode :

.List(.ListCount - 1, 9) = "penerimaan" pasti terjadi error


Terlampir screen shot erro nya


pertanyaan :apakah untuk rumus diatas menampilkan data sheet update ke listbox hanya bisa sampai 10 kolom setelah itu error? , tolong dibantu para master


terimakasih
 






ARUS KAS.xlsm (31K) Download Attachment
TAMPILAN ERROR1 JIKA LISTBOX LEBIH DARI 10 KOLOM.jpg (265K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] listbox di excel 2010 hanya bisa menampilkan 10 kolom yang ke 11 eror

Milis Belajar Excel mailing list
Hai Tian,

Untuk cara definisi demikian, maka maksimalnya cuma 10 kolom (bawaan
oroknya dah begitu).

*Kasus dasar :*
Andai ada tabel di sheet 'Kid' dengan header di A1:Z1, dengan jumlah record
5 biji (di A2:Z6) dan nama listbox nya adalah lstKid
1. memanfaatkan rowsource (bound to range)
with lstKid
  .columncount=26 'A s.d. Z ada 26 kolom
  .columnheads=true
  .rowsource=sheets("Kid").range("A2:Z6").address
end with

2. memanfaatkan properti List (unbound), item pertama adalah header :
with lstKid
   .columncount=26
   .columnheads=false
   .list=sheets("Kid").range("A1:Z6").value
end with

atau kalau pakai array
dim vDaftar as variant
vDaftar=sheets("Kid").range("A1:Z6").value
with lstKid
   .columncount=26
   .columnheads=false
   .list=vDaftar
end with

*Kasus kolom yang terpilih saja :*
Andai ada tabel di sheet 'Kid' dengan header di A1:Z1, dengan jumlah record
5 biji (di A2:Z6) dan nama listbox nya adalah lstKid
Pengennya, listbox hanya berisi data A2:Z6 beserta header hanya kolom
C,K,L,M,N,T,Y (7 kolom saja)
1. memanfaatkan rowsource (bound to range)
    > harus menyediakan area range lain sebagai tabel kecil untuk daftar,
misal di BA1:BZ6
sheets("Kid").range("A:Z").entirecolumn.hidden=true                   'hide
seluruh sumber data dulu
sheets("Kid").range("C:C,K:N,T:T,Y:Y").entirecolumn.hidden=false
'tampilkan kolom yang diinginkan
sheets("Kid").range("A1:Z6").specialcells(xlcelltypevisible).copy
sheets("Kid").range("BA1").pastespecial xlpastevalues
sheets("Kid").range("A:Z").entirecolumn.hidden=false
with lstKid
  .columncount=*7* 'C,K,L,M,N,T,Y (*7* kolom saja)
  .columnheads=true
  .rowsource=sheets("Kid").range("BA2:BA6").resize(,*7*).address
end with

Untuk pakai properti List juga demikian.

*Kasus baris yang terpilih saja (misal hasil autofilter) :*
1. memanfaatkan rowsource (bound to range)
    > harus menyediakan area range lain sebagai tabel kecil untuk daftar,
misal di BA1:BZ6
dim lLastRow as long
sheets("Kid").range("A1:Z6").specialcells(xlcelltypevisible).copy
sheets("Kid").range("BA1").pastespecial xlpastevalues
llastrow=sheets("Kid").cells(rows.count,"BA").end(xlup).row
with lstKid
  .columncount=26
  .columnheads=true
  .rowsource=sheets("Kid").range("BA2:BZ2").resize(llastrow-1).address
'-1 karena header di baris ke-1
end with

*Kasus baris yang terpilih (misal hasil autofilter) dan kolom juga yang
terpilih : *[ C,K,L,M,N,T,Y (7 kolom saja) ]
dim lLastRow as long
sheets("Kid").range("A:Z").entirecolumn.hidden=true                   'hide
seluruh sumber data dulu
sheets("Kid").range("C:C,K:N,T:T,Y:Y").entirecolumn.hidden=false
'tampilkan kolom yang diinginkan
sheets("Kid").range("A1:Z6").specialcells(xlcelltypevisible).copy
sheets("Kid").range("BA1").pastespecial xlpastevalues
sheets("Kid").range("A:Z").entirecolumn.hidden=false
llastrow=sheets("Kid").cells(rows.count,"BA").end(xlup).row
with lstKid
  .columncount=*7* 'C,K,L,M,N,T,Y (*7* kolom saja)
  .columnheads=true
  .rowsource=sheets("Kid").range("BA2").resize(llastrow,*7*).address
end with

Kira-kira demikian.

Regards,
Kid





2017-07-23 5:09 GMT+07:00 'Christian. SimanjuntakTMJOAN'
[hidden email] [belajar-excel] <
[hidden email]>:

>
>
> DH,
>
> Semangat Pagi
>
> Para master mohon dibantu, saya punya masalah dengan kode ini :
>
> Sub table()
> Set datacoba = Sheets("arus kas")
> ListBox1.RowSource = ""
> With ListBox1
> .AddItem
> .List(.ListCount - 1, 0) = "NO REKENING"
> .List(.ListCount - 1, 1) = "NAMA BANK"
> .List(.ListCount - 1, 2) = "TANGGAL"
> .List(.ListCount - 1, 3) = "BUKTI TRANS"
> .List(.ListCount - 1, 4) = "SETORAN"
> .List(.ListCount - 1, 5) = "BUNGA"
> .List(.ListCount - 1, 6) = "PENARIKAN"
> .List(.ListCount - 1, 7) = "PAJAK"
> .List(.ListCount - 1, 8) = "BIAYA ADM"
> .List(.ListCount - 1, 9) = "SALDO"
> .ColumnWidths = 90 ";" 70 ";" 70 ";" 90 ";" 70 ";" 70 ";" 70 ";" 70 ";" 70
> ";" 70 ";" 70 ";" 90
> End With
> With datacoba
> Set rgBase = datacoba.Range("A2:A500").SpecialCells(xlCellTypeVisible)
> For Each sbase In rgBase
> With ListBox1
> .AddItem sbase.Value
> .List(.ListCount - 1, 0) = sbase.Value
> .List(.ListCount - 1, 1) = sbase.Offset(0, 1).Value
> .List(.ListCount - 1, 2) = sbase.Offset(0, 3).Value
> .List(.ListCount - 1, 3) = sbase.Offset(0, 5).Value
> .List(.ListCount - 1, 4) = sbase.Offset(0, 6).Value
> .List(.ListCount - 1, 5) = sbase.Offset(0, 7).Value
> .List(.ListCount - 1, 6) = sbase.Offset(0, 8).Value
> .List(.ListCount - 1, 7) = sbase.Offset(0, 9).Value
> .List(.ListCount - 1, 8) = sbase.Offset(0, 10).Value
> .List(.ListCount - 1, 9) = sbase.Offset(0, 11).Value
> End With
> Next sbase
> End With
> End Sub
>
> jika mau tampilkan kolom ke 10 dengan tambahan kode :
>
> .List(.ListCount - 1, 9) = "penerimaan" pasti terjadi error
>
> Terlampir screen shot erro nya
>
> pertanyaan :apakah untuk rumus diatas menampilkan data sheet update ke
> listbox hanya bisa sampai 10 kolom setelah itu error? , tolong dibantu para
> master
>
> terimakasih
>
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] listbox di excel 2010 hanya bisa menampilkan 10 kolom yang ke 11 eror

Milis Belajar Excel mailing list
Dh,

Trimakasih pencerahan nya Mr.Kid, bnyak jalan alternatif, sangat bermanfaat
dan jelas.

Salam Sukses Slalu
Pada tanggal 25 Jul 2017 20.27, "'Mr. Kid' [hidden email]
[belajar-excel]" <[hidden email]> menulis:

>
>
> Hai Tian,
>
> Untuk cara definisi demikian, maka maksimalnya cuma 10 kolom (bawaan
> oroknya dah begitu).
>
> *Kasus dasar :*
> Andai ada tabel di sheet 'Kid' dengan header di A1:Z1, dengan jumlah
> record 5 biji (di A2:Z6) dan nama listbox nya adalah lstKid
> 1. memanfaatkan rowsource (bound to range)
> with lstKid
>   .columncount=26 'A s.d. Z ada 26 kolom
>   .columnheads=true
>   .rowsource=sheets("Kid").range("A2:Z6").address
> end with
>
> 2. memanfaatkan properti List (unbound), item pertama adalah header :
> with lstKid
>    .columncount=26
>    .columnheads=false
>    .list=sheets("Kid").range("A1:Z6").value
> end with
>
> atau kalau pakai array
> dim vDaftar as variant
> vDaftar=sheets("Kid").range("A1:Z6").value
> with lstKid
>    .columncount=26
>    .columnheads=false
>    .list=vDaftar
> end with
>
> *Kasus kolom yang terpilih saja :*
> Andai ada tabel di sheet 'Kid' dengan header di A1:Z1, dengan jumlah
> record 5 biji (di A2:Z6) dan nama listbox nya adalah lstKid
> Pengennya, listbox hanya berisi data A2:Z6 beserta header hanya kolom
> C,K,L,M,N,T,Y (7 kolom saja)
> 1. memanfaatkan rowsource (bound to range)
>     > harus menyediakan area range lain sebagai tabel kecil untuk daftar,
> misal di BA1:BZ6
> sheets("Kid").range("A:Z").entirecolumn.hidden=true
> 'hide seluruh sumber data dulu
> sheets("Kid").range("C:C,K:N,T:T,Y:Y").entirecolumn.hidden=false
> 'tampilkan kolom yang diinginkan
> sheets("Kid").range("A1:Z6").specialcells(xlcelltypevisible).copy
> sheets("Kid").range("BA1").pastespecial xlpastevalues
> sheets("Kid").range("A:Z").entirecolumn.hidden=false
> with lstKid
>   .columncount=*7* 'C,K,L,M,N,T,Y (*7* kolom saja)
>   .columnheads=true
>   .rowsource=sheets("Kid").range("BA2:BA6").resize(,*7*).address
> end with
>
> Untuk pakai properti List juga demikian.
>
> *Kasus baris yang terpilih saja (misal hasil autofilter) :*
> 1. memanfaatkan rowsource (bound to range)
>     > harus menyediakan area range lain sebagai tabel kecil untuk daftar,
> misal di BA1:BZ6
> dim lLastRow as long
> sheets("Kid").range("A1:Z6").specialcells(xlcelltypevisible).copy
> sheets("Kid").range("BA1").pastespecial xlpastevalues
> llastrow=sheets("Kid").cells(rows.count,"BA").end(xlup).row
> with lstKid
>   .columncount=26
>   .columnheads=true
>   .rowsource=sheets("Kid").range("BA2:BZ2").resize(llastrow-1).address
> '-1 karena header di baris ke-1
> end with
>
> *Kasus baris yang terpilih (misal hasil autofilter) dan kolom juga yang
> terpilih : *[ C,K,L,M,N,T,Y (7 kolom saja) ]
> dim lLastRow as long
> sheets("Kid").range("A:Z").entirecolumn.hidden=true
> 'hide seluruh sumber data dulu
> sheets("Kid").range("C:C,K:N,T:T,Y:Y").entirecolumn.hidden=false
> 'tampilkan kolom yang diinginkan
> sheets("Kid").range("A1:Z6").specialcells(xlcelltypevisible).copy
> sheets("Kid").range("BA1").pastespecial xlpastevalues
> sheets("Kid").range("A:Z").entirecolumn.hidden=false
> llastrow=sheets("Kid").cells(rows.count,"BA").end(xlup).row
> with lstKid
>   .columncount=*7* 'C,K,L,M,N,T,Y (*7* kolom saja)
>   .columnheads=true
>   .rowsource=sheets("Kid").range("BA2").resize(llastrow,*7*).address
> end with
>
> Kira-kira demikian.
>
> Regards,
> Kid
>
>
>
>
>
> 2017-07-23 5:09 GMT+07:00 'Christian. SimanjuntakTMJOAN'
> [hidden email] [belajar-excel] <
> [hidden email]>:
>
>>
>>
>> DH,
>>
>> Semangat Pagi
>>
>> Para master mohon dibantu, saya punya masalah dengan kode ini :
>>
>> Sub table()
>> Set datacoba = Sheets("arus kas")
>> ListBox1.RowSource = ""
>> With ListBox1
>> .AddItem
>> .List(.ListCount - 1, 0) = "NO REKENING"
>> .List(.ListCount - 1, 1) = "NAMA BANK"
>> .List(.ListCount - 1, 2) = "TANGGAL"
>> .List(.ListCount - 1, 3) = "BUKTI TRANS"
>> .List(.ListCount - 1, 4) = "SETORAN"
>> .List(.ListCount - 1, 5) = "BUNGA"
>> .List(.ListCount - 1, 6) = "PENARIKAN"
>> .List(.ListCount - 1, 7) = "PAJAK"
>> .List(.ListCount - 1, 8) = "BIAYA ADM"
>> .List(.ListCount - 1, 9) = "SALDO"
>> .ColumnWidths = 90 ";" 70 ";" 70 ";" 90 ";" 70 ";" 70 ";" 70 ";" 70 ";"
>> 70 ";" 70 ";" 70 ";" 90
>> End With
>> With datacoba
>> Set rgBase = datacoba.Range("A2:A500").SpecialCells(xlCellTypeVisible)
>> For Each sbase In rgBase
>> With ListBox1
>> .AddItem sbase.Value
>> .List(.ListCount - 1, 0) = sbase.Value
>> .List(.ListCount - 1, 1) = sbase.Offset(0, 1).Value
>> .List(.ListCount - 1, 2) = sbase.Offset(0, 3).Value
>> .List(.ListCount - 1, 3) = sbase.Offset(0, 5).Value
>> .List(.ListCount - 1, 4) = sbase.Offset(0, 6).Value
>> .List(.ListCount - 1, 5) = sbase.Offset(0, 7).Value
>> .List(.ListCount - 1, 6) = sbase.Offset(0, 8).Value
>> .List(.ListCount - 1, 7) = sbase.Offset(0, 9).Value
>> .List(.ListCount - 1, 8) = sbase.Offset(0, 10).Value
>> .List(.ListCount - 1, 9) = sbase.Offset(0, 11).Value
>> End With
>> Next sbase
>> End With
>> End Sub
>>
>> jika mau tampilkan kolom ke 10 dengan tambahan kode :
>>
>> .List(.ListCount - 1, 9) = "penerimaan" pasti terjadi error
>>
>> Terlampir screen shot erro nya
>>
>> pertanyaan :apakah untuk rumus diatas menampilkan data sheet update ke
>> listbox hanya bisa sampai 10 kolom setelah itu error? , tolong dibantu para
>> master
>>
>> terimakasih
>>
>>
>>
>
>
Loading...