- ©«¤l
- 163
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 246
- ÂI¦W
- 27
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- ie
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-7-8
- ³Ì«áµn¿ý
- 2024-9-14
|
[µo°Ý] Userform listobx «eºÝ縹ªº¤è®æ
¦U¦ì¤j¤j,§A¦n
§ÚÀ³¦p¦óקï¥i¥H¥O¨ìUSERFORM1 ùتºLISTOBX ùبC¤@¶µ¥Øªº«eºÝ³£¥i¥H¦³¤@Ó縹ªº¤è®æ©O?
Private Sub CommandButton1_Click()
Dim rngMultiColumn As Range
Set rngMultiColumn = Range("A1:L1499")
ListBox1.ColumnCount = 12
ListBox1.RowSource = "A1:L1499"
With UserForm1.ListBox1
'Set column widths
.ColumnWidths = "100;50;50;40"
'Populate listbox
.List = rngMultiColumn.Cells.Value °ÝÃD¿ù¦b³o¨½
End With
End Sub |
|