Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

Добавить цвет фона в верхний или нижний колонтитул цветом заливки

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

Вставьте информацию о книге в верхний или нижний колонтитул в Excel

Если у вас есть Kutools for Excel установленных, вы можете применить Вставить информацию о книге утилита для быстрого вставки имени рабочего листа, имени рабочей книги, пути к книге и имени или другой информации в верхний или нижний колонтитул или ячейку. Нажмите для бесплатной пробной версии 60!
doc добавить фон в заголовок 8
Kutools for Excel: с более чем 200 удобными надстройками Excel, без ограничений в 60-дни.

Добавить цвет фона в верхний или нижний колонтитул цветом заливки

1. Нажмите Макет страницы > Параметры страницы.
doc добавить фон в заголовок 1

2. в Параметры страницы диалога под Поля вкладка, введите 0 в ТОП, заголовок, Дно нижний колонтитул Textboxes.
doc добавить фон в заголовок 2

3. Нажмите OK, Затем выберите первую строку и нажмите Главная > Слияние и центр.
doc добавить фон в заголовок 3

3. Идем дальше, чтобы выбрать цвет из Заполнить цветr, чтобы добавить цвет фона в объединенные ячейки.
doc добавить фон в заголовок 4

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

Теперь, похоже, страница добавляет цвет фона в верхний и нижний колонтитулы.
doc добавить фон в заголовок 5


Добавить цвет фона в верхний и нижний колонтитулы по 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

doc добавить фон в заголовок 6

3. Нажмите F5 ключ для запуска кода, то в первую строку добавлен определенный цвет фона и строка 47th каждого листа, которая будет отображаться как поддельный заголовок и нижний колонтитул.
doc добавить фон в заголовок 7

Примечание: в коде вы можете изменить ниже сценарии, чтобы удовлетворить ваши потребности.

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

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

xButtArr = массив («нижний левый», «», «», «нижний центр», «", "", "", "")

2. Измените индекс фона в этом объявлении:

Ячейки (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34

Ячейки (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34


быстро вставляйте разрывы страниц в каждую n-ю строку рабочего листа.

В некоторых случаях нам нужно вручную вставлять разрывы страниц в каждую строку или n-я строку, чтобы печатать их как одну страницу, которая будет потеряна. Вот Kutools for Excel's Вставить разрыв страницы в каждую строку функция может быстро и легко вставлять разрывы страниц в каждой n-й строке с помощью шагов 2. Нажмите для бесплатной пробной версии 60!
doc вставить страницу разбить каждую строку
Kutools for Excel: с более чем 200 удобными надстройками Excel, без ограничений в 60-дни.

Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.