[算表] 特定字串自動上色(局部)的問題
軟體: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
11/13 20:52, 1F
→
11/13 20:53,
6年前
, 2F
11/13 20:53, 2F
※ 編輯: jbs2000 (120.116.11.110), 11/13/2017 21:02:08
→
11/13 21:33,
6年前
, 3F
11/13 21:33, 3F
→
11/14 16:55,
6年前
, 4F
11/14 16:55, 4F