自動將后兩位數加粗并設為黑體（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
|
