返回列表 上一主題 發帖

如何在VBA中使用VLOOKUP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-5-23 11:51 | 只看該作者

如何在VBA中使用VLOOKUP

請問在VBA 內, 如何使用VLOOKUP函數
例如在工作表內= vlookup(a1,data,3,false) 在巨集應該如何修改
需要在前面加上Application.worksheetfunction 嗎?
請指教
收藏 分享

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
6#
發表於 2012-5-26 11:58 | 只看該作者
我都學會了, 謝謝

TOP

man65boy

帖子
169 
主題
39 
精華
0 
積分
252 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2011-4-17 
最後登錄
2020-7-17 

2012龍年全勤獎章2011兔年全勤獎章
5#
發表於 2012-5-24 22:34 | 只看該作者
回復 4# register313


    收到~學習了，謝謝!

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-5-24 21:37 | 只看該作者
回復 3# man65boy

工作表模組
  1. Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
  2. Dim data As Range
  3. Set data = [d1:f10]
  4. If TARGET.Address = "$A$1" Then [b1] = Application.WorksheetFunction.VLookup([a1], data, 3, 0)
  5. End Sub
複製代碼

TOP

man65boy

帖子
169 
主題
39 
精華
0 
積分
252 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2011-4-17 
最後登錄
2020-7-17 

2012龍年全勤獎章2011兔年全勤獎章
3#
發表於 2012-5-24 21:30 | 只看該作者
回復 2# register313

請教大大，如果以此題目，不使用按鈕，如何輸入後立即更新，感謝撥冗指導!

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-5-23 12:15 | 只看該作者
回復 1# enoch

vba內要使用工作表函數,須在工作表函數前加 Application.WorksheetFunction (或Application)
  1. Sub XX()
  2. Dim data As Range
  3. Set data = [d1:f10]
  4. [b1] = Application.WorksheetFunction.VLookup([a1], data, 3, 0)
  5. End Sub
複製代碼

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題