(若是和其他不同软件互动之问题 请记得一并填写)
软件:excel
版本:2019
Public Function test1(PROD As String) As Integer
Dim wsFunc As WorksheetFunction: Set wsFunc =
Application.WorksheetFunction
Dim ws As Worksheet: Set ws = Sheets("Sheets1")
Dim rngLook As Range: Set rngLook = ws.Range("A1:B10")
Dim target_name As String
Dim value As String
On Error Resume Next
value = wsFunc.VLookup(PROD, rngLook, 2, False)
test1 = value
End Function
一直卡在黄字 阵列索引超出范围
我是想写一个变量带入
如果是 苹果 值=10
香蕉 值=20
前面会抓一个字串
fruit = 香蕉
Dim retVal As Integer
retVal = test1("fruit")
不知道该怎么改

检查是否有Sheets1这个工作表名称的工作表

有喔 我还特地复制贴上工作表的名称

确定有一样吗？来，来看https://i.imgur.com/phehf89.jpg工作表名称Sheets1 多个空格就会回传阵列索引超出范围

???????

都一致时有错吗？ https://i.imgur.com/4rSpYIm.jpg没，执行上没问题

多一个空白字符?

有没有这个工作表名称，这个工作表名称有没有一致是的，我回文就是再说为什么会产生这个错误多一个空白字符不一致时就会产生有没有这个可能，原po可以自行检查看看什么错误，无法回传正确资料还是错误讯息错误如果是无法回传正确资料fruit = 香蕉 (香蕉前后要有双引号)，下方test1括号内的不用双引号出现引数型态不符的话，宣告一下fruit为字串要不要看一下我回文12/18 23:48写的下方test1括号内的不用双引号，结果你回文连结内还是要以test1("fruit")，我也没办法以这个举例来看回传正确要的值，那就是对的那内文写的"一直卡在黄字 阵列索引超出范围"呢？缺少宣告这个变量出现的错误讯息，我回文12/18 23:48有写是引数型态不符，并不是"阵列索引超出范围"不用私下传给我。上传云端，开权限，贴连结。不限我回复原po这就是我第一笔12/18 23:18回文写的是否有这个工作表名称的工作表，开启后作用活页簿在库存明细.xlsx这个上，这个活页簿内就没有"入库记录"这个工作表那要指定的话宏这个活页簿内的入库记录，workbooks("完整档名").sheets(...)或是thisworkbook.sheets(..)加上后，执行就没有"阵列索引超出范围"错误讯息，a:g栏内也有资料写入https://i.imgur.com/idMlDEV.jpeg解读说是迷路就看原po。原因是使用中的活页簿为库存明细.xlsx，该活页簿并无入库记录这个工作表的缘故枢纽方面，看工作表"订单"的c栏到货日，储存格c2=IF(汇单!B2="","",汇单!B2)工作表"汇单"，储存格b2没有资料就回传空字串程序"枢纽重整"到货日的日期就会以空字串所以要改的话，将工作表"订单"的c栏到货日，找第二列往下第一笔有资料，这用match，对应b栏预交日期就看要用index、offset或indirect