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

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

1 个答案: