使用VBA将条件格式应用于一系列单元格

我想知道如何访问标题为“适用于”的条件格式的列并输入自己的条件。我已经包含了一个截图，以供参考。使用VBA将条件格式应用于一系列单元格

Applies To column

我在条件格式添加代码的语法是，

With Selection 
    .FormatConditions.Delete 
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & c.Address & "=TRUE" 
    . 
    . 
    . 
End With

我相信代码应该在那里加入，但我只是找不到正确的语法。

更新：

我更新了我的代码看起来像这样，

With Range(Cells(c.Row, "B"), Cells(c.Row, "N")) 
    .FormatConditions.Delete 
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & c.Address 
    .FormatConditions(1).Interior.ColorIndex = 15 'change for other color when ticked 
End With

这实际上将使相关的地方，我放在复选框的特定范围的行，有其背景颜色改变。复选框的位置由c.Address表示，其中“c”包含我选择放置复选框的单元格的位置。

来源

2014-01-22 winhung

谢谢，你的线索帮助我很多 – winhung

你需要做这样的事情（Range("A25")是你要什么找）：

With Range("A25") 
     .FormatConditions.Delete 
     .FormatConditions.Add Type:=xlExpression, _ 
      Formula1:="=" & c.Address 
     '. 
     '. 
     '. 
End With

，也没有必要写"=" & c.Address & "=TRUE"，你可以只使用"=" & c.Address。

来源

2014-01-22 11:05:14

怎么可能这个工作就像一个的isBlank功能需要一个参数？ – 12MonthsASlav

“适用于”是在With块执行的选择中固有的。

来源

2014-01-22 11:04:33 teylyn

嗨特林，你是什么意思固有的？你的意思是有一种语法可以迎合选择中的“适用于”？ – winhung

我的意思是你有一个选择的单元格范围。这是将用于“适用于”的范围。 – teylyn

噢，我明白了。是的，这是有道理的。 – winhung

使用VBA将条件格式应用于一系列单元格

回答

相关问题