如何用VBA检测另一工作簿中条件格式单元格是否应用了颜色？

针对跨工作簿条件格式颜色检测失效的问题，这里提供两种可靠的实现方案，核心是绕开跨工作簿读取动态格式的上下文限制：

方案1：复制单元格到当前工作簿读取显示颜色 #

把目标工作簿的单元格复制到当前工作簿的临时工作表，利用当前上下文获取条件格式渲染后的实际显示颜色，再判断是否存在着色：

Function HasConditionalColor(targetWbPath As String, targetSheetName As String, targetCellAddr As String) As Boolean
    Dim targetWb As Workbook
    Dim tempWs As Worksheet
    Dim targetCell As Range
    
    ' 打开目标工作簿（若未打开）
    On Error Resume Next
    Set targetWb = Workbooks(Dir(targetWbPath))
    On Error GoTo 0
    If targetWb Is Nothing Then Set targetWb = Workbooks.Open(targetWbPath, ReadOnly:=True)
    
    ' 创建临时工作表
    Set tempWs = ThisWorkbook.Worksheets.Add
    
    ' 复制目标单元格到临时表
    Set targetCell = targetWb.Worksheets(targetSheetName).Range(targetCellAddr)
    targetCell.Copy tempWs.Range("A1")
    
    ' 判断是否有条件格式着色（DisplayFormat读取实际显示的格式）
    HasConditionalColor = (tempWs.Range("A1").DisplayFormat.Interior.Color <> xlNone)
    
    ' 清理临时表和关闭工作簿（按需）
    Application.DisplayAlerts = False
    tempWs.Delete
    targetWb.Close SaveChanges:=False
    Application.DisplayAlerts = True
End Function

调用示例：

Sub TestCheckColor()
    Dim result As Boolean
    result = HasConditionalColor("C:\YourPath\TargetWorkbook.xlsx", "Sheet1", "A1")
    MsgBox "目标单元格是否带条件格式颜色：" & result
End Sub

方案2：在目标工作簿上下文直接判断（更高效） #

通过在目标工作簿中执行判断逻辑，避免复制操作，直接获取条件格式的计算结果：

1. 先在目标工作簿的模块中添加以下函数（手动添加更稳定）：

Function CheckCellConditionalColor(cellAddr As String) As Boolean
    CheckCellConditionalColor = (Range(cellAddr).DisplayFormat.Interior.Color <> xlNone)
End Function

2. 在当前工作簿中调用该函数：

Function HasConditionalColor(targetWbPath As String, targetSheetName As String, targetCellAddr As String) As Boolean
    Dim targetWb As Workbook
    
    ' 打开目标工作簿
    On Error Resume Next
    Set targetWb = Workbooks(Dir(targetWbPath))
    On Error GoTo 0
    If targetWb Is Nothing Then Set targetWb = Workbooks.Open(targetWbPath, ReadOnly:=True)
    
    ' 切换到目标工作表并调用函数
    targetWb.Worksheets(targetSheetName).Activate
    HasConditionalColor = Application.Run(targetWb.Name & "!CheckCellConditionalColor", targetCellAddr)
    
    ' 关闭工作簿（按需）
    targetWb.Close SaveChanges:=False
End Function

关键注意事项 #

• 目标工作簿必须处于打开状态，VBA无法读取未打开工作簿的条件格式动态渲染结果。
• DisplayFormat属性仅在Excel 2010及以上版本可用，是读取实际显示格式的关键（区别于Interior.Color仅读取基础格式）。
• 若只需判断是否存在条件格式规则（不管是否触发着色），可以改用Range.FormatConditions.Count > 0，但这和你要的“是否应用了颜色”需求有区别，注意区分。

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