Question

我找到了Excel VBA的答案，但我将其转换为Access VBA（Conditional Formatting using Excel VBA code）时遇到了问题。

这是我目前的代码：

    with ws
         With .Cells(1, 1).FormatConditions.Add(Type:=xlExpression, Formula1:="=IF($J2=""Y"";TRUE;FALSE)")
            .Font.Color = -10092544
            .StopIfTrue = False
            StrSearchCriteria = "A2:D" & lRow
            .FormatConditions(1).ModifyAppliesToRange Range(StrSearchCriteria)
        End With
        With .Cells(1, 1).FormatConditions.Add(xlCellValue, xlEqual, "=""Closed (New)""")
            .Font.Color = -16776961
            .StopIfTrue = False
            StrSearchCriteria = "A2:K" & lRow
            .FormatConditions(2).ModifyAppliesToRange Range(StrSearchCriteria)
        End With
    End With

我收到错误“无效的过程调用或参数”。

我错过了什么？感谢

Answer 1

我找到了这个答案：Adding a format condition in Excel through Access VBA。

但是，当我只是尝试删除任何现有的条件格式（作为使用链接答案中的代码测试方法）时，我收到错误“对象不支持此属性或方法”。代码是：

with wks
    .Range("A:D").Selection.FormatConditions.Delete
end with

非常感谢任何帮助。

Answer 2

您不需要参考选择。尝试：

.Range("A:D").FormatConditions.Delete

2010访问VBA在Excel中设置条件格式

2 个答案: