[算表] 特定字串自動上色(局部)的問題

看板Office作者 (咖啡貓)時間6年前 (2017/11/13 20:49), 6年前編輯推噓0(004)
留言4則, 2人參與, 6年前最新討論串1/1
軟體:excel 版本:2013 為了替單字的特定音節自動上色並粗體 找到了這個寫法: -------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Target.Font.ColorIndex = xlAutomatic redSlash Target End Sub Sub redSlash(Target As Range) Dim Rng As Range Dim i As Long, j As Long For Each Rng In Target.Cells j = 1 With Rng Do i = VBA.InStr(j, .Text, "ay") If i > 0 Then .Characters(i, 1).Font.ColorIndex = 3 j = i + 1 Loop While i > 0 End With Next End Sub --------------------------------------------------------------- 問題: "ay"那邊原本是"/",這樣執行是沒有問題的, 但是我改成"ay"後,它只會變a的色,不會變y的色 請問是哪邊還要修改嗎? 順便再問: 若要使"ay"直接讀取A1儲存格以利變更,可以怎麼做? 期待有相關經驗的前輩不吝指導,以利學生學習, 非常感謝~ -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 120.116.11.110 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1510577341.A.739.html

11/13 20:52, 6年前 , 1F
有關ay同時變色,我突然自己找到答案了
11/13 20:52, 1F

11/13 20:53, 6年前 , 2F
但仍想請教如何直接讀取A1儲存格來作為指定的字串?
11/13 20:53, 2F
※ 編輯: jbs2000 (120.116.11.110), 11/13/2017 21:02:08

11/13 21:33, 6年前 , 3F
range("a1")、 cells(1,1)、[a1]
11/13 21:33, 3F

11/14 16:55, 6年前 , 4F
感謝soyoso大,成功了^^
11/14 16:55, 4F
文章代碼(AID): #1Q2PIzSv (Office)