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

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

Excel cell formatting based on content of adjacent cells

vba

conditional-formatting