標題: 該如何尋找及改變字體顏色 [打印本頁]

---

作者: lbs1252    時間: 2012-10-15 19:40     標題: 該如何尋找及改變字體顏色

各位大大   我想請問一下我的表單在簡轉繁時會把下列的字一起轉變如 岳->嶽ˋ杰->傑ˋ余->餘
我該如何把它標計出來   岳ˋ杰ˋ余   我想把它都標成黃色  該如何寫  麻煩一下  感恩

---

作者: mark15jill    時間: 2012-10-16 08:47

Columns("A:A").Select
    Selection.Replace What:="岳", Replacement:="嶽", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "新細明體"
        .FontStyle = "標準"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=2, Length:=1).Font
        .Name = "新細明體"
        .FontStyle = "標準"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16711681
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With

---

作者: lbs1252    時間: 2012-10-16 14:33

謝謝大大  我嘗試看看 感激不盡

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)