Excel字体颜色公式

Question

我在单元格中有一个公式，用于连接文本和计算以输出某人所欠的金额，如下所示：

我现在要做的是只将该公式中的美元金额突出显示为红色，因此结果如下：

以上是将公式粘贴为值并手动编辑字体颜色

在线查看看起来这不是我在使用VBA之外可以完成的事情。可能的自定义格式化会做到这一点，但我不知道如何将其限制为只有单元格中的某些文本。

感谢任何帮助！

Answer 1

试试这个代码段

Sub ColorCells()

     Const RED = -16776961

    Dim rngCell As Range, rngRange As Range
    Dim Pos As Variant

    'sample area
    Set rngRange = ThisWorkbook.ActiveSheet.Range("A1:A10")

    For Each rngCell In rngRange

        'only for text values
        If Application.IsText(rngCell) Then

            'find first occurence of dollar sign
            Pos = InStr(1, rngCell.Text, "$")

            If Application.IsNumber(Pos) And Pos <> 0 Then

                'color it starting from "$" to the end of the string
                rngCell.Characters(Pos, Len(rngCell.Text) - Pos + 1).Font.Color = RED

            End If
        End If

   Next rngCell

End Sub