1

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

私は本当に何が悪いのかをチェックしようとしましたが、私もうまく見えます。何が間違っているのか、そしてそれを修正する方法を教えてください。

ありがとうございました

4

2 に答える 2

0

わかりました。今わかりました。私のVBAも、実行するまでエラーを発生させません。たぶん、私はこのコードをあまりにも長く見ていると気が狂ってしまいます. 私のセルアドレスにはD18が含まれ、iには1が含まれています.Criterion 1というシートがあり、このシートのセルの値は2です(空のときにも試しました)。それでもこのエラーが発生し、何が原因なのかわかりません。

于 2010-08-10T10:41:22.043 に答える
0

私はあなたが欲しいと思います

.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)"
于 2010-08-10T09:23:49.170 に答える