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