Очень часто мне присылают для обработки файлы, в которых заголовки таблиц никак не отформатированы, что затрудняет работу с такими таблицами.

Поскольку выполнять вручную каждый раз одни и те же действия надоедает, бы написан этот простенький макрос.

Что он делает: (действия выполняются с выделенным диапазоном ячеек)

• устанавливает выравнивание текста ячеек по центру
• разрешает перенос текста ячеек по словам
• закрашивает ячейки серым цветом
• рисует рамку вокруг ячеек
• закрепляет строку, расположенную непосредственно под выделенным заголовком
• (чтобы заголовок таблицы не прокручивался при скроллинге)

Sub ФорматированиеВыделенногоЗаголовка()

On Error Resume Next

Dim ra As Range: Set ra = Selection

With ra

.Font.Bold = True

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = True

.Interior.ColorIndex = 15

With .Borders

.LineStyle = xlContinuous

.Weight = xlThin

End With

End With

Set ra = Intersect(ra.Cells(ra.Cells.Count).Offset(1).EntireRow, ra.Cells(1).EntireColumn)

ra.Select: ActiveWindow.FreezePanes = True

End Sub

• 8906 просмотров