久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標題: excel自動將后兩位數加粗并設為黑體 [打印本頁]

作者: xiongda 時間: 2015-5-27 01:11
標題: excel自動將后兩位數加粗并設為黑體
自動將后兩位數加粗并設為黑體（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

歡迎光臨 (http://www.zg4o1577.cn/bbs/)