excel運(yùn)用VBA在頁眉頁腳中調(diào)用單元格內(nèi)容

?有時(shí)我們需要在Excel的頁眉頁腳中調(diào)用某個(gè)單元格內(nèi)容，例如讓用戶在A1單元格中填入月份，如“一月”，在頁眉處自動(dòng)生成“一月報(bào)表”，可以用VBA代碼來實(shí)現(xiàn)，步驟如下：

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

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

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

這樣，每次在打印工作表時(shí)，會(huì)自動(dòng)在頁眉左側(cè)調(diào)用A1單元格中的內(nèi)容，如A1單元格內(nèi)容為“一月”，左側(cè)頁眉中顯示“一月報(bào)表”。

如果要在頁腳中調(diào)用單元格內(nèi)容，將上述代碼改為：

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

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