excel - 根据工作簿中突出显示的选项卡的数量设置变量？

Question

我正在尝试查找标签颜色为标准自动颜色的工作簿的数量。

我有办法做到这一点，但它需要遍历工作簿中的每个工作表并以这种方式增加计数。即像这样：

Sub test()
Dim wb As Workbook
Dim ws As Worksheet
Dim n As Long

    Set wb = Application.ThisWorkbook
    n = 0

    For Each ws In wb.Sheets
        If ws.Tab.ColorIndex = -4142 Then
            n = n + 1
        End If
    Next ws

    Debug.Print (n)
    End Sub

我知道有一个工作表函数，可以计算工作簿中工作表的总数......即：

n = wb.Worksheets.Count

可以调整它以包含 if 子句吗？即n=wb.worksheets.countif？如果是这样可以调整以适应我的问题吗？

谢谢！