能否在Excel VBA中创建自定义ColorIndex？

1. 定义全局自定义配色常量 #

先在标准模块顶部定义团队专属配色常量，彻底避免重复输入RGB值，后期维护也只需修改常量即可：

' 团队自定义配色体系（对应原有条件格式的颜色）
Const COLOR_APPROVED As Long = RGB(0, 176, 80)   ' 已审批绿色
Const COLOR_PENDING As Long = RGB(255, 204, 0)   ' 待处理黄色
Const COLOR_REJECTED As Long = RGB(255, 0, 0)     ' 已驳回红色
Const COLOR_IN_PROGRESS As Long = RGB(0, 176, 240) ' 处理中蓝色
' 继续添加剩余需要的配色常量（对应40-50条规则的颜色）

注：如果不确定RGB值，可直接用Excel取色器获取后填入，无需转换十六进制。

2. 编写格式匹配核心代码 #

完全复刻原有条件格式的规则逻辑，直接为单元格设置填充色，替代动态条件格式：

Sub ApplyCustomFormatting()
    Dim targetRng As Range
    Dim cell As Range
    
    ' 替换为你需要应用格式的实际区域（和原条件格式作用范围一致）
    Set targetRng = ThisWorkbook.Sheets("核心数据").Range("A2:Y1000")
    
    ' 遍历单元格，匹配规则设置格式
    For Each cell In targetRng
        ' 清空原有填充色，避免格式残留
        cell.Interior.ColorIndex = xlColorIndexNone
        
        ' 完全复刻原条件格式的判断逻辑
        Select Case UCase(Trim(cell.Value))
            Case "APPROVED", "已审批"
                cell.Interior.Color = COLOR_APPROVED
            Case "PENDING", "待处理"
                cell.Interior.Color = COLOR_PENDING
            Case "REJECTED", "已驳回"
                cell.Interior.Color = COLOR_REJECTED
            Case "IN PROGRESS", "处理中"
                cell.Interior.Color = COLOR_IN_PROGRESS
            ' 继续添加剩余的规则判断（对应原40-50条条件格式）
            Case "ON HOLD"
                cell.Interior.Color = RGB(169, 169, 169) ' 临时新增颜色也可直接写RGB
        End Select
    Next cell
End Sub

3. 实现自动格式更新 #

绑定工作表变更事件，用户修改内容时自动触发格式更新，全程无需手动操作：

' 右键目标工作表标签 → 查看代码，粘贴到该工作表的代码窗口
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim affectedRng As Range
    ' 限定触发范围，避免无意义的全表更新
    Set affectedRng = Intersect(Target, Me.Range("A2:Y1000"))
    
    If Not affectedRng Is Nothing Then
        ' 调用格式处理函数
        ApplyCustomFormatting
    End If
End Sub

4. 适配用户使用习惯 #

• 完全保留原有条件格式的颜色和规则逻辑，用户看到的界面和之前完全一致，无突兀改动
• 若需批量更新历史数据，直接运行ApplyCustomFormatting宏即可，无需用户学习任何新操作
• 单元格格式为静态填充色，用户复制粘贴时无需选择“粘贴为值”，格式会直接跟随内容复制

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