GBKEE

¦^´_ 1# prince120101

1. Private Sub ListBox2_Click()
   
2.     Dim opop As Range, jjo As Long
   
3.     Sheets(ListBox1.Value).Activate
   
4.     jjo = ListBox2.Value
   
5.     Set opop = Workbooks("TEST.xlsm").Worksheets(ListBox1.Value).Columns("d").Cells.Find(What:=jjo, SearchDirection:=xlNext)
   
6.     With ListBox3
   
7.         .Clear       '²M°£ ±±¨î¶µ(²M³æ¤è¶ô©Î¤U©Ô¦¡²M³æ¤è¶ô)ªº¤º®e
   
8.         If opop Is Nothing Then
   
9.             MsgBox "§ä¤£¨ì¡I"
   
10.         ElseIf Not opop Is Nothing Then
    
11.             i = 0
    
12.             Do While opop.Offset(i) Like jjo & "*"  '©¹¤U²Å¦X jjo* ªº¦r¦ê
    
13.                 .AddItem    '²M³æ¤è¶ô¤¤¥[¤J¤@­Ó¶µ¥Ø
    
14.                 .List(.ListCount - 1, 0) = opop.Offset(i)
    
15.                 i = i + 1
    
16.             Loop
    
17.             '³æ¿W¤@­ÓÀx¦s®æµLªk«ü©w¨ì±±¨î¶µªºList
    
18.             'ListBox3.List = opop.Resize(2).Value '///¥i¥H¸Õ¸Õ¬Ý///
    
19.             '¥i¥H«ü©w¨ì±±¨î¶µªº .Value
    
20.             ListBox3.Value = opop.Value
    
21.         End If
    
22.     End With
    
23. End Sub

½Æ»s¥N½X