如何在VBA中使用VLOOKUP - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何在VBA中使用VLOOKUP

返回列表下一主題上一主題發帖

如何在VBA中使用VLOOKUP

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-5-23 12:15 | 顯示全部帖子

回復 1# enoch

vba內要使用工作表函數,須在工作表函數前加 Application.WorksheetFunction (或Application)

Sub XX()
Dim data As Range
Set data = [d1:f10]
[b1] = Application.WorksheetFunction.VLookup([a1], data, 3, 0)
End Sub

複製代碼

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-5-24 21:37 | 顯示全部帖子

回復 3# man65boy

工作表模組

Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
Dim data As Range
Set data = [d1:f10]
If TARGET.Address = "$A$1" Then [b1] = Application.WorksheetFunction.VLookup([a1], data, 3, 0)
End Sub

複製代碼

靜思自在 : 小事不做、大事難成。

返回列表下一主題上一主題