使用VBA更改Excel中的选项卡颜色？

Question

我创建了一个脚本,创建了一个新的工作表,并在所述工作表中添加了一个新的选项卡,在更改所述选项卡的名称之前,我想让它成为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,但我运行咖啡因记,或时间来测试它太低.