如何通过VBA设置单元格中数值部分字体为红色、货币单位为黑色？

问题说明 #

运行以下代码时，Sheet1的A1单元格里的(1234.56) Dolar会整体显示为黑色：

Sheets("Sheet1").Range("A1").Value = Format(-1234.56, "#,##0.00;[Red](#,##0.00)") & " Dolar"

实际需求是让括号包裹的数值部分（比如(1234.56)）显示为红色，后面的货币单位（比如Dolar）保持黑色，而且数值内容（如123.14、12.25、1.5等）和货币单位（如Euro、Pound、Yen等）的字符长度都是可变的。

实现代码 #

可以借助Characters方法精准选中数值部分修改颜色，代码示例如下：

Sub SetNumberColor()
    Dim targetCell As Range
    Dim numValue As Double
    Dim formattedNum As String
    Dim currencyUnit As String
    
    ' 定义目标单元格、数值、货币单位
    Set targetCell = Sheets("Sheet1").Range("A1")
    numValue = -1234.56 ' 可替换为任意负数
    currencyUnit = " Dolar" ' 可替换为任意货币单位
    
    ' 单独格式化数值，获取带格式的字符串
    formattedNum = Format(numValue, "#,##0.00;[Red](#,##0.00)")
    ' 拼接完整内容并赋值给单元格
    targetCell.Value = formattedNum & currencyUnit
    
    ' 将数值部分设置为红色
    targetCell.Characters(Start:=1, Length:=Len(formattedNum)).Font.Color = vbRed
End Sub

代码说明 #

1. 先单独生成格式化后的数值字符串formattedNum，这样能准确获取它的长度
2. 把数值和货币单位拼接后写入单元格
3. 用Characters方法选中从第1个字符开始、长度等于formattedNum长度的内容，将其字体设为红色
4. 不管数值是几位小数、单位是几个字符，只要修改numValue和currencyUnit的值，就能自动适配

内容的提问来源于stack exchange，提问作者George Costanza