excel自动将后两位数加粗并设为黑体

ID:81203 · 发表于 2015-5-27 01:11

自动将后两位数加粗并设为黑体（QZ原创，记录用）

代码如下：
Sub Qz1()
With ActiveCell.Characters(Start:=1, Length:=11).Font
      .Name = "宋体"
      .FontStyle = "常规"
      .Size = 20
      .Strikethrough = False
      .Superscript = False
      .Subscript = False
      .OutlineFont = False
      .Shadow = False
      .Underline = xlUnderlineStyleNone
      .ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=12, Length:=2).Font
      .Name = "黑体"
      .FontStyle = "加粗"
      .Size = 20
      .Strikethrough = False
      .Superscript = False
      .Subscript = False
      .OutlineFont = False
      .Shadow = False
      .Underline = xlUnderlineStyleNone
      .ColorIndex = xlAutomatic
End With
End Sub

帐号		自动登录	找回密码
密码			立即注册

excel自动将后两位数加粗并设为黑体

相关帖子