excel自動將后兩位數(shù)加粗并設(shè)為黑體

[復(fù)制鏈接]

電梯直達(dá)

樓主

ID:81203 發(fā)表于 2015-5-27 01:11 | 只看該作者回帖獎勵

|倒序?yàn)g覽 |閱讀模式

自動將后兩位數(shù)加粗并設(shè)為黑體（QZ原創(chuàng)，記錄用）

代碼如下：
Sub Qz1()
With ActiveCell.Characters(Start:=1, Length:=11).Font
      .Name = "宋體"
      .FontStyle = "常規(guī)"
      .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

記錄

分享到: QQ好友和群 QQ空間 騰訊微博 騰訊朋友

收藏0 淘帖0 頂0 踩0

帳號		自動登錄	找回密碼
密碼			立即注冊

excel自動將后兩位數(shù)加粗并設(shè)為黑體

相關(guān)帖子