☰

如何為所有工作表（包括新工作表）設定相同的頁首/頁尾？

tag-icon • tag-icon microsoft-excel microsoft-excel-2007
如何為所有工作表（包括新工作表）設定相同的頁首/頁尾？

每個應用相同標題的Google搜尋都會顯示突出顯示所有工作表並設定標題。如何確保我添加的新工作表也獲得相同的標題，而不總是

答案1

作為第一次嘗試，我將使用此事件：

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

您必須將此巨集新增至您的工作簿中，而不是新增至工作表中，而不是以模組或類別新增。

另一種方法可能是使用為此而設計的加載項 - 目的是在每個工作簿中都具有這種行為。

答案2

以下是用於將頁首和頁尾從第一個工作表複製到新工作表的 VBA 程式碼。將其插入ThisWorkbookVBA 資源管理器 ( Alt+ F11) 中並儲存。當您新增工作表時它將運行。

將第四行的內容調整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您可以在需要時執行。

相關內容