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

2021年4月11日10:45:42VBA案例精选 更改指定字符串的格式已关闭评论 171 views
微信公众号 【EXCEL880】 QQ群【165159540】
课程咨询 加我微信EXCEL880B试学网址http://v.excel880.com

代码运行结果:

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

代码截图:

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

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接:http://excel880.com/blog/archives/11297

VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录