返回列表 上一主題 發帖

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

風云

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
Windows 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
註冊時間
2014-9-5 
最後登錄
2014-12-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-10 11:39 | 只看該作者

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

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

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

而在 工作表 "Look_up"
  

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

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

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



  1. Dim X, Y As IntegerApplication.EnableEvents = False

  3. Y = 11
  4. X = 2
  5. ActiveSheet.Unprotect
  6. Range("A11:E50").Delete

  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



  14. If L = H Then

  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

  26. End If



  30. Loop
  31. Application.DisplayAlerts = False

  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

  41. MsgBox "Finished"
  42. 'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  43. Application.EnableEvents = True
  44. End Sub
複製代碼
請看 attache　file。

test.zip (995.56 KB)

收藏 分享

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題