vba - Excel VBA根据不同单元格中的值填充单元格颜色

Question

如果值 = 0 并且 L 列中的相邻单元格值为空，我正在修改我的代码以仅填充红色单元格。

对于值 = 0 且 L 列中相邻单元格值不为空的单元格，我想用模式填充 0 单元格。

我附上了它的外观截图。

Sub Fill_Cell()

    Dim rngCell As Range

    For Each rngCell In Range("C7:K100")
        If rngCell.Value = "0" Then
        rngCell.Cells.Interior.ColorIndex = 3

        Else
        ''If value = 0 & adjacent cell in column L <> ''
        ''rngCell.Cells.Interior.Pattern = xlGray16
        End If
    Next

End Sub

Answer 1

尝试这个

Option Explicit

Sub Fill_Cell()

Dim rngCell As Range

For Each rngCell In Range("C7:K100")
    If rngCell.Value = "0" Then
        Select Case Cells(rngCell.row, "L")
            Case Is = ""
                rngCell.Cells.Interior.ColorIndex = 3
            Case Else
                rngCell.Cells.Interior.Pattern = xlGray16
        End Select
    End If
Next rngCell

End Sub