excel運用VBA在頁眉頁腳中調用單元格內容

?有時我們需要在Excel的頁眉頁腳中調用某個單元格內容，例如讓用戶在A1單元格中填入月份，如“一月”，在頁眉處自動生成“一月報表”，可以用VBA代碼來實現，步驟如下：

1.按Alt+F11，打開VBA編輯器。

2.在“工程”窗口中，雙擊“ThisWorkbook”，在右側的代碼窗口中輸入下列代碼：

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Range("A1").Value & "報表"
End Sub

這樣，每次在打印工作表時，會自動在頁眉左側調用A1單元格中的內容，如A1單元格內容為“一月”，左側頁眉中顯示“一月報表”。

如果要在頁腳中調用單元格內容，將上述代碼改為：

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Range("A1").Value & "報表"
End Sub

同樣，如果需要在頁眉或頁腳的中部、右側調用單元格內容，只須將“LeftHeader”更換成“CenterHeader”、“CenterFooter”、“RightHeader” 和 “RightFooter”。