基于单元格颜色设置字体颜色的VBA代码问题求助

原代码的核心问题有两个：

1. 判断条件错误：你需要识别白色（空白）背景，但代码里判断的是黑色背景（RGB(0,0,0)）
2. 仅实现单一逻辑，未覆盖你需要的两种字体颜色切换需求

下面是对应两个按钮的修正代码：

按钮1：白色背景单元格字体设为黑色 #

Sub WhiteBg_BlackFont()
    Dim Cell As Range
    For Each Cell In Range("AP74:AX80")
        ' 判断背景为纯白色
        If Cell.Interior.Color = RGB(255, 255, 255) Then
            Cell.Font.Color = RGB(0, 0, 0)
        End If
    Next Cell
End Sub

按钮2：白色背景单元格字体设为白色 #

Sub WhiteBg_WhiteFont()
    Dim Cell As Range
    For Each Cell In Range("AP74:AX80")
        If Cell.Interior.Color = RGB(255, 255, 255) Then
            Cell.Font.Color = RGB(255, 255, 255)
        End If
    Next Cell
End Sub

额外说明 #

如果你的"空白背景"指的是单元格未设置填充色（默认状态），而非人工设置的纯白色，把判断条件改成 Cell.Interior.ColorIndex = xlColorIndexNone 更稳妥——因为Excel主题可能会让默认背景的RGB值偏离255,255,255。

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