­ã´£³¡ªL

1. Private Sub CommandButton1_Click()
   
2. With Sheets("Sheet1")
   
3.     .[H1].Value = Label2.Caption
   
4.     .[H2].Value = Label3.Caption
   
5. End With
   
6. End Sub
   
7. ¡@
   
8. Private Sub ListBox1_Change()
   
9. Label2.Caption = ListBox1.Column(0)
   
10. Label3.Caption = ListBox1.Column(1)
    
11. End Sub
    
12. ¡@
    
13. Private Sub TextBox1_Change()
    
14. Dim i, Arr, xD, N&
    
15. If TextBox1 = "" Then GoTo 101
    
16. Arr = Sheet1.UsedRange.Columns("A:B").Cells
    
17. Set xD = CreateObject("Scripting.Dictionary")
    
18. For i = 2 To UBound(Arr)
    
19. ¡@¡@If InStr(Arr(i, 2), TextBox1) Then N = N + 1: xD(N) = Array(Arr(i, 1), Arr(i, 2))
    
20. Next i
    
21. If N = 0 Then GoTo 101
    
22. ListBox1.List = Application.Transpose(Application.Transpose(xD.items))
    
23. ListBox1.Visible = True
    
24. Exit Sub
    
25. 101:
    
26. Label2.Caption = "": Label3.Caption = "": ListBox1.Visible = False
    
27. End Sub
    
28. ¡@
    
29. Private Sub UserForm_Initialize()
    
30. ListBox1.Visible = False
    
31. End Sub

½Æ»s¥N½X

ªþ¥ó¤U¸ü¡G
©ú²Ó¬d¸ßv01.rar (53.28 KB)

¤U¸ü¦¸¼Æ: 11

2015-9-8 23:00

¡@