Question

我的VBA技能并不是最好的，所以请耐心等待。我想根据它们的值格式化单元格的填充颜色。我知道如何使用条件格式执行此操作，但这需要一些时间。任何人都可以共享一些VBA代码来自动执行此过程吗？

我希望值小于100的单元格具有绿色填充颜色，大于100但小于2500的细胞是黄色的什么比这更大的东西是红色的？

非常感谢您的帮助。谢谢伊恩

Answer 1

这样做（你可能需要改变你的范围 - 我在这个例子中使用了A1：A3）：

Sub ColorCells()

    Dim rng As Range, cell As Range

    Set rng = ActiveSheet.Range("A1:A3")

    For Each cell In rng

        If cell < 100 Then
            cell.Interior.Color = RGB(0, 255, 0)
        ElseIf cell < 2500 Then
            cell.Interior.Color = RGB(255, 255, 0)
        ElseIf cell >= 2500 Then
            cell.Interior.Color = RGB(255, 0, 0)
        End If

    Next

End Sub

条件格式化VBA单元格基于单元格内容的颜色

1 个答案: