使用Excel VBT代码进行条件格式化

时间:2014-02-21 06:53:50

标签: excel-vba excel-2010 conditional-formatting vba excel

如果在A行的相应单元格中输入值,我需要更改B行中单元格的颜色。我是使用条件格式化中的公式

完成的

=OR(COUNTA($H3:$AG3)>5,COUNTA($H3:$AG27)>5* COUNTA($N3:$N27)) applies to -=$N$3:$O$27 如何在它的vbt代码中执行此操作。提前谢谢。

1 个答案:

答案 0 :(得分:0)

您可以使用while循环遍历每一行或每列,但有值。

您可以使用Font.Color为字体设置RGB值(例如,红色为255,0,0)。

您可以使用Interior.Color为单元格背景设置RGB值(例如,蓝色为0,0,255)。

下面是使用这些循环遍历行的示例,如果A列中的值为1,则将B列中文本的颜色更改为绿色。

Do While Len(Range("A1").Offset(counter, 0).Value) > 0

    If Range("A1").Offset(counter, 0).Value = 1 Then
        Range("B1").Offset(counter, 0).Interior.Color = RGB(0, 255, 0)
    End If
    counter = counter + 1

Loop

希望您可以根据自己的需要使用此基础。如果你想循环遍历列而不是列,例如只是改变使用Offset的方式,那么counter变量是第二个参数,例如偏移量(0,计数器)