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

Question

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

例如，我想在黄色单元格C3中着色 IF 单元格B3包含字母“R” AND 单元格D3包含字母“M”。我想将此逻辑应用于我的工作表的整个区域。

你能帮帮我吗？

提前致谢！

贾科莫

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