以下代码适用于我的工作簿中的大多数工作表:
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 FormatCondition
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
但上线失败For Each fc In .FormatConditions
工作表上的错误消息类型不匹配rUsedRange.FormatConditions.Count = 34
其中许多是图标集。
为什么此表上的代码失败?我该如何修复它?
The FormatConditions
集合包括FormatCondition
, DataBar
, AboveAverage
, ColorScale
, UniqueValues
, Top10
and IconSetCondition
对象,而不仅仅是FormatCondition
对象,所以你需要声明你的fc
变量为Object
.
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)