Excel VBA：更新所有工作表的格式[重复]

Question

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

简单宏的要求：

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