作者：绿色风
分类：
时间：2022-08-17
浏览：97
楼主
biaotiger1 |
Q：如何利用VBA为单元格设置样式？
A：在工作表标签处单击右键，弹出快捷菜单→“查看代码”→输入代码如下
- Sub 遍历样式并在A列设置样式()
- Dim I
- For I = 1 To ActiveWorkbook.Styles.Count
- With Cells(I, 1)
- .Value = ActiveWorkbook.Styles(I).Name
- .Style = ActiveWorkbook.Styles(I)
- End With
- Next
- End Sub
 遍历样式并在A列设置样式.rar
|
2楼
biaotiger1 |
Q：如何利用VBA新建单元格样式？
A：ALT+F11→“插入”→“模块”→输入代码如下
- Sub 新建单元格样式()
- With ActiveWorkbook.Styles.Add("仅设置边框")
- .IncludeNumber = False
- .IncludeFont = False
- .IncludeAlignment = False
- .IncludeBorder = True
- .IncludePatterns = False
- .IncludeProtection = False
- .Borders.Weight = xlThick
- .Borders(xlTop).ThemeColor = 10
- .Borders(xlBottom).ThemeColor = 10
- End With
- End Sub
运行以上代码，则在“单元格样式”的“自定义”组中插入了一个名称为“仅设置边框”的新样式。该样式左右边框黑色加粗，上下边框棕色加粗。
新建单元格样式.rar
|
3楼
biaotiger1 |
Q：如何利用VBA删除自定义单元格样式？
A：ALT+F11→“插入”→“模块”，在代码窗口中输入如下代码
- Sub 删除自定义单元格样式()
- Dim S As Style
- For Each S In ActiveWorkbook.Styles
- If S.BuiltIn = False Then S.Delete
- Next
- End Sub
运行以上代码，则“单元格样式”扩展按钮中“自定义”组中的单元格样式将被删除 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一