MyTetra Share
Делитесь знаниями!
Макрос форматирования заголовка таблицы
16.03.2019
23:43
Текстовые метки: FormatHeader,hat,шапка, заголовки
Раздел: !Закладки - VBA - Excell

Макрос форматирования заголовка таблицы

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

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

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

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

 

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 просмотров
Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования