使用VBA在Excel中更改制表符的颜色？

我有我创build的脚本创build一个新的工作表和一个新的选项卡，在更改所述选项卡的名称之前，我想让它，以便Sheet1到Sheet4都是红色的。

With wbBK2.Sheets(wsWS1).Tab .Color = 255 End With 

现在上面的代码适用于单个选项卡，但我想知道有没有办法使用Excel VBA同时更改所有四个选项卡？

谢谢。

Answer 1

尝试这样的事情：

 Dim Sht As Worksheet For Each Sht In Application.Worksheets With Sht.Tab .Color = 255 End With Next Sht 

注意：

我想你可能会把Application.Worksheets wbBK2.Worksheets ，但是我对咖啡因的记忆过低，或者没有时间来testing它。

Answer 2

起初我以为使用Sheets(Array("Sheet1","Sheet2")).Select方法将工作，但经过testing（并运行macroslogging器），我发现它没有。

更新

ooo有一个很好的评论。 这是更清洁，更容易阅读的方式去：

 Sub SheetTabColor() Dim mySheets As Worksheets Dim mySheet As Worksheet Set mySheets = Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")) For Each mySheet In mySheets mySheet.Tab.Color = 255 Next End Sub 

这是我的原创。 同样的想法，略有不同的方法：

 Sub SheetTabColor() Dim arrSheets() As String arrSheets() = Split("Sheet1,Sheet2,Sheet3,Sheet4", ",") Dim i As Integer For i = LBound(arrSheets()) To UBound(arrSheets()) Sheets(arrSheets(i)).Tab.Color = 255 Next End Sub