将Excel文档标题自动更新为页脚,可以利用VBA轻松实现,下面就请跟着小编来实际演示操作一遍吧!
工具/原料
Windows7旗舰版
Excel2010
方法/步骤
1、打开Excel文档,按Alt+F11,打开VBE编辑器,工程区域右键“插入”-“模块”,插入一个新“模块1”。
2、模块蜣贺鱿柢代码区域输入如下代码:Sub页脚更新()DimTAsStringT=ActiveSheet.Range("A1").Value媪青怍牙'此处取当前页面A1的值,可根据需要更改WithActiveSheet.PageSetup.CenterFooter="&""楷体,加粗""&10"&T&"居中"'将A1的值设置为楷体、加粗、10号、居中页脚显示.LeftFooter="&""黑体,加粗""&14"&T&"靠左"'将A1的值设置为黑体、加粗、14号、靠左页脚显示.RightFooter="&""幼圆,加粗""&12"&T&"靠右"'将A1的值设置为幼圆、加粗、14号、靠右页脚显示EndWithEndSub
3、返回Excel文档界面,“开发工具”选项卡下,单击“插入”-“按钮(窗体控件)”,鼠标左键拖拉出一个按钮控件。
4、在按钮控件上右键,单击“指定宏(N)...”。
5、选择“页脚更新”宏,单击“确定”完成宏的指定。
6、单击按钮控件。单击“视图”选项卡下的“页面布局”,可以看到页脚已经实际更新。