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

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

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