EXCEL中VBA实例技巧:[1]单元格字体格式设置
首先说明一下,这一部分我尽量使用实例的方法来学习。大家最好有VB的基础。多多练习就可以了。
操作方法
- 01
如图所示我们想将单元格的文本的字体进行修改。原来是宋体字。
- 02
右击当前工作表,在弹出的菜单中选择“查看代码”
- 03
首先我们在窗口中输入 Public Sub chgFont() End Sub 1、使用 Public 语句,来显式声明公用的变量。chgFont是我自己取的名字,大家在取名称是尽量要有含义。
- 04
这里我们再使用WITH和END WITH。 在一个单一对象或一个用户定义类型上执行一系列的语句。 一个Range对象代表单元格区域, 我这里是Range("A1").Font,代表使用这个区域A1的字体属性。
- 05
.Name = "黑体",这里可以将A1单元格的区域字体进行修改。
- 06
.FontStyle字体样式,我们同样可以使用个方法进行修改。对应的字体样式如图所示。 “Bold” 加粗,“Italic”倾斜,“Bold Italic”则为倾斜加粗。
- 07
Size属性可以修改字体的字号,这个功能其实很简单,我这里就不要解释了。
- 08
但我们在单元格格式窗口就可以看到下划线有四种样式。怎么样设置呢?
- 09
其可以通过underline属性进行设置,具体数值代表含义,大家看一下图。
- 10
而颜色的设置就比较麻烦。你可以使用 .ColorIndex属性,但这个数值所对应的颜色如下图。需要记忆哦。
- 11
最后我们以这段代码为例 Public Sub chgFont() With Range("A1").Font .Name = "黑体" .FontStyle = "bold" .Size = 45 .ColorIndex = 45 End With End Sub 点击上方的运行按钮。
- 12
这个时候你会发现A1单元格,快速的按照我们设置修改好。
赞 (0)