vba - problems with VBA code application or object error

Question

I have coded some code in VBA my code breaks at this line raising Application defined or object defined error.

.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)"

I really tried to check what is wrong but it looks fine too me. Please let me know what could be wrong and how to fix it.

Thank you

Answer 1

我想你想要

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

至少这会产生一个有效且合理的单元格公式，而您的则不会。

使用cellAdressset to"A1"和iset to 10，结果将是：

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

Answer 2

好的，我现在明白了。在我运行之前，我的 VBA 也不会引发任何错误。也许我在看这段代码太久而发疯了。我的单元格地址包含 D18，我包含 1。我确实有一个名为 Criterion 1 的工作表，此工作表中的单元格的值为 2（我也尝试过它为空）。仍然会引发此错误，我不知道是什么原因造成的。