[µo°Ý] Userform listobx «eºÝ­ç¸¹ªº¤è®æ

mdr0465

¦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

°a¤ªºµ

¦^´_ 1# mdr0465

§â.List = rngMultiColumn.Cells.Value §R°£
¦bListBox1ªºÄݳ]©w ¦Cªí¼Ë¦¡ §ï 1

mdr0465

¦^´_ 2# °a¤ªºµ

ºµ®v¥S¡A¦¨¥\¤F¡AÁÂÁ§A