如何修改Excel VBA IsDark函数以适配条件格式批量应用？

1. 修复IsDark函数，适配条件格式批量使用 #

原函数出现#VALUE!错误的核心原因是：条件格式中直接传递单元格引用即可，不需要嵌套ADDRESS(ROW(),COLUMN(),4)（这会生成文本地址，而非Range对象，函数无法识别）。同时优化函数的鲁棒性，处理多单元格传入、无底色的情况：

Public Function IsDark(ByRef Cell As Range) As Boolean
    ' 确保只处理单个单元格
    If Cell.Cells.Count > 1 Then
        Set Cell = Cell.Cells(1)
    End If
    
    Dim Blue As Long, Green As Long, Red As Long, PerceivedColor As Double
    Dim cellColor As Long
    
    ' 处理单元格无填充色的情况（默认视为亮色调）
    If Cell.Interior.ColorIndex = xlColorIndexNone Then
        IsDark = False
        Exit Function
    End If
    
    cellColor = Cell.Interior.Color
    Red = cellColor Mod 256
    Green = cellColor \ 256 Mod 256
    Blue = cellColor \ 65536 Mod 256
    
    ' 感知亮度计算（沿用原公式）
    PerceivedColor = 0.299 * (Red ^ 2) + 0.587 * (Green ^ 2) + 0.114 * (Blue ^ 2)
    IsDark = Sqr(PerceivedColor) <= 127.5
End Function

2. 条件格式中批量应用的步骤 #

• 选中需要应用格式的单元格区域
• 打开「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」
• 在公式框中输入：=IsDark(A1)（A1为选中区域的左上角单元格，Excel会自动将其对应到区域内的每个单元格）
• 设置配套格式（比如暗底色时用白色字体），确定即可

3. 从settings工作表读取自定义颜色（进阶需求） #

如果要从settings工作表指定颜色，可新增函数获取配置颜色，再配合宏批量设置：

第一步：新增颜色配置读取函数 #

' 获取settings工作表中指定的颜色
Public Function GetConfigColor(colorType As String) As Long
    ' 假设settings表中：A1标注"暗底色字体色"，A2存RGB值（格式如255,255,255）；B1标注"亮底色字体色"，B2存对应RGB值
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("settings")
    Dim colorValues As Variant
    
    Select Case UCase(colorType)
        Case "DARK_FONT"
            colorValues = Split(ws.Range("A2").Value, ",")
            GetConfigColor = RGB(colorValues(0), colorValues(1), colorValues(2))
        Case "LIGHT_FONT"
            colorValues = Split(ws.Range("B2").Value, ",")
            GetConfigColor = RGB(colorValues(0), colorValues(1), colorValues(2))
        Case Else
            ' 默认颜色
            GetConfigColor = vbBlack
    End Select
End Function

第二步：批量设置字体颜色的宏 #

Sub ApplyAutoFontColor()
    Dim targetRange As Range
    Dim cell As Range
    Dim darkFontColor As Long, lightFontColor As Long
    
    ' 获取配置颜色
    darkFontColor = GetConfigColor("DARK_FONT")
    lightFontColor = GetConfigColor("LIGHT_FONT")
    
    ' 选择目标区域（可改为固定区域如Range("A1:Z100")）
    Set targetRange = Application.Selection
    
    For Each cell In targetRange
        If IsDark(cell) Then
            cell.Font.Color = darkFontColor
        Else
            cell.Font.Color = lightFontColor
        End If
    Next cell
End Sub

直接运行这个宏，就能批量为选中区域设置适配底色的字体颜色，颜色配置在settings工作表中维护即可。

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