如何将单元格值放在Excel中的页眉/页脚中? 您所在的位置:网站首页 在word中用户设定的页眉页脚必须在 如何将单元格值放在Excel中的页眉/页脚中?

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

2023-05-27 01:17| 来源: 网络整理| 查看: 265

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

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

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

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

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

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

如果要将单元格内容放在当前工作表的页眉或页脚中,则以下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代码将单元格值放在所有工作表的页眉或页脚中

有时,您想将带有选定单元格内容的页眉或页脚插入到打开的工作簿的所有工作表中,使用上述代码,您需要一次又一次地重复它们。 在这种情况下,下面的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.

Kutools for Excel, 与超过 300 方便的功能,使您的工作更加轻松。  免费下载免费全功能 30 天

后 免费安装 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底部 阅读更多 免费下载... 采购...   


【本文地址】

公司简介

联系我们

今日新闻

    推荐新闻

    专题文章
      CopyRight 2018-2019 实验室设备网 版权所有