Excel VBA：如何根据相邻单元格比较结果设置单元格背景色？

首先明确：你写的Cell2.Interior.Color = RGB(255, 153, 153)这类代码语法本身是正确的，但问题出在使用场景——自定义工作表函数（UDF）不允许直接修改其他单元格的格式或内容，Excel会限制这类操作，所以这行代码在你当前的COMPARE函数里不会生效。

两种可行的解决方案 #

方案一：使用条件格式（推荐） #

这是最符合Excel设计逻辑的方式，无需依赖VBA函数的格式修改：

1. 选中需要设置格式的单元格区域（比如你的Cell2所在列）
2. 点击「条件格式」→「新建规则」→选择「使用公式确定要设置格式的单元格」
3. 针对两种情况分别设置规则：
   • 规则1：输入公式 =A1>B1（根据实际单元格位置调整，比如Cell1是A列，Cell2是B列），设置填充色为 RGB(255, 153, 153)
   • 规则2：输入公式 =A1<B1，设置填充色为 RGB(255, 255, 204)
4. 保留你的COMPARE函数仅用于返回文本结果即可，格式会自动随单元格值变化更新。

方案二：使用VBA工作表事件 #

如果一定要用VBA实现，可通过工作表Change事件触发格式设置，代码需放在对应工作表的模块中：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell1 As Range, Cell2 As Range
    ' 示例：处理B列单元格（Cell2），对应左侧A列的Cell1
    If Target.Column = 2 And Target.Cells.Count = 1 Then
        Set Cell1 = Target.Offset(0, -1)
        Set Cell2 = Target
        
        Select Case True
            Case Cell1.Value = Cell2.Value
                Cell2.Interior.ColorIndex = xlColorIndexNone ' 清除填充色
                Cell2.Offset(0, 1).Value = "" ' 结果输出到右侧单元格
            Case Cell1.Value > Cell2.Value
                Cell2.Interior.Color = RGB(255, 153, 153)
                Cell2.Offset(0, 1).Value = "Kapa-Reduzierung"
            Case Cell1.Value < Cell2.Value
                Cell2.Interior.Color = RGB(255, 255, 204)
                Cell2.Offset(0, 1).Value = "Kapa-Erhöhung"
            Case Else
                Cell2.Offset(0, 1).Value = "Input Error"
        End Select
    End If
End Sub

操作步骤：右键目标工作表标签→点击「查看代码」→将上述代码粘贴到模块中，之后当B列单元格内容变化时，会自动与左侧A列比较，设置填充色并在右侧输出结果。

内容的提问来源于stack exchange，提问作者aceofspades