VBA Excel - 同一单元格中不同数字的不同颜色

Question

这是一个棘手的问题：我在同一个单元格中通过三个不同的公式提取了3个不同的数字（如下图所示）。

有没有办法为不同风格的数字上色（即第一个蓝色，第二个绿色，第三个粗体）？

谢谢！

Answer 1

这是您需要的，您只需将范围（“A3”）与您拥有的范围交换=]

Sub Color_Part_of_Cell()

Dim cont1       As Integer
Dim cont2       As Integer

cont1 = WorksheetFunction.Search("%", Range("A3"))

cont2 = Len(Mid(Range("A3"), WorksheetFunction.Search("-", Range("A3"), 1), _
            WorksheetFunction.Search("%", Range("A3"), _
            WorksheetFunction.Search("-", Range("A3"), 1)))) - cont1 - 2

With Range("A3")
.Characters(1, cont1).Font.Color = RGB(0, 0, 255)
.Characters(cont1 + 3, cont2).Font.Color = RGB(0, 255, 0)
.Characters(cont1 + cont2 + 6, 10).Font.Bold = true
End With

End Sub