«Ошибка приложения или объекта» при вводе формулы

Question

Я пытаюсь ввести формулу в ячейки, используя VBA, но во второй строке следующего кода я получаю сообщение об ошибке:

«Определено приложением или определено объектом»

Есть ли что-то, что я ввел неправильно?

Range("D4").Select
ActiveCell.FormulaR1C1 = "=COUNTA(Prepared Screens'!A:A)"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=COUNTA(Senior Reviewed'!A:A)"
Range("D6").Select
ActiveCell.FormulaR1C1 = "=COUNTA(Manager Reviewed'!A:A)"

Answer 1

В каждой строке, задающей Формула, отсутствует одна кавычка, и вам следует использовать .Formula вместо .FormulaR1C1, если вы ссылаетесь на диапазон таким образом.Попробуйте это:

Range("D4").Select
ActiveCell.Formula = "=COUNTA('Prepared Screens'!A:A)"
Range("D5").Select
ActiveCell.Formula = "=COUNTA('Senior Reviewed'!A:A)"
Range("D6").Select
ActiveCell.Formula = "=COUNTA('Manager Reviewed'!A:A)"

Answer 2

Вам не хватает открывающей отметки ' при заключении имени листа.

Range("D4").Select
ActiveCell.Formula = "=COUNTA('Prepared Screens'!A:A)"
Range("D5").Select
ActiveCell.Formula = "=COUNTA('Senior Reviewed'!A:A)"
Range("D6").Select
ActiveCell.Formula = "=COUNTA('Manager Reviewed'!A:A)"

Вам не нужно выбирать ячейку для назначения формулы.

Range("D4").Formula = "=COUNTA('Prepared Screens'!A:A)"
Range("D5").Formula = "=COUNTA('Senior Reviewed'!A:A)"
Range("D6").Formula = "=COUNTA('Manager Reviewed'!A:A)"