VBA共享代码:设置单元格字体

论坛 期权论坛 期权     
简约游记   2019-7-27 22:51   3015   0
    本文关键字:单元格字体(微信公众号回复本文关键字可随时查看)

    我学的不是计算机专业,只是10多年前学习了一个在Excel中使用Visual Basic for Application(简称VBA)的速成教程,所以各位大佬看到我的代码幼稚可笑,欢迎指正,但不要拍砖拍的太狠,跪谢,

    设置单元格格式代码:

'如果只设置单元格中的部分文字,用Characters(Start:=1, Length:=2)定位,例如此处为开始位置是第1个字符,长度2个字符
With Selection.Characters(Start:=1, Length:=2).Font

'字体-字体
       .Name = "宋体"

'字体-字形(常规、倾斜、加粗、倾斜加粗)
       .FontStyle = "常规"

'字体-字号
       .Size = 11

'字体-特殊效果-删除线
       .Strikethrough = False

'字体-特殊效果-上标
       .Superscript = False

'字体-特殊效果-下标
       .Subscript = False

'空心字体(软件说明:本属性在 Windows 中无效,但保留其值(可被设置和返回)。)
       .OutlineFont = False

'阴影字体(软件说明:本属性在 Windows 中无效,但保留其值(可被设置和返回)。)
       .Shadow = False

'字体-下划线(无xlUnderlineStyleNone;单下划线xlUnderlineStyleSingle;双下划线xlUnderlineStyleDouble;会计用单下划线xlUnderlineStyleSingleAccounting;会计用双下划线xlUnderlineStyleDoubleAccounting)
       .Underline = xlUnderlineStyleNone

'字体-字体颜色(自动)
       .ColorIndex = xlAutomatic

'字体-字体颜色(主题颜色-黑色)
       .ThemeColor = xlThemeColorLight1

'字体-字体颜色(标准色-红色)
       .Color = 255

'字体-字体颜色(其他颜色)
       .Color = 16711935

'颜色深浅,值为-1(最暗)到 1(最亮)(未看出效果)
       .TintAndShade = 0

'返回或设置与指定对象关联的应用字体方案中的主题字体(未看出效果)
       .ThemeFont = xlThemeFontNone

End With
分享到 :
0 人收藏
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

积分:18
帖子:3
精华:0
期权论坛 期权论坛
发布
内容

下载期权论坛手机APP