ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 如何用VBA对页脚的文字进行特殊设置?

如何用VBA对页脚的文字进行特殊设置?

作者:绿色风 分类: 时间:2022-08-17 浏览:143
楼主
omnw
Q:如何用VBA给页脚中的字符设置双下划线?
A:使用“&E”格式代码,可以将页脚中的字符设置打印双下划线,如下代码将左页脚中的字符设置打印双下划线。
  1. Sub 自定义页脚()
  2.     ActiveSheet.PageSetup.LeftFooter = "&E中左右"
  3. End Sub
双下划线.jpg
 

页面设置.rar
2楼
omnw
Q:如何用VBA给将页脚中的字符设置上标?
A:使用“&X”格式代码,可以将页脚中的字符设置打印成上标,如下代码将左页脚中的“右”字设置打印成上标。
  1. Sub 自定义页脚()
  2.     ActiveSheet.PageSetup.LeftFooter = "中左&X右"
  3. End Sub
上标.jpg
 

页面设置.rar
3楼
omnw
Q:如何用VBA给将页脚中的字符设置下标?
A:使用“&Y”格式代码,可以将页脚中的字符设置打印成下标,如下代码将左页脚中的“右”字设置打印成下标。
  1. Sub 自定义页脚()
  2.     ActiveSheet.PageSetup.LeftFooter = "中左&Y右"
  3. End Sub
下标.jpg
 

页面设置.rar
4楼
omnw
Q:如何用VBA给将页脚中的字符打印成粗体?
A:使用“&B”格式代码,可以将页脚中的字符设置打印成粗体,如下代码将左页脚中的“右”字设置打印成粗体。
  1. Sub 自定义页脚()
  2.     ActiveSheet.PageSetup.LeftFooter = "中左&B右"
  3. End Sub

页面设置.rar
5楼
omnw
Q:如何用VBA给将页脚中的字符打印成斜体?
A:使用“&I”格式代码,可以将页脚中的字符设置打印成斜体,如下代码将左页脚中的“右”字设置打印成斜体。
  1. Sub 自定义页脚()
  2.     ActiveSheet.PageSetup.LeftFooter = "中左&I右"
  3. End Sub

页面设置.rar
6楼
omnw
Q:如何用VBA给将页脚中的字符打印单下划线?
A:使用“&U”格式代码。它的作用是将之后的字符打印单下划线。使用以下代码将左页脚中的“右”字打印下划线。
  1. Sub 自定义页脚()
  2.     ActiveSheet.PageSetup.LeftFooter = "中左&U右"
  3. End Sub

效果如下图。未命名.PNG
 

页面设置.rar
7楼
omnw
Q:如何用VBA给将页脚中的字符打印单删除线?
A:使用“&S”格式代码。它的作用是将之后的字符打印单删除线。如下代码将左页脚中的“左”字设置打印删除线:

  1. Sub 自定义页脚()
  2.     ActiveSheet.PageSetup.LeftFooter = "中&S左&S右"
  3. End Sub
未命名.PNG
 

页面设置.rar
8楼
omnw
Q:如何用VBA在页脚中的打印当前日期?
A:使用“&D”格式代码。它的作用是在页脚中打印当前日期。以下代码在左页脚的“左”和“右”两个字中间打印当前日期:

  1. Sub 自定义页面设置()
  2.     ActiveSheet.PageSetup.LeftFooter = "中左&D右"
  3. End Sub


 

注意:这个日期格式在默认情况下是与“控制面板”中“区域与语言”中的“短日期”格式是相同的。如果要修改日期的格式可以通过修改“短日期”格式来实现。
页面设置.rar
9楼
gouweicao78
1、建议提供完整的代码?单独一句这样的代码是不能实现的。
2、建议能提供示例。
10楼
gouweicao78
这个结论下的,很不严谨啊。
  1. ActiveSheet.PageSetup.LeftFooter = "中左" & Format(Now, "yyyy.m.d") & "右"
11楼
monvzhilei
我学习,暂时提不出什么建设性建议。
12楼
omnw
Q:如何用VBA在页脚中打印“&”字符?
A:在页眉/页脚中以“&”开头的字符被设置成具有特殊意义的格式符(无效的格式符会被忽略),因此在页脚中输入“&C”、“&O“这样以“&”开头的字符,是无法被正确打印成“&C”、“&O”的。这是因为EXCEL将&C”、“&O”判定为具有特定含义的格式代码,而不是做为普通字符来打印的。为了实现打印“&”的目的,可以在输入两个“&”,即“&&C”、“&&O”。如下代码在页脚中打印&C”:
  1. Sub 自定义页脚()
  2.     Worksheets(1).PageSetup.LeftFooter = "中左&&C右"
  3. End Sub

页面设置.rar
13楼
biaotiger1
  1. ActiveSheet.PageSetup.LeftFooter = "&&"
卞版好快的,否则不知道又给谁提供了一个加分的机会哦

14楼
biaotiger1
  1. ActiveSheet.PageSetup.LeftFooter = "&""-,加粗""&22中国"

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap