如何使用條件if在Excel中突出顯示單元格？

Question

如何有條件地為單元格分配顏色？

我有以下函數 ，應該根據if語句為單元格分配不同的顏色：

 Function .....
    ..........
    If (IsNumeric(x)  Then
    .Color = 65344                  // does not work
    Else
    ...........
    End If
    End Function

如何以正確的方式做到這一點？

Answer 1

我不確定您在這里使用什么顏色，因為65344不是十六進制值，但是您可以像這樣使用RGB：

Function .....
    ..........
    Dim c As Range
    Dim report As Worksheet

    Set report = Excel.ActiveSheet
    Set c = report.Cells(1, 1)

    If IsNumeric(c.Value) Then
       c.Interior.Color = RGB(110, 110, 100)
    End If
End Function

這是一個更好的示例，可能會有所幫助。 （僅供參考，請仔細檢查語法錯誤）

Sub changeColor()

Dim report as Worksheet

set report = Excel.ActiveSheet

dim i as integer

for i = 0 to 100
    if IsNumeric(report.cells(i,1).value) then
        report.cells(i,1).interior.color = rgb(220,230,241)
    else
        report.cells(i,1).interior.color = xlNone
    end if
next i
end sub