Note: The other languages of the website are Google-translated. Back to English

如何将单元格值放在Excel中的页眉/页脚中?

我们可以使用Excel的功能轻松插入包含文件路径,文件名,当前日期或其他信息的页眉或页脚,但是有时,我们想使用单元格值作为Excel中的页眉或页脚。 我们如何将单元格的内容放入工作簿的页眉或页脚中?

使用VBA代码将单元格值放在工作表的页眉或页脚中

使用VBA代码将单元格值放在所有工作表的页眉或页脚中

使用Kutools for Excel将文件信息插入页眉/页脚 好主意3


如果要将单元格内容放在当前工作表的页眉或页脚中,则以下VBA代码可以为您提供帮助。 请执行以下步骤:

1。 激活您要插入带有单元格值的页眉或页脚的工作表,然后按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications窗口.

2点击 插页 > 模块,然后将以下代码粘贴到“模块窗口”中。

VBA代码:将指定的单元格值放在工作表的标题中

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3。 然后按 F5 键以运行该代码,将弹出一个对话框,提醒您选择一个要将其内容放入标题的单元格。doc-insert-cell-value-header1

4。 然后点击 OK,此指定的单元格值已插入到当前工作表的左侧标题中。 您可以通过单击查看标题 文件 > 打印。 看截图:doc-insert-cell-value-header1

笔记:

1.如果要将单元格内容用作活动工作表的页脚,则可以应用以下代码:

VBA代码:将指定的单元格值放在工作表的页脚中

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

2.您也可以将上述代码用于将单元格值插入右侧的页眉/页脚或中心页眉/页脚,只需替换 左标题 / 左脚正确的标题 / 右脚 or 中心头 / 中心脚 在代码中。


有时,您想将带有选定单元格内容的页眉或页脚插入到打开的工作簿的所有工作表中,使用上述代码,您需要一次又一次地重复它们。 在这种情况下,下面的VBA代码可以立即将单元格内容添加到整个工作簿的页眉或页脚中。

1。 激活您要在其中插入带有单元格值的页眉或页脚的工作簿,然后按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications窗口.

2。 点击 插页 > 模块,然后将以下代码粘贴到 模块窗口.

VBA代码:将指定的单元格值放在所有工作表的页脚中

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3。 然后按 F5 键以执行此代码,将弹出一个对话框,提醒您选择一个单元格,将其内容放在整个工作簿的页脚中。

doc-insert-cell-value-header1

4。 然后点击 OK,此选定的单元格值已添加到所有工作表的左脚。 您可以通过单击查看页脚 文件 > 打印。 看截图:

doc-insert-cell-value-header1

笔记:

1.如果要将单元格内容用作整个工作簿的标题,则可以应用以下代码:

VBA代码:将指定的单元格值放在所有工作表的标题中

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

2.替代 右页眉/页脚 or 中心页眉/页脚 提供 左页眉/页脚 如果您希望页眉或页脚的位置不同,请在上述代码中使用。


如果要在页眉或页脚中插入文件管理器信息,例如工作表/工作簿名称,工作簿路径等,则可以使用 Kutools for Excel插入工作簿信息 实用程序,如果您已经安装了Kutools for Excel。

Kutools for Excel, 与超过 300 方便的功能,使您的工作更加轻松。 

免费安装 Kutools for Excel,请执行以下操作:

1。 点击 Kutools 加 > 工作簿 > 插入工作簿信息。 看截图:
文档1

2。 在里面 插入工作簿信息 对话框中,检查您需要在下面插入的信息 资讯 部分,并检查 排气歧管 or 页脚 随你便。

提示: 您可以在页眉或页脚的三个位置插入信息:中心,左侧或右侧。
doc插入工作簿路径1

3。 点击 Ok。 那你可以去 查看 > 页面布局 查看标题。
文档3

使用“插入工作簿信息”,您还可以将文件信息插入到一个或多个单元格中。 单击此处了解有关此实用程序的更多信息。



小费。如果您想将一个工作簿快速拆分为多个工作簿/ pdf文件或csv文件,请尝试使用Kutools for Excel的 拆分工作簿 如以下屏幕截图所示。 功能齐全,不受限制 30 天, 请下载并立即免费试用。

doc拆分工作簿

相关文章:

如何在Excel中的单元格/页眉或页脚中插入文件名或路径?

如何在Excel中插入和删除页眉,页脚和页眉图片?


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

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

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (9)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
我需要将一个有效的工资单日期范围插入到多个工作表中。 用户打开工资单日期表,输入日期范围,然后在打印之前更新工作簿中的所有表。 以下是我如何能够将多个单元格插入到与 2010 兼容的代码更少的范围中: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup。 RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub
该评论由网站上的主持人最小化
我想在标题中插入四个单元格。这个 VB 仅适用于一个单元格。 我该怎么做。 谢谢
该评论由网站上的主持人最小化
您可以尝试将 rht 四个单元格的值连接到一个单元格中,然后将单个单元格用作标题。
该评论由网站上的主持人最小化
您好,有没有一种方法可以添加考虑应用过滤器的单元格值? 例如... A1 = 星期一 A2 = 星期二 A3 = 星期三。 使用 VBA 代码显示单元格 A1 最初可以工作,但是一旦我在一周中的几天应用过滤器,“顶部”单元格值不再是 A1。 有没有办法获取变量? 非常感谢,
该评论由网站上的主持人最小化
当使用您的“VBA 代码:将指定的单元格值放在所有工作表的标题中”时,我希望放置的值被格式化:Tahoma,粗体,字体大小为 12。
如何将其添加到您的代码中?
该评论由网站上的主持人最小化
嗨,

这似乎只工作一次。
如果单元格的值发生变化怎么办?
有没有办法链接单元格,以便在单元格值更改时标题更改?

我有一本工作簿,里面有三张纸。

表 1 标记为“删除表” - 我们发送到仓库的表,其中包含订单的颚化信息
表 2 标有“OA” - 我对客户的订单确认,它从第一张表中提取大部分数据,包括我需要在我的标题中包含的订单号。 所以我试图用订单号(F5)将标题链接到此页面中的单元格,该订单号从第一个工作表(“删除表”)中的(C7)获取它的值
表 3 标记为“发票 - 发票也从第一张表中提取大部分相同的信息,这也需要标题包含从“删除表”中的 (C5) 获取的该表的值 (F7)
该评论由网站上的主持人最小化
这似乎没有建立动态链接,即输入到标题中的值不会在单元格的值发生变化时发生变化。 那么 VBA 代码的目的是什么,当复制/粘贴会做同样的事情时?
该评论由网站上的主持人最小化
你好,尼尔,
如果要将单元格值动态链接到页眉或页脚,请应用以下 VBA 代码:

备注:您应该将代码插入工作表代码而不是普通模块。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub


请试一试,希望对你有帮助
该评论由网站上的主持人最小化
maksudnya bagaimana?
这里还没有评论
请用英文发表您的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护