Excel VBA：如何更改括号中文本的字体颜色？

Question

我有一个从另一个论坛复制的代码，该代码贯穿一系列单元格，并将包含括号的单元格中的字符复制到相邻单元格。 我想做的只是改变括号内字符的字体颜色以及括号。 我设法调整了代码，以便包含括号，但我不知道如何更改字体颜色。 我相信如果我没记错的话，它可能需要一行代码。 这是代码：

Dim n, i As Long
With CreateObject("vbscript.regexp")
.Pattern = "(\(\w+\))"
.Global = True
    For i = 1 To 10
        Set myMatches = .Execute(Cells(i, 1))
    
        For Each n In myMatches
            Cells(i, 2).Value = Mid(n, 1, Len(n) - 0)
        Next n
    Next i
End With

正如你所看到的，' Cells(i, 2).Value = Mid(n, 1, Len(n) - 0)'是需要改变的。

谢谢你。

Answer 1

' 下面的代码会将单元格中的字符 1 更改为 4 红色

.Cells.Characters(1, 4).Font.Color = vbRed