我经常帮团队处理Excel自动化的需求，这个根据背景色亮度自动切换字体颜色的需求很常见——核心就是保证字体和背景的对比度最大化，让内容更易读。下面是完整的实现方案：

一、核心思路 #

我们用W3C相对亮度公式来判断背景色的明暗，这个公式更符合人眼对色彩亮度的感知：

相对亮度 = (299×红色值 + 587×绿色值 + 114×蓝色值) ÷ 1000
如果相对亮度>128，说明背景偏亮，字体用黑色；反之背景偏暗，字体用白色。

二、创建宏代码 #

1. 打开VBA编辑器：按Alt + F11快捷键，或者点击Excel顶部「开发工具」选项卡中的「Visual Basic」按钮（如果看不到开发工具，去「文件→选项→自定义功能区」勾选它）。
2. 插入模块：在左侧的「工程资源管理器」中，右键点击你的工作簿名称，选择「插入→模块」。
3. 粘贴以下代码：

Sub AutoContrastFontColor()
    Dim targetCell As Range
    Dim r As Integer, g As Integer, b As Integer
    Dim brightness As Double
    
    ' 可以修改为你需要处理的区域，比如ActiveSheet.UsedRange或者特定范围
    For Each targetCell In Selection
        ' 跳过无填充的单元格（可选，根据需求调整）
        If targetCell.Interior.ColorIndex <> xlColorIndexNone Then
            ' 分解背景色的RGB值
            r = targetCell.Interior.Color Mod 256
            g = (targetCell.Interior.Color \ 256) Mod 256
            b = targetCell.Interior.Color \ 65536
            
            ' 计算相对亮度
            brightness = (299 * r + 587 * g + 114 * b) / 1000
            
            ' 根据亮度设置字体颜色
            If brightness > 128 Then
                targetCell.Font.Color = vbBlack ' 亮背景用黑字
            Else
                targetCell.Font.Color = vbWhite ' 暗背景用白字
            End If
        End If
    Next targetCell
End Sub

三、代码解释 #

• Selection：默认处理你当前选中的单元格区域，你也可以改成ActiveSheet.UsedRange来处理整个工作表的已用区域。
• xlColorIndexNone：判断单元格是否没有背景填充，跳过这些单元格可以提高运行效率。
• RGB分解：Excel用长整型存储颜色，通过取模和整除操作拆分出红、绿、蓝三个分量（取值范围0-255）。
• 亮度计算：采用W3C标准公式，比简单的RGB平均更贴合人眼对亮度的判断。

四、使用方法 #

手动执行 #

1. 选中需要处理的单元格区域（或者直接全选工作表）。
2. 按Alt + F8打开宏对话框，选择AutoContrastFontColor，点击「执行」。

自动触发（可选） #

如果你希望单元格背景色变化时自动执行宏，可以给工作表添加事件代码：

1. 在VBA编辑器的「工程资源管理器」中，双击你需要自动处理的工作表（比如Sheet1）。
2. 在顶部的下拉框中，选择Worksheet，然后在第二个下拉框选择Change。
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 当单元格内容或格式变化时，自动对变化的区域执行宏
    Call AutoContrastFontColor
End Sub

注意：这个事件会在单元格内容或格式变化时触发，Excel没有原生的「背景色变化专属事件」，但这个方法已经能满足大多数场景的需求。

五、额外优化建议 #

• 如果需要在所有Excel文件中使用这个宏，可以把代码放在「个人宏工作簿」中，这样每次打开Excel都能调用。
• 可以给宏添加快捷按钮：在「开发工具→插入」中选择按钮控件，关联AutoContrastFontColor宏，以后点击按钮就能快速执行。

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