返回列表 上一主題 發帖

[發問] vlookup找到不值

ELINA

帖子
12 
主題
3 
精華
0 
積分
53 
點名
0  
作業系統
win2000 
軟體版本
Office 2003 
閱讀權限
20 
性別
女 
註冊時間
2011-4-15 
最後登錄
2013-2-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-8-1 14:27 | 只看該作者

[發問] vlookup找到不值

嘗試在vba中使用vlookup，但一直無法找到值
請幫忙查看是那裡錯誤...
麻煩了 Book1.rar (7.39 KB)
樓主熱帖
收藏 分享

ELINA

帖子
12 
主題
3 
精華
0 
積分
53 
點名
0  
作業系統
win2000 
軟體版本
Office 2003 
閱讀權限
20 
性別
女 
註冊時間
2011-4-15 
最後登錄
2013-2-25 
4#
發表於 2011-8-2 09:38 | 只看該作者
謝謝chin15大
原來是要這麼寫哦...
終於了解啦:D

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
3#
發表於 2011-8-1 17:02 | 只看該作者
還有工作表"Table "的表名後面多一個空白格，要改過。

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
2#
發表於 2011-8-1 16:59 | 只看該作者
工作表的指定方式不對
Function TEST(ByVal strAccNo As String) As String
    Dim A As Integer   '這行做什麼用  
    If strAccNo <> "" Then
       TEST = Application.VLookup(Mid(strAccNo, 3, 1), Sheets("Table").[A1:B26], 2, 0)
    End If
     End Function

TOP

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題