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