条件格式修改定义的对象错误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

关于如何击败它的想法？谢谢

Answer 1

您的代码可能会起作用，具体取决于您的表格。如果最后一个格式条件恰好是接受type =表达式和公式1作为参数的条件，则它将起作用。如果没有，您将获得您看到的错误。

添加带有Worksheets(3).Cells.FormatConditions(A)表达式的手表，然后查看它是什么类型。如果说 FormatCondition您很好，但是如果说数据库或其他内容，则您的代码将不得不处理。