作者:绿色风
分类:
时间:2022-08-17
浏览:115
楼主 biaotiger1 |
Q:“循环字体颜色”按钮设置字体颜色的VBA代码是什么? A:【ALT+F11】→“插入”→“模块”,在新建模块中输入代码如下:
- Sub 循环字体颜色()
- With Selection.Font
- .ThemeColor = xlThemeColorDark2
- .ThemeColor = xlThemeColorLight2
- .ThemeColor = xlThemeColorAccent1
- .ThemeColor = xlThemeColorAccent2
- .ThemeColor = xlThemeColorAccent3
- .ThemeColor = xlThemeColorAccent4
- .ThemeColor = xlThemeColorAccent5
- .ThemeColor = xlThemeColorAccent6
- .ThemeColor = xlThemeColorHyperlink
- .ThemeColor = xlThemeColorFollowedHyperlink
- .ThemeColor = xlThemeColorDark1
- .ThemeColor = xlThemeColorLight1
- End With
- End Sub
按【F8】键单步执行以上代码,即可观察到其变化与依次单击“循环字体颜色”按钮一致。
代码中ThemeColor常量名称及说明见下帖: [Excel VBA] XlThemeColor 枚举变量 http://www.exceltip.net/thread-16083-1-1.html |
2楼 lnt1231 |
过来学习学习 |
3楼 qicpw |
就看看,不说话。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素,
经与ExcelTip.Net站长Apolloh商议并征得其同意,
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示,
供有需要的人士查询使用,也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议,
可与本人沟通提出,或于本站点留言,我们会尽快处理。
在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一