代码运行结果:
代码截图:
代码文本:
Public Sub 技巧()
Dim myRange As Range
Dim myChr As Characters
Set myRange = Range("A1") '指定任意的单元格区域
Cells.Clear '清除工作表数据
With myRange
.Value = "ExcelVBA使用技巧手册"
MsgBox "下面将“技巧”两字设置为加粗及斜体,15号字,华文新魏字体,红色。"
Set myChr = .Characters(Start:=11, Length:=2)
With myChr.Font
.Name = "华文新魏"
.Size = 15
.Bold = True
.Italic = True
.ColorIndex = 3
End With
End With
Set myChr = Nothing
Set myRange = Nothing
End Sub
注释:
Font对象包含对象的字体属性(字体名称、字号、颜色等等),其中 Name为字体名称,Size为字号,Bold = True则是加粗,Italic = True则是倾斜,ColorIndex = 3为颜色红色。
VBA编辑神器放送
VBA编程神器 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用
私信回复 代码助手 即可获得
VBA密码破解 代码混淆保护加密 代码库输入提示
本提示数据库可完全自定义!
本人微信公众号 EXCEL880 每天分享Excel实战技术
私信回复 教程 可领取7天免费教程