使用vba通过工作表标签颜色选择工作表

小海盗2018

新手求助：
工作表中工作表颜色为 蓝色的，需要每天打印，其他颜色的都不打印，但是也需要标注。几乎每天工作表标签颜色都会发生变化，如果通过vba指定工作表名称或代码，就需要频繁修改。
问，如何设定VBA中根据工作表标签颜色批量选择工作表？？？

小海盗2018

Sub 颜色选择()
Dim mysh As Worksheet
For Each mysh In ActiveWorkbook.Sheets
If mysh.Tab.TintAndShade = 0.399975585192419 Then
Application.DisplayAlerts = True

End If
Application.DisplayAlerts = False
Next
End Sub


这是我编写的代码，发现没有效果。
请 大侠指导 改如何改呢?

小海盗2018

Sub 颜色选择()

Dim mysh As Worksheet
For Each mysh In ActiveWorkbook.Sheets
If mysh.Tab.TintAndShade = 0.399975585192419 Then
Application.DisplayAlerts = True
mysh.Delete
End If
Application.DisplayAlerts = False
Next
End Sub
这是我编写的代码，然后 运行没有效果。
请大侠指导如何 修改

我想选择所有蓝色的工作表，然后打印

小海盗2018

朱荣兴 发表于 2018-4-30 15:44
当然可以，但是，你上传这么一张图片是没人帮得了你的。，呵呵

还需要提供什么信息呢？

mmx1122

为什么不用名称作为选择打印的条件呢？sheetname<>红色的名称