有時我們需要在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”。