返回列表 上一主題 發帖

該如何尋找及改變字體顏色

lbs1252

帖子
18 
主題
6 
精華
0 
積分
29 
點名
0  
作業系統
XP 
軟體版本
OFFUCE 2003 
閱讀權限
10 
性別
男 
來自
台灣台北 
註冊時間
2012-8-29 
最後登錄
2016-7-17 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-10-15 19:40 | 只看該作者

該如何尋找及改變字體顏色

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

lbs1252

帖子
18 
主題
6 
精華
0 
積分
29 
點名
0  
作業系統
XP 
軟體版本
OFFUCE 2003 
閱讀權限
10 
性別
男 
來自
台灣台北 
註冊時間
2012-8-29 
最後登錄
2016-7-17 

論壇贊助勳章
3#
發表於 2012-10-16 14:33 | 只看該作者
謝謝大大  我嘗試看看 感激不盡

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題