跳到主要内容

如何在Excel电子表格的每个页面上应用不同的页眉或页脚?

添加一名作者 最后修改时间:2020-12-11

默认情况下,当在工作表中插入页眉或页脚时,页眉或页脚内容将应用于所有页面。 对于许多人来说,不同的页面在其工作表中可能具有不同的内容。 在打印出工作表后,他们倾向于将这些页面与页眉或页脚内容区分开。 如何在工作表的每个页面上应用不同的页眉或页脚? 本文中的方法可以为您提供帮助。

使用VBA代码在每个页面上应用不同的页眉或页脚


使用VBA代码在每个页面上应用不同的页眉或页脚

下面的VBA代码可以帮助您在工作表的每一页上应用不同的页眉或页脚。 请执行以下操作。

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序的窗口。

2.在 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块。 然后将以下VBA代码复制并粘贴到 代码 窗口。 看截图:

VBA代码:在Excel中的每个页面上应用不同的标题

Sub DifferentHeaderFooter()
    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

:

1.在VBA代码中,您需要在代码段中分配不同的页眉或页脚名称:vLeft = Array(“第一页”,“第二页”,“第三页”,“第四页”)“。
2.并在代码段中指定当前工作表中每页的打印区域“xRg = Array(“ A1:C50”,“ A51:C100”,“ A101:C150”,“ A151:C200”)“。
3.要应用不同的页脚,请替换“标题代码中带有“页脚“。

3。 按 F5 键来运行代码。 然后 预览 弹出窗口,请点击 打印 按钮开始打印具有不同页眉或页脚的页面。

备注:如果工作表中有4个指定的打印页面,则需要单击 打印 单击四次以完成整个打印。

最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

描述


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations