No.1
Excel有很好的样式进行设置管理，可以大大提高表格制作效率，其优点是不必要每次对单元格格式进行设置。
同时可节省大量的工作时间。
下面介绍一下，样式管理的一个方法和属性。
No.2
样式就是对一种固定的格式进行分类保存，以后用到需要设置相同格式的时候，只需要选择样式应用就可以，不必对表格字体等等进行重复设置的一种方法。
比如，设置了一个字体：楷体，字号：12，粗体字体，字体颜色为红色，距左对齐。
将以上内容格式，定义为一个样式，取个样式名称：NewStyle1，进行保存。
应用的时候，首先选择要设置的单元格或段落，在“单元格样式”快捷菜单里选择样式名称就可以了。
相对比较简单。
下面看一下样式Style对象，其有1个方法，和29个 属性。
下图所示：
样式的属性很多，其中一些属性返回对象，对象所涉及的属性就更多了 ，所以在使用样式之前，要对一些必要的对象进行了解，不然学习样式就会遇到很大阻碍。
返回对象包括Font，Interior和样式的父对象，这个父对象就比较不确定了。
所以，在应用的时候要很全面地学习其它对象以及属性。
No.3
举个实例来说明一下，样式的新建和应用方法。
以新建一个字体样式来进行说明，其中字体对象Font的设置如上图，可以自已定义。
具体代码文章后面有介绍。
新建样式
新建样式使用Add方法：
ThisWorkSheet.Styles.Add(StyleName)
注意：样式新建使用的是Styles对象。它是Style对象的集合。
删除样式
删除样式用到的对象是Style的Delete方法
ThisWorkSheet.Styles.Item(1).Delete
重点记住：新建使用样式集合（Styles），删除使用样式本身(Style)。
No.4
新建样式代码
Private Sub AddNewStyle()
Dim w As Worksheet, f As Range
Set w = ActiveSheet
Dim stName As String
stName = Range("A3").Value
DelStyle
With w.Styles.Add(stName)'新建样式
With .Font'设置样式
.Name = f.Value
.Size = f.Offset(1, 0).Value
.Bold = f.Offset(2, 0).Value
.Italic = f.Offset(3, 0).Value
.Superscript = f.Offset(4, 0).Value
.Subscript = f.Offset(5, 0).Value
.Strikethrough = f.Offset(6, 0).Value
End With
End With
End Sub
删除样式
Sub DelStyle()
Dim st As Style
For Each st In ActiveWorkbook.Styles
If st.Name = Range("A3").Value Then'定义要删除样式名为R3单元格内容
st.Delete'删除样式
End If
Next st
End Sub
应用样式
Private Sub CommandButton1_Click()
Dim w As Worksheet, stR As Range, st As Style
Set w = ActiveSheet
Set stR = w.Range("A3")
Set st = ActiveWorkbook.Styles.Item(stR.Value)
Selection.Style = st'应用样式
End Sub
取消应用样式
Private Sub CommandButton3_Click()
Selection.ClearFormats
End Sub
取消样式应用利用清除单元格格式实现。
总体来说，样式应用方法整个过程就是这个流程。至于其它属性设置方面，可以在实际应用过程中进行设置。这里就不做过多介绍。
---END---
欢迎关注、收藏
