有没有一种方法可以测试单元格是否包含任何类型的可视格式？

Function HasVisualFormat(cell As Range) As Boolean
    Dim format As FormatCondition
    Dim i As Integer
    
    ' 检查单元格是否有条件格式
    If cell.FormatConditions.Count > 0 Then
        HasVisualFormat = True
        Exit Function
    End If
    
    ' 检查单元格是否有其他可视格式
    For i = 1 To cell.FormatConditions.Count
        Set format = cell.FormatConditions(i)
        If format.Type <> xlCellValue Then
            HasVisualFormat = True
            Exit Function
        End If
    Next i
    
    HasVisualFormat = False
End Function