Excel VBA：更新所有工作表的格式

Question

我阅读了一些在线教程，并使用宏记录来学习如何设置格式。但是我想知道有没有办法在不使用的情况下执行以下操作。选择？或者程序员的首选方式是什么？

简单宏的要求：

1. 遍历所有工作表（仅可见）
2. 将粗体格式设置为顶行，并将背景设置为灰色
3. 将选择重置为A1位置

（）

Sub SetAllTopRowBold()
Dim ws As Worksheet
On Error Resume Next

For Each ws In ThisWorkbook.Worksheets
    If ws.Visible Then
        ws.Activate
        Rows(1).Select
        Selection.Font.Bold = True
        Selection.Interior.Color = RGB(190, 190, 190)
        Range("A1").Select
    End If
Next ws
End Sub

Answer 1

您可以直接对范围对象执行此操作：

For Each ws In ThisWorkbook.Worksheets
    If ws.Visible Then
        ws.Rows(1).Font.Bold = True
        ws.Rows(1).Interior.Color = RGB(190, 190, 190)
        ws.Select
        ws.Range("A1").Select
    End If
Next ws