Excel VBA: обновить форматирование для всех листов

Question

Я прочитал несколько онлайн-руководств и использую макрозапись, чтобы узнать, как устанавливать форматы. Но мне интересно, есть ли способ сделать следующее, без использования. Выберите? Или что является предпочтительным способом для программистов?

Требование простой макро:

1. петли через все рабочие листы (виден только)
2. указан жирный формат в верхней строке, а цвет фона на серый
3. Сброс выбора А1 положение

()

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