- 帖子
- 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 |
|
