Excel利用VBA在页眉页脚中调用单元格内容

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”。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。