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       '清除 控制項(清單方塊或下拉式清單方塊)的內容
   
8.         If opop Is Nothing Then
   
9.             MsgBox "找不到！"
   
10.         ElseIf Not opop Is Nothing Then
    
11.             i = 0
    
12.             Do While opop.Offset(i) Like jjo & "*"  '往下符合 jjo* 的字串
    
13.                 .AddItem    '清單方塊中加入一個項目
    
14.                 .List(.ListCount - 1, 0) = opop.Offset(i)
    
15.                 i = i + 1
    
16.             Loop
    
17.             '單獨一個儲存格無法指定到控制項的List
    
18.             'ListBox3.List = opop.Resize(2).Value '///可以試試看///
    
19.             '可以指定到控制項的 .Value
    
20.             ListBox3.Value = opop.Value
    
21.         End If
    
22.     End With
    
23. End Sub

複製代碼