作者jbs2000 (咖啡貓)
看板Office
標題[算表] 特定字串自動上色（局部）的問題
時間Mon Nov 13 20:48:57 2017
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1510577341.A.739.html
1F：→ jbs2000: 有關ay同時變色，我突然自己找到答案了 11/13 20:52
2F：→ jbs2000: 但仍想請教如何直接讀取A1儲存格來作為指定的字串？ 11/13 20:53
※ 編輯: jbs2000 (120.116.11.110), 11/13/2017 21:02:08
3F：→ soyoso: range("a1")、 cells(1,1)、[a1] 11/13 21:33
4F：→ jbs2000: 感謝soyoso大，成功了^^ 11/14 16:55