数据结构
网络
关系数据库管理系统 (RDBMS)
操作系统
Java
MS Excel
iOS
HTML
CSS
Android
Python
C语言编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理学
化学
生物学
数学
英语
经济学
心理学
社会学
服装设计
法学如何在Excel电子表格的每一页上应用不同的页眉或页脚？
我们通常在MS Word中使用页眉和页脚，但是您是否尝试过在Excel工作表中使用页眉和页脚？此过程会将无限的Excel工作表划分为页面并添加页眉和页脚。但是，当我们将页眉和页脚应用于第一张表时，相同的页眉和页脚会添加到工作表中的所有页面，但有时您希望在每个过程中添加不同的页眉和页脚。本教程将帮助您解决此问题，即帮助您了解如何在Excel工作表的每一页上应用不同的页眉和页脚。
在Excel中应用每一页不同的页眉或页脚
在这里，我们将首先创建一个VBA模块，然后将其附加到一个形状。让我们来看一个简单的过程，了解如何在Excel电子表格的每一页上应用不同的页眉或页脚。
步骤1
让我们考虑一个新的Excel工作表。现在右键单击工作表名称并选择“查看代码”以打开vba应用程序，然后单击“插入”，选择“模块”，并输入如下所示的程序。
程序
Sub DifferentHeaderFooter()
'Updated By Nirmal
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
步骤2
现在，保存启用宏的工作表，然后按Alt + Q退出应用程序。绘制一个矩形形状，右键单击它，然后选择“分配宏”。将出现一个弹出窗口，如下所示。
然后单击按钮，将在打印预览模式下将不同的页眉应用于工作表。现在，要添加不同的页脚，请在VBA代码中将“页眉”替换为“页脚”。
结论
在本教程中，我们使用了一个简单的示例来演示如何为Excel电子表格的每一页应用不同的页眉和页脚，以突出显示特定数据集。
更新于：2023年1月3日
2K+ 次浏览
广告