проблемы с применением кода VBA или ошибка объекта

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

Хорошо, теперь я понимаю. Мой VBA также не вызывает никаких ошибок, пока я не запустился. Может быть, я смотрю на этот код слишком долго и схожу с ума. Мой адрес ячейки содержит D18, а я - 1. У меня есть лист с именем Критерий 1, и ячейка на этом листе имеет значение 2 (я также пробовал, когда он был пуст). И все же эта ошибка возникает, и я не знаю, что ее вызывает.

Answer 2

Я думаю, что вы хотите

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