本文关键字：单元格字体（微信公众号回复本文关键字可随时查看）
我学的不是计算机专业，只是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
|
|
转播
