Pleasse сказать мне, как решить определенные приложения или объекта, определенную ошибку

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 - как оно определено? Вы можете ссылаться на ячейку каким-либо другим способом (знаете ли вы, например, точный адрес?). Если вы хотите, чтобы ввести formulat в ячейку $ B $ 3, к примеру, вы можете написать

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