作者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/cn.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