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

问题描述

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

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,Len(n) - 0)'”是需要更改的内容。

谢谢。

解决方法

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

  public AClass(Service service){