[發問] 如果用關鍵單字入找尋資料及顯示出來

風云

大家好!~~因本人寫的VB 是在網上學習回來,有好多不懂地方。請多多指教。
現在問問題啦!

我建立了料廣庫名為 No Duplicate 的工作表內。

下載 (226.57 KB)

2014-11-10 11:05

而在 工作表 "Look_up"

下載 (168.79 KB)

2014-11-10 11:09

  

我設計了可以在 A4 空格內 選擇 不同的區部名稱後,找出 工作表  "No Duplicate " 的相關資料，
在工作表"Lookup"A11至E11空格內,以下拉式方法顯示出來。

現在我想在 B4 空格 輸入苑廈的英文關鍵字 例如大廈名稱是 "Newton Harbour View" 我只需輸入英文字母前2至3個字
，按下確定大廈名後，能在工作表"Lookup"A11至E11空格內,以下拉式方法顯示相關字母代表的大廈資料。

我只能寫到 全完符合條件才能找到。

1. Dim X, Y As IntegerApplication.EnableEvents = False
   
2. 
   
3. Y = 11
   
4. X = 2
   
5. ActiveSheet.Unprotect
   
6. Range("A11:E50").Delete
   
7. 
   
8. Do Until Sheets("No Duplicate").Range("E" & X).Value = ""
   
9. H = Sheets("Look_up").Range("B4").Value
   
10. L = Sheets("No Duplicate").Range("E" & X).Value
    
11. 
    
12. 
    
13. 
    
14. If L = H Then
    
15. 
    
16. Sheets("Look_up").Range("A" & Y).Value = Sheets("No Duplicate").Range("I" & X).Value
    
17. Sheets("Look_up").Range("B" & Y).Value = Sheets("No Duplicate").Range("B" & X).Value
    
18. Sheets("Look_up").Range("C" & Y).Value = Sheets("No Duplicate").Range("E" & X).Value
    
19. Sheets("Look_up").Range("D" & Y).Value = Sheets("No Duplicate").Range("F" & X).Value
    
20. Sheets("Look_up").Range("E" & Y).Value = Sheets("No Duplicate").Range("G" & X).Value
    
21. Y = Y + 1
    
22. X = X + 1
    
23. Else
    
24. X = X + 1
    
25. 
    
26. End If
    
27. 
    
28. 
    
29. 
    
30. Loop
    
31. Application.DisplayAlerts = False
    
32. 
    
33. Range("A11").Select
    
34. Selection.CurrentRegion.Select
    
35.     Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
    
36.         False
    
37.    
    
38. Range("A4").Select
    
39. Application.DisplayAlerts = True
    
40. 
    
41. MsgBox "Finished"
    
42. 'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    
43. Application.EnableEvents = True
    
44. End Sub

複製代碼

請看 attache　file。