☰

如何为所有工作表（包括新工作表）设置相同的页眉/页脚？

tag-icon • tag-icon microsoft-excel microsoft-excel-2007
如何为所有工作表（包括新工作表）设置相同的页眉/页脚？

每次谷歌搜索应用相同的标题时，都会提示要突出显示所有工作表并设置标题。如何确保我添加的新工作表也获得相同的标题，而不是总是

答案1

作为第一次尝试我将使用这个事件：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   sh.range("A1").value = "xxx"
End Sub

您必须将此宏添加到您的工作簿中，而不是工作表，也不是作为模块或类。

另一种方法可能是使用为此设计的插件 - 目的是使每个工作簿都具有这种行为。

答案2

这是将页眉和页脚从第一张工作表复制到新工作表的 VBA 代码。将其插入ThisWorkbookVBA Explorer ( Alt+ F11) 并保存。它将在您添加新工作表时运行。

调整第 4 行，内容为Sheet1，作为第一张工作表的名称。

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim Ws As Worksheet
   'Change "Sheet1" below to the name of sheet being copied
   Set Setup = Worksheets("Sheet1").PageSetup
    With ActiveSheet.PageSetup
     .LeftHeader = Setup.LeftHeader
     .CenterHeader = Setup.CenterHeader
     .RightHeader = Setup.RightHeader
     .LeftFooter = Setup.LeftFooter
     .CenterFooter = Setup.CenterFooter
     .RightFooter = Setup.RightFooter
     End With
End Sub

如果要手动运行，请将第一行更改为

Sub CopyHeaderFooter()

然后它将显示为一个可运行的宏（Alt+ F8），CopyHeaderFooter您可以在需要时执行它。

相关内容