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