[已解决]求助：EVALUATE使用出现错误

yh0825

附件中的D10、E10直接用公式可以实现正确结果，现在想用代码实现，但是用以下代码，却出错，对这个EVALUATE的用法还是摸不着头脑。

Cells(10, 4) = EVALUATE("=SUM(INDIRECT(""原始执行!""&VLOOKUP(D8&D9,字典!Q:W,5,0)&2" & ":" & "VLOOKUP(D8&D9,字典!Q:W,5,0)&40000))/2")

最佳答案

月排行榜 / 总排行榜

林木水

2021-12-16 15:17

改成公式吧,INDIRECT间接引用的时候，EVALUATE方法应该默认为字符串了：
Cells(10, 4).Formula = "=SUM(INDIRECT(""原始执行!""&VLOOKUP(D8&D9,字典!Q:W,5,0)&2&"":""&VLOOKUP(D8&D9,字典!Q:W,5,0)&40000))/2"
这个也能起到结果
说明一点：
双引号里面的内容有双引号，需要增加一对。比如原表格里面是="：" & A1,那么要调用的时候需要改成："="":"" & A1",而不是"="& ":" &" & A1"
=""

跳转到最佳答案楼层

林木水

改成公式吧,INDIRECT间接引用的时候，EVALUATE方法应该默认为字符串了：
Cells(10, 4).Formula = "=SUM(INDIRECT(""原始执行!""&VLOOKUP(D8&D9,字典!Q:W,5,0)&2&"":""&VLOOKUP(D8&D9,字典!Q:W,5,0)&40000))/2"
这个也能起到结果
说明一点：
双引号里面的内容有双引号，需要增加一对。比如原表格里面是="：" & A1,那么要调用的时候需要改成："="":"" & A1",而不是"="& ":" &" & A1"
=""

大灰狼1976

evaluate可以正确识别indirect，等下回家后我看看。
确认结果，evaluate可以正确识别indirect，但是仅限当前工作表内，跨工作表引用时错误。

yh0825

大灰狼1976 发表于 2021-12-16 15:55
evaluate可以正确识别indirect，等下回家后我看看。
确认结果，evaluate可以正确识别indirect，但是仅限当 ...

感谢版主出手相助，但本身我的表格里是有很多公式，因为公式多，所以速度很慢，再加上数据透析表，点选一个数据后要计算两遍，严重影响速度，所以就不想用公式，而是用代码实现。还请版主继续帮忙，看如何更好地解决这个问题。

     目前我把代码分解了一下：
     Cells(13, 3) = EVALUATE("=" & Sum & "(indirect(" & """原始执行!""" & "&VLOOKUP($D$8&D$9,字典!$Q:$W,5,0)&2))")     '这个可以得到正解结果0.25
      Cells(13, 3) = EVALUATE("=" & Sum & "(indirect(" & """原始执行!""" & "&VLOOKUP($D$8&D$9,字典!$Q:$W,5,0)&2&"":""&VLOOKUP($D$8&D$9,字典!$Q:$W,5,0)&4000))")    '但这个却得到了一个空值，虽不出错，但结果还是错的.

     版主能帮忙看看吗？谢谢啦！