求助：实现Excel工作簿标签颜色统计并写入首表的VBA代码

我需要实现一个循环来统计Excel工作簿中所有带颜色的工作表标签数量，共有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

这段代码的问题：

• Sub过程缺少名称
• mysheet.tab.count 是无效语句，工作表标签没有count属性，需自定义计数器变量

第二段已完成计数逻辑的代码（缺少写入首表的部分） #

Public Sub TabCount()
Dim x As Long, y As Long, z As Long, i As Long, O As Long
x = 0
y = 0
z = 0
i = 0
O = 0
For Each mysheet In ActiveWorkbook.Sheets
If mysheet.Tab.Color = RGB(0, 255, 0) Then
          x = x + 1
ElseIf mysheet.Tab.Color = RGB(255, 255, 0) Then
          y = y + 1
ElseIf mysheet.Tab.Color = RGB(255, 165, 0) Then
          z = z + 1
ElseIf mysheet.Tab.Color = RGB(255, 0, 0) Then
         i = i + 1
ElseIf mysheet.Tab.Color = RGB(0, 0, 255) Then
         O = O + 1
  End If
 
Next mysheet
End Sub

完善后的代码 #

以下是添加了首表写入功能的完整代码，同时优化了逻辑可读性和变量命名：

Public Sub TabCount()
    ' 定义对应颜色的计数器变量
    Dim greenCount As Long, yellowCount As Long, orangeCount As Long
    Dim redCount As Long, blueCount As Long
    Dim ws As Worksheet
    Dim summaryWs As Worksheet
    
    ' 初始化计数器
    greenCount = 0
    yellowCount = 0
    orangeCount = 0
    redCount = 0
    blueCount = 0
    
    ' 绑定工作簿第一个工作表作为汇总表
    Set summaryWs = ActiveWorkbook.Sheets(1)
    
    ' 遍历所有工作表统计标签颜色
    For Each ws In ActiveWorkbook.Sheets
        Select Case ws.Tab.Color
            Case RGB(0, 255, 0) ' 绿色
                greenCount = greenCount + 1
            Case RGB(255, 255, 0) ' 黄色
                yellowCount = yellowCount + 1
            Case RGB(255, 165, 0) ' 橙色
                orangeCount = orangeCount + 1
            Case RGB(255, 0, 0) ' 红色
                redCount = redCount + 1
            Case RGB(0, 0, 255) ' 蓝色
                blueCount = blueCount + 1
        End Select
    Next ws
    
    ' 将统计结果写入汇总工作表（从A1单元格开始，带表头）
    With summaryWs
        .Range("A1").Value = "标签颜色"
        .Range("B1").Value = "数量"
        .Range("A2").Value = "绿色"
        .Range("B2").Value = greenCount
        .Range("A3").Value = "黄色"
        .Range("B3").Value = yellowCount
        .Range("A4").Value = "橙色"
        .Range("B4").Value = orangeCount
        .Range("A5").Value = "红色"
        .Range("B5").Value = redCount
        .Range("A6").Value = "蓝色"
        .Range("B6").Value = blueCount
        
        ' 可选：优化格式，提升可读性
        .Range("A1:B1").Font.Bold = True
        .Columns("A:B").AutoFit
    End With
End Sub

关键说明 #

• 定位汇总表：用Set summaryWs = ActiveWorkbook.Sheets(1)直接绑定工作簿第一个工作表，无需手动切换。
• 写入数据：通过summaryWs.Range("单元格地址").Value将统计值写入指定位置，同时添加表头和基础格式，避免结果杂乱。
• 逻辑优化：将If...ElseIf替换为Select Case，多层条件判断更清晰；变量命名改为直观的颜色+Count格式，便于后续维护。
• 注意事项：如果第一个工作表已有数据，建议修改写入起始位置（比如从A10开始），避免覆盖原有内容。

内容的提问来源于stack exchange，提问作者Skye Olsavsky