Excel如何限制指定单元格仅可使用预设的4种填充颜色？

方法1：VBA事件拦截非允许颜色（强制限制） #

这个方案会在用户设置了非预设颜色时自动重置并给出提示，适合需要严格管控颜色的场景。

操作步骤： #

1. 按Alt+F11打开VBA编辑器
2. 在左侧工程窗口找到目标工作表（如Sheet1），双击打开代码窗口
3. 粘贴以下代码，修改restrictedRange为你需要限制的单元格区域，修改allowedColors数组为你的4种预设RGB颜色：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要限制颜色的区域
    Dim restrictedRange As Range
    Set restrictedRange = Me.Range("A1:D100") ' 替换为你的目标区域
    
    ' 定义允许的4种填充色（RGB格式，可自行修改）
    Dim allowedColors As Variant
    allowedColors = Array(RGB(255, 0, 0), RGB(0, 255, 0), RGB(0, 0, 255), RGB(255, 255, 0))
    
    Dim cell As Range
    For Each cell In Intersect(Target, restrictedRange)
        Dim isAllowed As Boolean: isAllowed = False
        Dim color As Variant
        
        For Each color In allowedColors
            If cell.Interior.Color = color Then
                isAllowed = True
                Exit For
            End If
        Next color
        
        ' 非允许颜色则重置为无填充并提示
        If Not isAllowed Then
            cell.Interior.ColorIndex = xlColorIndexNone
            MsgBox "仅允许使用预设的4种填充色，请重新选择！", vbExclamation
        End If
    Next cell
End Sub

4. 保存文件为启用宏的工作簿（.xlsm），协作成员需在Excel信任中心启用宏才能生效

优化体验：添加快速填充按钮 #

为了方便快速选择预设颜色，可给快速访问工具栏添加自定义宏按钮：

• 右键快速访问工具栏 → 「自定义快速访问工具栏」
• 选择「宏」分类，添加你编写的填充宏（示例宏如下），并修改按钮图标为对应颜色：

Sub FillRed()
    If Not Intersect(Selection, Me.Range("A1:D100")) Is Nothing Then
        Selection.Interior.Color = RGB(255, 0, 0)
    End If
End Sub

' 同理编写FillGreen、FillBlue、FillYellow三个宏

方法2：自定义单元格样式（非强制，便捷协作） #

如果不需要强制限制，仅需统一可选颜色，可通过自定义样式实现：

1. 点击「开始」→「样式」→「单元格样式」→「新建单元格样式」
2. 分别创建4种样式，设置好填充色，命名为清晰的状态标识（如「待审核」「已通过」「待修正」「已完成」）
3. 右键默认样式选择「隐藏」，仅保留自定义的4种样式
4. 团队成员仅通过选择这些自定义样式来设置填充色，确保颜色统一

注意： #

• 自定义样式随工作簿保存，协作成员打开即可使用
• 此方法无法完全阻止手动修改颜色，适合信任团队成员的场景

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