[µ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®É
   ÁÂÁ«ü¾É

stillfish00

¦^´_ 2# Hsieh

·Q½Ð±Ð³oÃä
.List = Application.Transpose(Application.Transpose(d.items))
¬°¤°»ò­n°µ¨â¦¸ªºÂà¸m¤~¯à¥Î©O?
¬O¤£¬O¸ò°}¦Cªººû«×¦³Ãö??

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 ?

Hsieh

¦^´_ 1# yangjie
¸Õ¸Õ¬Ý

1. Private Sub ListBox1_Change()  'ÂI¿ïLISTBOX1
   
2. With ListBox1
   
3. For i = 1 To 3
   
4. Cells(1, i) = .List(.ListIndex, i - 1)
   
5. Next
   
6. End With
   
7. End Sub
   
8. 
   
9. 
   
10. Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  'Â÷¶}LISTBOX1
    
11. ListBox1.Visible = False
    
12. End Sub
    
13. 
    
14. Private Sub UserForm_Initialize()  'ªí³æªì©l¤Æ
    
15.         Set d = CreateObject("Scripting.Dictionary")
    
16.                   With Sheets("°ò¥»¸ê®Æ")
    
17.                       For Each a In .Range(.Cells(2, 4), .Cells(65536, 4).End(xlUp))
    
18.                           d(a & "") = Array(a.Value, a.Offset(, -3).Value, a.Offset(, -2).Value)
    
19.                       Next
    
20.                  End With
    
21.        If d.Count = 0 Then Exit Sub
    
22. With ListBox1
    
23. .List = Application.Transpose(Application.Transpose(d.items))
    
24. .ColumnCount = 3
    
25. .Visible = True
    
26. End With
    
27. End Sub

½Æ»s¥N½X