条件格式修改定义的对象错误1004

Question

我再次需要你的帮助。 我在下面写下了代码，但它又回到了我的身上

  

错误1004

Sub ModifCF7codici()
'On Error GoTo ErrGest
Worksheets(3).Select
Worksheets(3).Unprotect Password:="ponzio"

'Application.EnableEvents = False
A = Cells.FormatConditions.Count
Worksheets(3).Cells.FormatConditions(A).Modify Type:=xlExpression, Formula1:="=A1=0"
    'Formula1:="=
'=$S" & (4 - 3) & "<$" & "S" & (3 - 2))

'ErrGest:
'Application.EnableEvents = False

End Sub

关于如何击败它的任何想法？ thankx

Answer 1

您的代码可能会有效，具体取决于您的工作表的样子。如果最后一个格式条件恰好是接受Type = Expression和Formula1作为参数的条件，它将起作用。如果没有，您将收到错误。

添加一个表达式为Worksheets(3).Cells.FormatConditions(A)的手表，并查看它的类型。如果它说FormatCondition你很好，但如果说DataBar或其他什么，你的代码将不得不处理它。