Как добавить цвет фона в верхние или нижние колонтитулы на листе Excel во время печати?
Как мы знаем, мы можем добавить содержимое или изображение в верхний или нижний колонтитул листа, которые будут отображаться во время печати. Но пробовали ли вы когда-нибудь добавить цвет фона к верхним или нижним колонтитулам? На самом деле нет встроенной функции, которая могла бы с этим справиться, но здесь я представлю несколько окольных способов достижения операции.
Добавить цвет фона в верхний или нижний колонтитул по цвету заливки
Добавить цвет фона в верхний и нижний колонтитулы с помощью VBA
Добавить цвет фона в верхний или нижний колонтитул по цвету заливки
1. Нажмите Макет страницы > Параметры страницы.
2. в Параметры страницы диалога под Поля вкладка, тип 0 в Топовое, заголовок, Дно и нижний колонтитул текстовые поля.
3. Нажмите OK. Затем выберите первую строку и нажмите Главная > Слияние и центр.
3. Выберите цвет из Заполнить колоr list, чтобы добавить цвет фона к объединенным ячейкам.
4. Повторите шаги 2 и 3, чтобы добавить цвет фона к нужной строке нижнего колонтитула.
Теперь кажется, что страница добавляет цвет фона в верхний и нижний колонтитулы.
Добавить цвет фона в верхний и нижний колонтитулы с помощью VBA
Вот код VBA, который может быстро добавить цвет фона в верхний и нижний колонтитулы одновременно.
1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.
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 ("Слева вверху", "", "", "Центр вверху", "", "", "", "")
xButtArr = Array ("Внизу слева", "", "", "Внизу в центре", "", "", "", "")
2. Измените индекс цвета фона в этой строке:
Ячейки (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Ячейки (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!