Как добавить цвет фона для верхнего или нижнего колонтитула на листе Excel при печати?

Как известно, в верхний или нижний колонтитул листа можно добавить текст или изображение, которые будут отображаться при печати. Но пробовали ли вы когда-нибудь добавить цвет фона в колонтитулы? На самом деле, стандартной функции для этого нет, однако ниже я расскажу о нескольких обходных способах выполнения этой операции.

Добавление цвета фона в верхний или нижний колонтитул с помощью функции Цвет заполнения

Добавление цвета фона в верхний и нижний колонтитулы с помощью VBA

Добавление цвета фона в верхний или нижний колонтитул с помощью функции Цвет заполнения

1. Нажмите Разметка страницы > Настройка страницы.

2. В Настройка страницы диалоговом окне на вкладке Поля укажите 0 в Верхнее, Верхний колонтитул, Нижнее и Нижний колонтитул в соответствующих полях.

3. Нажмите ОК. Затем выберите первую строку и нажмите Главная > Объединить и По центру.

3. Далее выберите цвет из списка Цвет заполнения для добавления цвета фона в объединенные ячейки.

4. Повторите шаги2 и3, чтобы добавить цвет фона в нужную строку нижнего колонтитула.

Теперь на странице кажется, что цвет фона добавлен к верхнему и нижнему колонтитулам.

Добавление цвета фона в верхний и нижний колонтитулы с помощью VBA

Ниже приведён VBA-код, который позволяет быстро добавить цвет фона одновременно в верхний и нижний колонтитулы.

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Выберите Вставка > Модуль, скопируйте и вставьте приведённый ниже код в новый модуль.

VBA: Добавление цвета фона в верхний и нижний колонтитулы

Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
    Dim I, J As Long
   Dim xRg As Range
    Dim xRow, xCol As Long
    Dim xRows, xCols As Long
    Dim xDivRow, xDivCol As Long
    Dim xTopArr, xButtArr As Variant
    Dim PageSize1, PageSize2 As Integer
    On Error Resume Next
    xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
    xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
    PageSize1 = 46
    PageSize2 = 8
    With ActiveSheet.PageSetup
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .BlackAndWhite = False
    End With
    Set xRg = ActiveSheet.UsedRange
    If xRg Is Nothing Then Exit Sub
    xRows = xRg(xRg.Count).Row
    xCols = xRg(xRg.Count).Column
    If xRows < 46 Then xRows = 46
    If xCol < 8 Then xCol = 8
    xDivRow = Int(xRows / PageSize1)
    xDivCol = Int(xCols / PageSize2)
    If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
    If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
    If xDivRow = 0 Then xDivRow = 1
    If xDivCol = 0 Then xDivCol = 1
    Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
    xRow = 1
    xCol = 1
    Cells.PageBreak = xlPageBreakNone
    For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
        For J = 1 To xDivCol * PageSize2 Step PageSize2
            Cells(I, J).Resize(1, PageSize2) = xTopArr
            Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
            Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Rows(I + PageSize1 + 1).PageBreak = xlManual
            Columns(J + PageSize2).PageBreak = xlManual
        Next
    Next
End Sub

3. Нажмите F5 для запуска кода — после этого определённый цвет фона будет добавлен к первой и47-й строкам каждого листа, которые будут выступать в роли условных верхнего и нижнего колонтитулов.

Примечание: в коде вы можете изменить следующие строки по своему усмотрению.

1. Измените содержимое верхнего и нижнего колонтитулов в строках:

xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")

xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")

2. Измените индекс цвета фона в этой строке:

Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex =34

Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex =34