使用工作表名称填充 Excel 用户表单列表框，但仅限于特定颜色

Question

我正在尝试用工作表名称填充列表框。但是，我只想拉出具有特定标签颜色标签的工作表。如何扩充以下 VBA 代码？

For n = 1 To ActiveWorkbook.Sheets.Count
    PDFListBox.AddItem ActiveWorkbook.Sheets(n).Name
Next n

Answer 1

像这样：

Dim ws
For Each ws in ActiveWorkbook.Sheets
    'only add if tab is (eg) red
    If ws.Tab.color = vbRed Then PDFListBox.AddItem ws.Name
Next n