:) wah ternyata saya salah yang tanya, yang saya tanyakan seperti dibawah ini : (didalam listbox seperti)
Laki-laki
√ Joko
√ Doni
Perempuan
√ Dini
√ putri
Jadi ada 2 judul atau lebih yang tidak bisa dicentrang di list boxnya yaitu laki laki dan perempuan. Apakah bisa seperti itu;)
trmaksih banyak
From: Haps <[email protected]>
To: [email protected]
Sent: Monday, October 3, 2011 10:20 AM
Subject: Re: [belajar-excel] memindahkan listbox ke kolom
Iyya dong,
(apa dulu dong: milisnya !? he he he..., )
dan ListBox nya juga di set Multi Kolom, dgn cara :
property ColumnCount di set sebanyak kolom yg diinginkan
Sampai saat ini, kita mengatur (setting) sebagian atribut object listbox dengan
melalui Property Box, ( pada saat "In Design Time") bukan di atur di coding VBA nya
Pada kesempatan lain, akan dipraktekkan setting property "in RunTime" (pada codingnya)
Private Sub CommandButton1_Click()
Dim TblRef As Range, n As Integer, r As Integer, c As Integer
Set TblRef = Range("B3").CurrentRegion.Offset(1, 0)
Set TblRef = TblRef.Resize(TblRef.Rows.Count - 1, TblRef.Columns.Count)
With TblRef.Offset(0, 14)
.CurrentRegion.Offset(1, 0).ClearContents
'-- Loop 2 tingkat untuk memindah tabel 2 Dimensi
For n = 0 To ListBox1.ListCount
If ListBox1.Selected(n) = True Then
r = r + 1
.Cells(r, 0) = n + 1
For c = 1 To TblRef.Columns.Count
.Cells(r, c) = TblRef(n + 1, c)
Next
ListBox1.Selected(n) = False
End If
Next n
End With
Cells(3, 2).Activate
End Sub
'-----------------------------------------
Penjelasan lebih lengkap ada di VBA Help, Object : ListBox / ComboBox;
jangan segan browsing juga, antara lain ke sini
-haps-
2011/10/3 bagusejogja <[email protected]>
Wah kok semakin menarik nih pembahasannya... malah menimbulkan pertanyaan pertanyaan baru ni.
Apakah bisa Columheads lebih dari satu ? terimakasih ;)
From: Haps <[email protected]>
To: [email protected]
Sent: Monday, October 3, 2011 4:04 AM
Subject: Re: [belajar-excel] memindahkan listbox ke kolomya tinggal menambah 1 (satu) pernyataan:ListBox1.Selected(n) = False saja...
