VBA Excel条件格式IF - 那么日期

时间:2013-10-11 18:07:22

标签: excel vba date format

我想按照以下规则进行条件格式化:

如果我的colum B的单元格为紫色,请在包含日期的A列上应用以下规则:

=TODAY()-A1>1<31 - 粉红色 =TODAY()-A1>30<61 - 颜色为绿色

你明白了

但是,如果列B中我的单元格内容为蓝色,那么我希望列A中的单元格也是蓝色。 我现在甚至不知道我的公式是否合适。 Thnks

2 个答案:

答案 0 :(得分:1)

您可以在条件格式设置规则中使用UDF:

Function IsYellow(c) As Boolean
    IsYellow = (c.Interior.Color = vbYellow)
End Function

更新只会在工作表重新计算时触发。

答案 1 :(得分:0)

这个选项是去VBA路线,这会在你去的时候对单元格应用“条件格式化”。例如:

For A_row = 1 To 100
  If Range(A_row, "B").Interior.ColorIndex = my_color_index Then
    Range(A_row, "A").NumberFormat = my_custom_format
    'add desired custom number formats here
  End If
Next