帖子: 9
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: window xp
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: taiwan
註冊時間: 2011-6-11
最後登錄: 2020-7-21

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-6-29 15:09 | 只看該作者

VLOOKUP的問題

想請問一下如何在使用VBA的VLOOKUP，因為測試了很多但是抓的值都是錯誤，但又不知道哪裡錯誤，有沒有人可以幫我解釋一下

程式碼如下：

Sub V式抓值()

Dim x As Integer
Dim y As String
Dim z As String
1
z = 2
y = Worksheets("Sheet1").Range("A" & z).Value
Range("B2").Value = Application.VLookup(y, Sheet2.[A1:B100], 2)

End Sub

麻煩了！>"<

Book1.rar (12.15 KB)

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

14^#

發表於 2011-7-3 22:28 | 只看該作者

建議你別侷限於在VBA中引用工作表函數
效果不好還很費字
VBA有VBA自己的方法
此例用FIND方法就很適合
沒有左右邊的問題
參考一下說明嘗試看看吧！

TOP

sang520

小學生 Rank: 1

帖子: 9
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: window xp
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: taiwan
註冊時間: 2011-6-11
最後登錄: 2020-7-21

13^#

發表於 2011-7-3 20:18 | 只看該作者

哈！原來如此，我有嘗試這樣寫
if Application.VLookup(y, Sheet2.[A1:B100], 2, 0))=iserror then
可是錯誤一時也不知該怎麼處理，原來iserror的寫的方式跟函數很像，謝謝指導！
再請教一下application引用的函數中，為什麼不能使用offset呢??
那如果我想抓的直在索引列的左邊，因為vlookup只能往右邊抓值，但是
有時候數據在陣列的左邊，那該怎麼處理啊？

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2011-7-1 16:14 | 只看該作者

回復 11# sang520

If IsError(Application.VLookup(y, Sheet2.[A1:B100], 2, 0)) Then
MsgBox "計算有誤"
Else
Range("B2").Value = Application.VLookup(y, Sheet2.[A1:B100], 2, 0)
End If

學海無涯_不恥下問

TOP

sang520

小學生 Rank: 1

帖子: 9
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: window xp
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: taiwan
註冊時間: 2011-6-11
最後登錄: 2020-7-21

11^#

發表於 2011-7-1 10:50 | 只看該作者

想在請問一下！在函數的時候如果需要判斷是否錯誤的時候會常用
『if』搭配『iserror』去除錯誤的顯示方式，可是在VBA的時候該如
何去除錯呢？

TOP

sang520

小學生 Rank: 1

帖子: 9
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: window xp
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: taiwan
註冊時間: 2011-6-11
最後登錄: 2020-7-21

10^#

發表於 2011-6-30 11:34 | 只看該作者

謝謝！您的解答已經讓我找到答案了！
真的是受益良多！

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2011-6-30 11:15 | 只看該作者

VLOOKUP函數必須注意表格內資料型態與搜尋參數資料型態是否相符
也就是說當表格第一欄是數值你的VLOOKUP第一個參數也要是數值
表格第一欄是字串你的VLOOKUP第一個參數也要是字串

學海無涯_不恥下問

TOP

sang520