EXCEL 页眉页脚生成脚本

 Sub 生成页眉页脚()Dim gcm As StringDim tm As StringDim rq As StringDim th As Stringrer = MsgBox("你要进行页眉页脚生成？", vbOKCancel, "提示")If rer = vbCancel Then EndUserForm4.Showss = ActiveSheet.IndexIf UserForm4.OptionButton1 = True Or UserForm4.OptionButton2 = True Thengcm = InputBox("请输入工程名称：", "提示")tm = InputBox("请输入图纸名称：", "提示")rq = InputBox("请输入日期：", "提示")th = InputBox("请输入图号：", "提示")Sheets(ss).PageSetup.LeftHeader = "&""黑体,加粗""&14工程：" & gcmSheets(ss).PageSetup.CenterHeader = "&""黑体,加粗""&14图名：" & tmSheets(ss).PageSetup.RightHeader = "&""黑体,加粗""&14日期：" & rqSheets(ss).PageSetup.LeftFooter = "&""黑体,加粗""&14工程技术股份有限公司&""黑体,加粗""&14自动化事业部"Sheets(ss).PageSetup.CenterFooter = _"主任工程师：&""Times New Roman,常规""                    &""宋体,常规""审核人：&""Times New Roman,常规""                    &""宋体,常规""设计师："Sheets(ss).PageSetup.RightFooter = "&""黑体,加粗""&14图号：" & th & "&""宋体,常规""(&P&""宋体,常规""/&N)"End IfIf UserForm4.OptionButton3 = True Thengcm = InputBox("请输入工程名称：", "提示")tm = InputBox("请输入图纸名称：", "提示")rq = InputBox("请输入日期：", "提示")th = InputBox("请输入图号：", "提示")Sheets(ss).PageSetup.LeftHeader = "&""黑体,加粗""&14工程：" & gcmSheets(ss).PageSetup.CenterHeader = "&""黑体,加粗""&14图名：" & tmSheets(ss).PageSetup.RightHeader = "&""黑体,加粗""&14日期：" & rqSheets(ss).PageSetup.LeftFooter = "&""黑体,加粗""&14工程公司&""黑体,加粗""&14自动化事业部"Sheets(ss).PageSetup.CenterFooter = _"主任工程师：&""Times New Roman,常规""               &""宋体,常规""审核人：&""Times New Roman,常规""               &""宋体,常规""设计师："Sheets(ss).PageSetup.RightFooter = "&""黑体,加粗""&14图号：" & th & "&""宋体,常规""(&P&""宋体,常规""/&N)"End IfEnd Sub

EXCEL 页眉页脚生成脚本相关推荐

python批量分析表格_python批量设置多个Excel文件页眉页脚的脚本
python批量设置多个Excel文件页眉页脚的脚本本文实例为大家分享了python批量设置多个Excel文件页眉页脚的具体代码,供大家参考,具体内容如下 import os import open ...
python 操作word页眉表格_python批量设置多个Excel文件页眉页脚的脚本
本文实例为大家分享了python批量设置多个Excel文件页眉页脚的具体代码,供大家参考,具体内容如下 import os import openpyxl from openpyxl.workshee ...
python批量打印机excel_python批量设置多个Excel文件页眉页脚的脚本
本文实例为大家分享了python批量设置多个Excel文件页眉页脚的具体代码,供大家参考,具体内容如下 import os import openpyxl from openpyxl.workshee ...
C# 插入Excel页眉页脚
简介我们可以通过代码编程来对Excel工作表实现很多操作,在下面的示例中,将介绍如何来添加Excel页眉.页脚.在页眉处,我们可以添加文字,如公司名称.页码.工作表名.日期等,也可以添加图片,如LO ...
C# 如何添加Excel页眉页脚（图片、文字、奇偶页不同）
简介我们可以通过代码编程来对Excel工作表实现很多操作,在下面的示例中,将介绍如何来添加Excel页眉.页脚.在页眉处,我们可以添加文字,如公司名称.页码.工作表名.日期等,也可以添加图片,如LO ...
poi导出Excel合并单元格、设置打印参数页眉页脚等
由于生成文件不能落地,使用SXSSFWorkBook来对excel的导出工作生成excel步骤: 1.创建workbook SXSSFWorkbook workbook=new SXSSFWorkb ...
PyQt5使用笔记(一) 处理excel文件获取页眉页脚信息 2020.03.14
Openpyxl库只能处理.xlsx的excel文件, 而xlrd无法获取页眉页脚信息, 使用win32com库调用excel软件来获取页眉, 需要电脑上安装office软件. 1. python 安 ...
【办公-excel】同一个Excel文件中同步自定义页眉页脚
一.问题描述 excel表格在打印设置里如何让自定义页眉永久保留如何保存自定义的页眉页脚呢? 如何保存自定义的页眉页脚到默认的下拉框 Excel 页眉页脚的下拉菜单如果添加和删除? 比如现在下拉菜单 ...
如何利用API导出带有页眉页脚的excel
在报表中设置的页眉页脚在页面中是看不到的,如下图: 页面中的效果: 在打印的时候,可以看到页眉页脚的效果: 那么,如果将页眉页脚导入到导出的excel中呢.我们可以通过API来进行设置: < ...

EXCEL 页眉页脚生成脚本

EXCEL 页眉页脚生成脚本相关推荐

最新文章

热门文章