Excel利用VBA在頁(yè)眉頁(yè)腳中調(diào)用單元格內(nèi)容
有時(shí)我們需要在Excel的頁(yè)眉頁(yè)腳中調(diào)用某個(gè)單元格內(nèi)容，例如讓用戶在A1單元格中填入月份，如“一月”，在頁(yè)眉處自動(dòng)生成“一月報(bào)表”，可以用VBA代碼來(lái)實(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)在頁(yè)眉左側(cè)調(diào)用A1單元格中的內(nèi)容，如A1單元格內(nèi)容為“一月”，左側(cè)頁(yè)眉中顯示“一月報(bào)表”。
如果要在頁(yè)腳中調(diào)用單元格內(nèi)容，將上述代碼改為：
Private Sub Workbook_BeforePrint(Cancel As Boolean)ActiveSheet.PageSetup.LeftFooter = Range("A1").Value & "報(bào)表"End Sub
同樣，如果需要在頁(yè)眉或頁(yè)腳的中部、右側(cè)調(diào)用單元格內(nèi)容，只須將“LeftHeader”更換成“CenterHeader”、“CenterFooter”、“RightHeader” 和 “RightFooter”。
