Vba 是否忽略formatconditions集合中不是formatcondition的项？

以下代码适用于我的工作簿中的大多数工作表：

Function IsHighlighted() As Boolean

    Dim wks As Worksheet
    For Each wks In ThisWorkbook.Worksheets
        Dim rUsedRange As Range
        Set rUsedRange = wks.UsedRange

        With rUsedRange
            Dim bHighlighted As Boolean

            Dim fc As Object
            For Each fc In .FormatConditions
                If fc.Interior.Color = RGB(255, 0, 0) And fc.Font.Color = RGB(255, 255, 0) Then
                    bHighlighted = True
                    Exit For
                End If
            Next fc

            If bHighlighted = True Then
                Exit For
            End If
        End With
        Debug.Print (wks.Name & "," & rUsedRange.FormatConditions.count)
    Next wks

    IsHighlighted = bHighlighted
End Function

但我的一些工作表包含图标集

显然：

FormatConditions

集合包括

FormatCondition

、

DataBar

、

高于平均值的
、
ColorScale
、
UniqueValues
、
Top10
和
IconSetCondition
对象，而不仅仅是
FormatCondition
对象。
有关更多上下文，请参见：

其中一些没有
.Interior.Color
，因此if语句会抛出错误

有什么好方法可以跳过formatconditions集合中所有不属于formatcondition类型的对象

我尝试使用
VarType（fc）
来确定obejct类型，但它只返回了一个9，表示
fc
是某种对象。
您是否尝试了Typename函数，
例如：

Dim str as string.
Msgbox Typename(str)  ' ->>> "String"

因为某种原因，我以前试过的时候没有成功。但它工作得很好，很乐意为大家服务。