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

在附上工作表名称时，您缺少'开头的打勾。

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

Answer 2

设置“公式”的每一行都缺少单引号，因此，如果您以这种方式引用范围，则应使用.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)"

输入公式时出现“应用程序定义或对象定义的错误”

2 个答案: