用VBA轻松将单元格内容用在页眉页脚中

w2001pf

有时我们需要在Excel的页眉页脚中调用某个单元格内容，例如让用户在b1单元格中填入时间，如“考试时间：2011年2月”，在页眉处自动生成“考试时间：2011年2月”，可以用VBA代码来实现，步骤如下：    1.按Alt+F11，打开VBA编辑器。
    2.在“工程”窗口中，双击“ThisWorkbook”，在右侧的代码窗口中输入下列代码：
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
       ActiveSheet.PageSetup.LeftHeader = Range("B").Value     End Sub
        如果要在页脚中调用单元格内容，将上述代码改为：
     Private Sub Workbook_BeforePrint(Cancel As Boolean)
       ActiveSheet.PageSetup.LeftFooter = Range("A1").Value
    End Sub
    同样，如果需要在页眉或页脚的中部、右侧调用单元格内容，只须将“LeftHeader”更换成“CenterHeader”、“CenterFooter”、“RightHeader” 和 “RightFooter”。

山青水秀a

vba还没学会，看得我发晕！
{:171:}

xchw1818

谢谢分享，这个真的很有用~~~BeforePrint

ticektno

那调用的时候需要调节字体。如何调节？求教？

w2001pf

ticektno 发表于 2012-8-11 15:20
那调用的时候需要调节字体。如何调节？求教？

.LeftHeader = "" & Chr(10) & "" & Chr(10) & "&""黑体,常规""&10 "