如何在Excel VBA中的单元格中找到单词并使用VBA代码将其着色为红色（仅单词不是整个单元格）？

Question

我在Excel中编写代码，其中一部分需要在单元格中找到一个单词（不区分区分大小写）并将其着色为红色（只有单词不是整个单元格）。
例如;

细胞文本 - 你叫什么名字？ 搜索文本 - IS

我需要着色＆＃39;是＆＃39;细胞文本中的红色。

Answer 1

西奥多拉， 以下是您所追求的基本组成部分。当然，您需要对其进行修改以满足您的特定需求：

Sub ColorPart()
    searchString = " is "
    pos = InStr(Cells(1, 1), searchString)
    If pos > 0 Then
        Cells(1, 1).Characters(Start:=pos, Length:=Len(searchString)).Font.color = vbRed
    End If
End Sub

希望这会有所帮助。另外，为了公平对待@Peh，虽然我的答案不是基于他的评论，但它确实巩固了他已经正确布置的内容。