VBA案例精选 更改指定字符串的格式

代码运行结果:

代码截图:

代码文本:

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为颜色红色。

(0)

相关推荐