Question

我已在VBA中编写了一些代码，我的代码中断了此行，引发了应用程序定义或对象定义错误。

.Formula = "=IF(AND(chr(34) & ' & chr(34) & Criterion " & i & "'!" & cellAdress & ">=1;chr(34) & ' & chr(34) & Criterion " & i & "'!" & cellAdress & "<=4);chr(34) & ' & chr(34) & Criterion " & i & "'!" & cellAdress & ";0)"

我真的试图检查出了什么问题，但我看起来也很好。请告诉我可能出现的问题以及解决方法。

谢谢

Answer 1

我想你想要

.Formula = "=IF(AND('Criterion " & i & "'!" & cellAdress & ">=1;'Criterion " & i & "'!" & cellAdress & "<=4);'Criterion " & i & "'!" & cellAdress & ";0)"

至少这会产生一个有效且合理的细胞配方，你的不会。

将cellAdress设置为"A1"并将i设置为10，结果为：

"=IF(AND('Criterion 10'!A1>=1;'Criterion 10'!A1<=4);'Criterion 10'!A1;0)"

Answer 2

好的我现在明白了。在我跑步之前，我的VBA也没有引发任何错误。也许我在看这段代码太久了，发疯了。我的单元格地址包含D18，而我包含1.我有一张名为Criterion 1的工作表，此工作表中的单元格的值为2（我在空白时也尝试过）。仍然会出现此错误，我不知道是什么导致它。

VBA代码应用程序或对象错误的问题

2 个答案: