VBA比较 条件格式中的字体颜色 求助

郭延涛

Function ColorCount(colRange As Range, countRange As Range) As Long
    Dim count As Long
    Dim cell As Range
    count = 0
   
    ' 遍历指定范围，统计与颜色单元格具有相同字体颜色的单元格数量
    For Each cell In countRange
         If cell.DisplayFormat.Font.Color = colRange.DisplayFormat.Font.Color Then
            count = count + 1
        End If
    Next cell
   
    ' 返回统计结果
    ColorCount = count
End Function

求助！！！Excel中使用出现VALUE错误，错在哪里呢？

木槿花西月锦绣

放到sub里结果是正确的，在function里就报错
帮你顶一下

郭延涛

木槿花西月锦绣 发表于 2024-5-23 17:59
放到sub里结果是正确的，在function里就报错
帮你顶一下

谢谢，想用自定义函数呢，有办法吗

3190496160

既然是要在D1单元格比较，那用单元格事件不行吗？

郭延涛

3190496160 发表于 2024-5-24 07:39
既然是要在D1单元格比较，那用单元格事件不行吗？

目标单元格会和对比区域会变化的，所以像函数一样能选择指定单元格就好了。多谢回答！

longwin

原代码在单元格未设置条件格式时会出错，所以要判断一下：
如果有条件格式就按照显示颜色对比，没有条件格式就按照设置的颜色对比：
Function ColorCount(colRange As Range, countRange As Range) As Long
    Dim count As Long
    Dim cell As Range
    Dim col1 As Long
    count = 0
     If HasConditionalFormat(colRange) Then
         col1 = colRange.DisplayFormat.Font.Color
     Else
         col1 = colRange.Font.Color
     End If
   
    ' 遍历指定范围，统计与颜色单元格具有相同字体颜色的单元格数量
    For Each cell In countRange
    If HasConditionalFormat(cell) Then
         If cell.DisplayFormat.Font.Color = col1 Then count = count + 1
    Else
         If cell.Font.Color = col1 Then count = count + 1
         
     End If
    Next cell
   
    ' 返回统计结果
    ColorCount = count
End Function

Function HasConditionalFormat(cell As Range) As Boolean
    On Error Resume Next ' 防止未设置条件格式时产生错误
    Dim testValue As Variant
    testValue = cell.DisplayFormat.Interior.Color ' 尝试获取条件格式的颜色
    On Error GoTo 0 ' 重置错误处理
    HasConditionalFormat = (Not IsEmpty(testValue)) ' 如果能获取到值，说明有条件格式
End Function

longwin

longwin

郭延涛

longwin 发表于 2024-5-24 11:12

明白了，多谢，多谢！

郭延涛

longwin 发表于 2024-5-24 11:13

不用统计普通字体颜色，只需要统计条件格式的字体颜色，试了一下条件格式的不行呢，哎，还是多谢了！