如果为空，则向单元格中添加突出显示

Question

我有这段代码可以很好地满足我的需要，但是现在我想对缺少输入的单元格进行颜色编码。 我不确定在哪里/如何输入cell.Interior.ColorIndex = 37的正确代码。

    Dim sh As Worksheet
    Dim rw As Range
    Dim RowCount As Integer
    Sheets("1099-Misc_Form_Template").Select
    Sheets("1099-Misc_Form_Template").Columns(1).ClearContents
    Range("A1").Value = "Errors"
    RowCount = 0

    Set sh = Sheets("1099-Misc_Form_Template")
    For Each rw In sh.UsedRange.Rows

        FlagMissing rw, "B", "Payor ID"
        FlagMissing rw, "E", "TIN"
        FlagMissing rw, "F", "AccountNo"


    Next rw

End Sub

Sub FlagMissing(rw As Range, col As String, Flag As String)
    If Len(Trim(rw.Cells(1, col).Value)) = 0 Then
        With rw.Cells(1)
            .Value = .Value & IIf(.Value = "", "", ", ") & Flag
        End With
    End If
End Sub

我想在缺少输入的单元格中添加一种颜色。

Answer 1

诸如此类：如果用户已解决问题，还需要考虑清除突出显示...

Sub FlagMissing(rw As Range, col As String, Flag As String)
    Dim c As Range 
    Set c = rw.Cells(1, col)
    If Len(Trim(c.Value)) = 0 Then
        c.Interior.ColorIndex = 37 
        With rw.Cells(1)
            .Value = .Value & IIf(.Value = "", "", ", ") & Flag
        End With
    Else
        c.Interior.ColorIndex = xlNone
    End If
End Sub