工作簿选项卡颜色计数循环

Question

我需要有关循环的帮助来计算工作簿中的所有彩色选项卡。 我有 4 种不同的颜色，我想在工作簿的第一个选项卡上对数据进行求和，显示有多少绿色、黄色......等。

Public Sub

For Each mysheet in ActiveWorkbook.sheets
     If mysheet.tab.color = RGB(255,0,0) then
      mysheet.tab.count 
     End If
  Next mysheet
End Sub

此代码是使用另一个宏的代码进行的实验，这不是正常运行的代码。 我正在考虑一个带有计数器的 do while 循环？

Answer 1

您需要使用在循环外部设置为 0 的变量。然后，您需要向变量添加 1，而不是仅仅计算制表符（如您所写，这将始终导致 1 或 0）。然后，当它迭代所有工作表时，它会将变量更改为触发 IF 条件为 TRUE 的工作表计数。

x = 0
For Each mysheet in ActiveWorkbook.sheets
     If mysheet.tab.color = RGB(255,0,0) then
        x = x+1 
     End If
Next mysheet

Debug.Print x

End Sub