VBA实现Excel标题自动更新页脚

 时间:2024-10-11 22:47:56

1、打开Excel文档,按Alt+F11,打开VBE编辑器,工程区域右键“插入”-“模块”,插入一个新“模块1”。

VBA实现Excel标题自动更新页脚

2、模块蜣贺鱿柢代码区域输入如下代码:Sub 页脚更新()Dim T As String T = ActiveSheet.Range("A1").Value 媪青怍牙'此处取当前页面A1的值,可根据需要更改With ActiveSheet.PageSetup .CenterFooter = "&""楷体,加粗""&10" & T & "居中" '将A1的值设置为楷体、加粗、10号、居中页脚显示 .LeftFooter = "&""黑体,加粗""&14" & T & "靠左" '将A1的值设置为黑体、加粗、14号、靠左页脚显示 .RightFooter = "&""幼圆,加粗""&12" & T & "靠右" '将A1的值设置为幼圆、加粗、14号、靠右页脚显示End WithEnd Sub

VBA实现Excel标题自动更新页脚

3、返回Excel文档界面,“开发工具”选项卡下,单击“插入”-“按钮(窗体控件)”,鼠标左键拖拉出一个按钮控件。

VBA实现Excel标题自动更新页脚

4、在按钮控件上右键,单击“指定宏(N)...”。

VBA实现Excel标题自动更新页脚

5、选择“页脚更新”宏,单击“确定”完成宏的指定。

VBA实现Excel标题自动更新页脚

6、单击按钮控件。单击“视图”选项卡下的“页面布局”,可以看到页脚已经实际更新。

VBA实现Excel标题自动更新页脚
  • 如何在Excel中用VBA批量新建模板工作表
  • 怎样使用VBA按条件插入分页符?
  • 如何在excel里设置自动更正输入内容
  • 怎样使用VBA不同工作簿间移动工作表?
  • arcgis中替换回车符换行符:字段计算器Python版
  • 热门搜索
    文明礼仪手抄报名言 手抄报中秋 禁毒手抄报资料 健康饮食手抄报内容 六一儿童节手抄报图片 英语国庆手抄报 关于清明的手抄报内容 学会感恩手抄报 关于月球的手抄报 关于父亲节的手抄报