- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2014-9-5
- 最後登錄
- 2014-12-19
|
大家好!~~因本人寫的VB 是在網上學習回來,有好多不懂地方。請多多指教。
現在問問題啦!
我建立了料廣庫名為 No Duplicate 的工作表內。
而在 工作表 "Look_up"
我設計了可以在 A4 空格內 選擇 不同的區部名稱後,找出 工作表 "No Duplicate " 的相關資料，
在工作表"Lookup"A11至E11空格內,以下拉式方法顯示出來。
現在我想在 B4 空格 輸入苑廈的英文關鍵字 例如大廈名稱是 "Newton Harbour View" 我只需輸入英文字母前2至3個字
，按下確定大廈名後，能在工作表"Lookup"A11至E11空格內,以下拉式方法顯示相關字母代表的大廈資料。
我只能寫到 全完符合條件才能找到。
- Dim X, Y As IntegerApplication.EnableEvents = False
- Y = 11
- X = 2
- ActiveSheet.Unprotect
- Range("A11:E50").Delete
- Do Until Sheets("No Duplicate").Range("E" & X).Value = ""
- H = Sheets("Look_up").Range("B4").Value
- L = Sheets("No Duplicate").Range("E" & X).Value
- If L = H Then
- Sheets("Look_up").Range("A" & Y).Value = Sheets("No Duplicate").Range("I" & X).Value
- Sheets("Look_up").Range("B" & Y).Value = Sheets("No Duplicate").Range("B" & X).Value
- Sheets("Look_up").Range("C" & Y).Value = Sheets("No Duplicate").Range("E" & X).Value
- Sheets("Look_up").Range("D" & Y).Value = Sheets("No Duplicate").Range("F" & X).Value
- Sheets("Look_up").Range("E" & Y).Value = Sheets("No Duplicate").Range("G" & X).Value
- Y = Y + 1
- X = X + 1
- Else
- X = X + 1
- End If
- Loop
- Application.DisplayAlerts = False
- Range("A11").Select
- Selection.CurrentRegion.Select
- Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
- False
-
- Range("A4").Select
- Application.DisplayAlerts = True
- MsgBox "Finished"
- 'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
- Application.EnableEvents = True
- End Sub
|
-
-
test.zip
(995.56 KB)
|
發表於 2014-11-10 11:39
| 
