ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

[µ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

USERFORM LIST BOX.zip (26.13 KB)

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-6-3 00:45 ½s¿è

¦^´_ 1# mdr0465

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

TOP

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

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

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD