vba - 请告诉我如何解决应用程序定义或对象定义的错误

Question

在以下代码片段中：

If snpData.State = 1 Then
        Sheets("OptAlert").Select
        CommentDeposit

        ActiveSheet.Range("Table2").Clear
        ActiveSheet.Range("Table2[[Assigned]:[Notes]]").NumberFormat = "[=0]"""";General"
        ActiveSheet.Range("Table2[[Date]]").NumberFormat = "[=0]"""";yyyy-mm-dd"

        **ActiveSheet.Range("Table2[[AVG_HELPER]]").Formula = "=IF(AND([@[AVGOPT]]<pMinAvg,[@[COUNT]]<pOveRid),0,1)"**
        ActiveSheet.Range("Table2[[ALERT_PERCENTAGE]]").Formula = "=IF([@[COUNT]]=0,""" & ChrW(&H221E) & """,ABS([@[AVGOPT]]-[@[COUNT]])/[@[AVGOPT]])"

标有 的行中出现错误** ... **。

你能帮我找出问题所在吗？

Answer 1

我怀疑问题在于试图评估Range("Table2[[AVG_HELPER]]")- 这很可能不是 VBA 可以解决的地址。

什么是AVG_HELPER- 它是如何定义的？你能以其他方式引用单元格吗（例如，你知道确切的地址吗？）。例如，如果你想在单元格 $b$3 中输入公式，你可以写

[$b$3].Formula = "=IF(AND([@[AVGOPT]]<pMinAvg,[@[COUNT]]<pOveRid),0,1)"