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 RangeSet w = ActiveSheetDim stName As StringstName = Range("A3").ValueDelStyleWith 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 WithEnd WithEnd 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 stEnd Sub应用样式
Private Sub CommandButton1_Click()Dim w As Worksheet, stR As Range, st As StyleSet w = ActiveSheetSet stR = w.Range("A3")Set st = ActiveWorkbook.Styles.Item(stR.Value)Selection.Style = st'应用样式End Sub取消应用样式
Private Sub CommandButton3_Click()Selection.ClearFormatsEnd Sub取消样式应用利用清除单元格格式实现。
总体来说，样式应用方法整个过程就是这个流程。至于其它属性设置方面，可以在实际应用过程中进行设置。这里就不做过多介绍。
---END---
