【excel段落设置】管理excel样式，使用VBA代码，设置单元格样式

No.1

Excel的优点是样式管理良好，可以显着提高表格制作效率，并且不需要每次设置单元格格式。

同时可以节省大量的工作时间。

下面介绍了样式管理的一种方法和属性。

No.2

样式对固定格式进行分类和保存，以后需要指定相同的格式时，只需选择“应用样式”。不需要重复设置表格字体等。

例如，设置楷体、大小：12、粗体、字体颜色红色、左对齐等字体。

将上述内容格式定义为样式，获取样式名称NewStyle1并保存。

套用时，您可以先选取要设定的储存格或段落，然后从「储存格样式」快显功能表中选取样式名称。

相对简单。

让我们看一下具有1个方法和29个属性的样式Style对象。

如下图所示。

样式的属性很多。其中一些属性返回对象，对象包含更多属性，因此在使用样式之前必须了解所需的对象。否则，学习风格会受到很大的阻碍。

返回的对象包含Font、Interior和样式的父对象，该父对象相对不确定。

因此，应用时要全面学习其他对象和属性。

No.3

例如，说明样式的新建和应用方法。

字体对象Font的设置使用如上图所示可以直接定义的新字体样式进行说明。

具体代码句后面有介绍。

新样式

新样式使用Add方法。

t(型式名称)

注意：新建样式使用Styles对象。样式对象的集合。

删除样式

用于删除样式的对象是Style的Delete方法

T (1)。删除

请重点记住使用新样式集合(样式)、使用样式本身删除(样式)。

No.4

新样式代码

Private Sub AddNewStyle()

Dim w as工作表、f as range

Set w=作用中的图纸

Dim stName As String

StName=Range('A3 ')。Value

DelStyle

' With w.S(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 Ac

If=范围(' A3 ')。“Value Then”定义了要删除的样式名为R3单元格的内容。删除样式

End If

Next ST

End Sub应用程序样式

Private Sub CommandButton1_Click()

Dim w as工作表、str as range和ST as style

Set w=作用中的图纸

Set stR=w.Range('A3 ')

Set ST=Ac。Item)

“Selec=ST”应用程序样式

取消应用End Sub样式

Private Sub CommandButton3_Click()

单元欧共体

End Sub样式释放应用程序是使用清除单元格格式来实现的。

通常，样式应用方法的整个过程就是这个过程。对于其他属性设置，可以在实际应用期间设置。这里不做太多介绍。

-结束-

欢迎关注，所长。