基于相邻单元格内容的Excel单元格格式

Question

我正在寻找一个VBA代码，根据相邻单元格的内容格式化给定的Excel单元格。

例如，如果C3单元格B3包含字母"R“和 cell D3包含字母"M”，我想在单元格B3中涂上黄色单元格。我想将这一逻辑应用到我工作表的整个领域。

你能帮帮我吗?

提前感谢！

贾科莫

Answer 1

这是一个非常基本的代码布局。这把课文涂成红色。你可以找出黄色的颜色！

Option Explicit
Private Sub do_it()
Dim c As Range
For Each c In Range(Range("a1"), Range("d" & Cells.Rows.Count).End(xlUp))
    If c.Column = 2 And c.Value = "R" And c.Offset(0, 2).Value = "M" Then
       c.Offset(0, -1).Select
       With c.Font
           .Color = RGB(255, 0, 0)
       End With
    End If
Next
End Sub