vba - 根据单元格中的值对单元格进行颜色

Question

使用宏，我将几个工作簿中的信息合并到新工作簿中的一张表中。

在一个专栏中，我创建了一个名为 ColRange 的命名范围。该列的数字范围从 -350 到 500。

如何根据单元格中文本的值更改单元格的颜色。
红色(0-500)
黄色(-5-0)
绿色(-350--5)

Answer 1

看看conditional formatting .您甚至可能不需要 VBA 来执行此操作。

话虽如此，VBA 代码看起来像这样:

Public Sub colorit()
    Dim colRange As Range
    Dim rowNum As Integer
    Dim rnum As Integer

    rnum = 20
    Set colRange = Range(Cells(2, 9), Cells(rnum, 9))

    For rowNum = 1 To colRange.Rows.Count
        If colRange.Cells(rowNum, 1).Value <= -5 Then
            colRange.Cells(rowNum, 1).Interior.Color = RGB(0, 255, 0)
        ElseIf colRange.Cells(rowNum, 1).Value <= 0 Then
            colRange.Cells(rowNum, 1).Interior.Color = RGB(255, 255, 0)
        ElseIf colRange.Cells(rowNum, 1).Value <= 500 Then
            colRange.Cells(rowNum, 1).Interior.Color = RGB(255, 0, 0)
        End If
    Next rowNum
End Sub