- 帖子
- 4
- 主題
- 0
- 精華
- 0
- 積分
- 4
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- excel2003
- 閱讀權限
- 10
- 註冊時間
- 2014-5-1
- 最後登錄
- 2014-5-9
|
回復 infoverdad
不錯的分享,另用 Find 方法 分享.
GBKEE 發表於 2011-7-18 20:23 
GBKEE版大好
小弟是剛開始自學vba的初心者，看到這模擬vlookup的程式很想學習。
由於註冊論壇也沒多久，所以沒辦法下載infoverdad大大的附件。
只好看您寫的程式來揣摩，只是礙於我是初心者，其實也根本看不懂你在寫什麼。
後來我只好一句一句的用F1慢慢查，然後再看infoverdad大大貼的圖，用瞎猜的方式做出那一個工作表。
我不確定我做的對不對，至少能發揮跟infoverdad大大說的類似vlookup查詢功能的效果。
以下，想請您幫我看看我做的對不對，我是直接貼上您的程式，然後畫出來的工作表。
大概就是圖中的工作表貼上您的程式可以正常運作。
但重點是我大概知道程式中每一列的作用，但我不懂每一句實際上的用法。
所以想請教您，不曉得您能不能用白話一點的方式為我解釋一下，謝謝~~
Private Sub Worksheet_Change(ByVal Target As Range) '這一句是不是當target的儲存格有變動的時候就讓sub內的程式執行? 只是為什麼這個sub必須加上private?
Dim wsLists As Worksheet, Rng As Range 'dim我翻書知道大概是宣告的意思吧，所以整句的意思是宣告wsLists是工作表，rng是範圍?
If Target.Count > 1 Then Exit Sub '這句就是我遇到第一個不會的了，if的部分沒什麼問題，target跟Exit Sub我也曉得，只是Count是什麼意思啊?我搞不清楚Count，用F1的說明我實在也看不懂@@
Set wsLists = Worksheets("Lists") '這個是把Lists這個sheet指定給wsLists
Application.EnableEvents = False '這句我google了好久，半知半解，是不是指false的時候先停止這段程式的運作，等被Application.EnableEvents = False跟true包起來的這段程式確實跑完，Application.EnableEvents 變成true，程式才會確實執行?
If Target.Column = 2 Then '這是指target的行數=2就then
Set Rng = wsLists.Range("A:A").Find(Target, LookAt:=xlWhole, MatchCase:=True) '這個是用find開始查詢了，指定給rng，只是我不懂lookat:=xlWhole是什麼意思，F1的說明也沒有特別說明xlWhole是在幹嘛，MatchCase:=True是把大小寫也列入判斷條件裡吧?
With Target.Offset(0, 1) '這邊是讓target的結果往右飄一格，只是我不懂為什麼要用with
If Not Rng Is Nothing Then .Value = Rng.Offset(0, 1).Value Else .Value = "" 'Not Rng Is Nothing，我想了很久，所以應該是負負得正的意思?
下面的東西就是再重複一次只是方向不同對吧?
End With
ElseIf Target.Column = 3 Then
Set Rng = wsLists.Range("B:B").Find(Target, LookAt:=xlWhole, MatchCase:=True)
With Target.Offset(0, -1)
If Not Rng Is Nothing Then .Value = Rng.Offset(0, -1).Value Else .Value = ""
End With
End If
Application.EnableEvents = True
End Sub
以上，我問的方式很無腦，因為我對VBA實在是沒什麼基礎可言。
不過我是真的很想學，如果GBKEE版大不嫌麻煩的話，還請您幫我解惑一下。
請盡可能白話一點，F1的說明有的部份我看得很模糊.......
謝謝~~(跪) |
|
發表於 2014-5-1 02:12
| 
