如何将单元格值放在Excel中的页眉/页脚中？-英雄云拓展知识分享

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

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

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

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

使用tools for Excel将文件信息插入页眉/页脚

使用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 = "toolsforExcel"
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 键以运行该代码，将弹出一个对话框，提示您选择一个要将其内容放入标题的单元格。

4。 然后点击 OK，此指定的单元格值已插入到当前工作表的左边标题中。 您可以经过单击查看标题 文件 > 列印。 看截图：

笔记：

1.如果要将单元格内容用作活开工作表的页脚，则可以利用以下代码：

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

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "toolsforExcel"
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.您也能够将上述代码用于将单元格值插入右边的页眉/页脚或中心页眉/页脚，只需替换 左标题 / 左脚 with 正确的标题 / 右脚 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 = "toolsforExcel"
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 键以履行此代码，将弹出一个对话框，提示您选择一个单元格，您要将其内容放在全部工作簿的页脚中。

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

笔记：

1.如果要将单元格内容用作全部工作簿的标题，则可以利用以下代码：

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

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "toolsforExcel"
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 中心页眉/页脚 左页眉/页脚 如果您希望页眉或页脚的位置不同，请在上述代码中。

使用tools for Excel将文件信息插入页眉/页脚

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

后 免费安装 tools for Excel，请履行以下操作：

1。 点击 tools 加 > 工作簿 > 插入工作簿信息。 看截图：

2。 在里面 插入工作簿信息 对话框中，检查您需要在下面插入的信息 资讯 部份，并检查 头 or 页脚 随你便。

小提示: 您可以在页眉或页脚的3个位置插入信息：中心，左边或右边。

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

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

  在单元格/页眉/页脚中插入工作簿信息