[µo°Ý] ½Ð±Ð ListBox1.List ¤§ColumnºÃ°Ý?

yangjie

½Ð±Ð¤j¤j
        Set d = CreateObject("Scripting.Dictionary")
                  With Sheets("°ò¥»¸ê®Æ")
                      For Each a In .Range(.Cells(2, 4), .Cells(65536, 4).End(xlUp))
                          d(a & "") = Array(a.Value, a.Offset(, -3).Value, a.Offset(, -2).Value)
                      Next
                 End With
       If d.Count = 0 Then Exit Sub
    ListBox1.Visible = True
    ListBox1.List = ?????
1.À³¦p¦ó¼g   ¤~¯à±N  Array(a.Offset(, -3).Value, a.Offset(, -2).Value)¤§¤º®e
   §e²{©óListBox1(columncount=3)¤º¥B¤À¥X3­Ó column
2.cells(1,1)= »Ý­n±o¨ì ListBox1.column(1)¤§Data
   cells(1,2)=  »Ý­n±o¨ìListBox1.column(2)¤§Data
   À³¦p¦ó¼g
3.·íµL¶·ListBox1¦s¦b ¦p¦ó¨ÏListBox1.Visible = False ·ífocus¦b¨ä¥Lcontrols®É
   ÁÂÁ«ü¾É

yangjie

·P¿E Hsieh ª©¤j
   §¹¥þ¸Ñ¨M°ÝÃD©Ò¦b  Á¤F
1.¾Ç¨ì¤F .List(.ListIndex, i - 1)
2..¾Ç·|  . List = Application.Transpose(Application.Transpose(d.items))
3.½Ð±Ð¦óª¬ªp¤U¥i¥Î. List = d.items ?