如何修改VBA代码，仅用指定标签颜色工作表填充Excel用户窗体列表框

要实现仅提取特定标签颜色的工作表名称填充到列表框，只需在遍历过程中添加工作表标签颜色的判断条件即可。以下是两种常见场景的修改代码：

场景1：筛选标准颜色的工作表 #

如果目标是筛选如红色、蓝色这类标准纯色的工作表标签，可直接对比Tab.Color属性：

Dim ws As Worksheet
' 清空列表框，避免重复添加内容
PDFListBox.Clear
' 遍历工作簿内所有工作表
For Each ws In ActiveWorkbook.Sheets
    ' 判断标签颜色是否为红色（可替换为vbBlue、RGB(255,165,0)等自定义颜色）
    If ws.Tab.Color = vbRed Then
        PDFListBox.AddItem ws.Name
    End If
Next ws

场景2：筛选主题颜色的工作表 #

如果使用的是Excel主题自带的颜色（如Accent系列），需结合Tab.ThemeColor和Tab.TintAndShade属性判断：

Dim ws As Worksheet
PDFListBox.Clear
For Each ws In ActiveWorkbook.Sheets
    ' 判断是否为主题Accent 1颜色且无深浅调整（可替换为xlThemeColorAccent2等枚举值）
    If ws.Tab.ThemeColor = xlThemeColorAccent1 And ws.Tab.TintAndShade = 0 Then
        PDFListBox.AddItem ws.Name
    End If
Next ws

关键说明 #

• 用For Each遍历工作表比原代码的索引遍历更稳定，避免因工作表顺序变动导致异常
• 每次填充前调用Clear方法，防止多次运行后列表框内容重复叠加
• 颜色值可按需修改：
  • 标准颜色可使用VBA内置常量（如vbBlack、vbGreen）或自定义RGB值（如RGB(0,255,0)表示绿色）
  • 主题颜色需对应xlThemeColor枚举值，TintAndShade值控制颜色深浅（0为原始色，正数提亮，负数变暗）

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