打印时如何在Excel工作表的页眉或页脚中添加背景色？

网友投稿 219 2024-02-13

打印时如何在Excel工作表的页眉或页脚中添加背景色？

众所周知，我们可以在打印的页眉或页脚中添加内容或图片。但是，您是否曾经尝试过为页眉或页脚添加背景颜色？实际上，没有内置函数可以处理它，但是在这里，我介绍一些实现操作的回旋方式。

通过填充颜色将背景色添加到页眉或页脚

通过VBA将背景颜色添加到页眉和页脚

通过填充颜色将背景色添加到页眉或页脚

1。点击 页面布局 > 页面设置

2.在 页面设置 对话框下 保证金 标签，输入 0 成置顶, 标题, 半身裙/裤 和页脚

文本框。

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