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