Как да добавите фонов цвят към горни или долни колонтитули в лист на Excel по време на печат?
Както знаем, можем да добавим съдържание или картина към горния или долния колонтитул на лист, който ще се показва по време на печат. Но опитвали ли сте някога да добавите фонов цвят към горните или долните колонтитули? Всъщност няма вградена функция, която да се справи с това, но тук представям някои заобиколни начини за постигане на операцията.
Добавете фонов цвят към горен или долен колонтитул чрез цвят на запълване
Добавете фонов цвят към горния и долния колонтитул от VBA
Добавете фонов цвят към горен или долен колонтитул чрез цвят на запълване
1. кликване Page Layout > Page Setup.
2. В Page Setup диалог, под Полета раздел, въведете 0 в Топ, Header, дъно намлява Footer текстови полета.
3. кликване OK. След това изберете първия ред и щракнете Начало > Обединяване и центриране.
3. Продължете, за да изберете цвят от Попълнете цвятr списък, за да добавите цвят на фона към обединените клетки.
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. Променете индекса на цвета на фона в това жило:
Cells(I, J).Resize(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% и намалява стотици кликвания на мишката за вас всеки ден!