如何在Excel電子表格的每一頁上應用不同的頁首或頁尾？

我們通常在MS Word中使用頁首和頁尾，但是您是否嘗試過在Excel工作表中使用頁首和頁尾？此過程會將無限的Excel工作表劃分為頁面並新增頁首和頁尾。但是，當我們將頁首和頁尾應用於第一張表時，相同的頁首和頁尾會新增到工作表中的所有頁面，但有時您希望在每個過程中新增不同的頁首和頁尾。本教程將幫助您解決此問題，即幫助您瞭解如何在Excel工作表的每一頁上應用不同的頁首和頁尾。

在Excel中應用每一頁不同的頁首或頁尾

在這裡，我們將首先建立一個VBA模組，然後將其附加到一個形狀。讓我們來看一個簡單的過程，瞭解如何在Excel電子表格的每一頁上應用不同的頁首或頁尾。

步驟1

讓我們考慮一個新的Excel工作表。現在右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟vba應用程式，然後單擊“插入”，選擇“模組”，並輸入如下所示的程式。

程式

Sub DifferentHeaderFooter()
'Updated By Nirmal
   Dim ws As Worksheet
   Dim vLeft As Variant, vRight As Variant, xRg As Variant
   Set ws = ActiveSheet
   On Error Resume Next
   vLeft = Array("First page", "Second page", "Third page", "fourth page")
   xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")

   Application.ScreenUpdating = False
   For i = 0 To UBound(vLeft)
      With ws.PageSetup
      .PrintArea = xRg(i)
      .LeftHeader = vLeft(i)
      End With
      ws.PrintPreview
   Next i
   Application.ScreenUpdating = True
   ws.PageSetup.PrintArea = ""
End Sub

步驟2

現在，儲存啟用宏的工作表，然後按Alt + Q退出應用程式。繪製一個矩形形狀，右鍵單擊它，然後選擇“分配宏”。將出現一個彈出視窗，如下所示。

然後單擊按鈕，將在列印預覽模式下將不同的頁首應用於工作表。現在，要新增不同的頁尾，請在VBA程式碼中將“頁首”替換為“頁尾”。

結論

在本教程中，我們使用了一個簡單的示例來演示如何為Excel電子表格的每一頁應用不同的頁首和頁尾，以突出顯示特定資料集。

更新於：2023年1月3日

2K+ 次瀏覽

啟動您的職業生涯

透過完成課程獲得認證

開始
廣告