Excel VBA判断手动填充绿色单元格 对应单元格返回True/False

可实现需求：对选定范围内手动设置填充颜色的单元格做判定，目标单元格填充色为绿色时，其右侧相邻单元格写入内容True；目标单元格为无填充状态时，右侧相邻单元格写入内容False。

可直接运行的VBA代码 #

Sub FillColorJudge()
    Dim processRange As Range, currentCell As Range
    ' 选择待判定区域，默认定位当前选中区域
    On Error Resume Next
    Set processRange = Application.InputBox( _
        Prompt:="请框选需要判定填充色的单元格范围", _
        Title:="选择判定区域", _
        Default:=Selection.Address, _
        Type:=8)
    On Error GoTo 0
    If processRange Is Nothing Then Exit Sub
    
    ' 关闭屏幕刷新提升运行效率
    Application.ScreenUpdating = False
    
    For Each currentCell In processRange
        ' 判定无填充场景
        If currentCell.Interior.ColorIndex = xlNone Then
            currentCell.Offset(0, 1).Value = "False"
        ' 判定标准绿色填充（对应Excel默认色板纯绿色，RGB值0,255,0）
        ElseIf currentCell.Interior.Color = RGB(0, 255, 0) Then
            currentCell.Offset(0, 1).Value = "True"
        End If
        ' 其余非绿色填充的单元格不会修改右侧内容，可按需自行扩展判断分支
    Next currentCell
    
    Application.ScreenUpdating = True
    MsgBox "判定完成", vbInformation
End Sub

使用步骤 #

• 打开目标Excel文件，按Alt+F11快捷键调出VBA编辑器
• 在左侧工程资源管理器中右键点击当前工作簿名称，依次选择「插入」-「模块」，将上述代码粘贴到弹出的模块代码窗口中
• 回到Excel主界面，按Alt+F8调出宏运行窗口，选中名为FillColorJudge的宏后点击「执行」
• 在弹出的区域选择框中，框选你需要做填充色判定的单元格范围，确认后等待程序运行完成即可

注意事项 #

• 颜色匹配说明：代码默认匹配Excel标准纯绿色，如果你使用的是其他色调的绿色，可以修改代码中RGB(0,255,0)的三个参数，对应红、绿、蓝通道值，可从单元格填充设置的自定义颜色面板中查到你所用绿色的具体RGB值
• 上述版本为手动触发运行版本，兼容性更强，不会出现事件误触发问题；如果需要修改填充色后自动更新结果，可将核心判定逻辑写入对应工作表的Worksheet_Change事件中
• 代码仅识别手动设置的单元格填充色，不会识别条件格式生成的填充颜色

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