工作表的指定方式不對
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作者: chin15 時間: 2011-8-1 17:02
還有工作表"Table "的表名後面多一個空白格,要改過。作者: ELINA 時間: 2011-8-2 09:38