EXCEL 页眉页脚生成脚本-CSDN博客

本文链接：https://blog.csdn.net/weixin_44456861/article/details/126123002

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