vba - 更改变量的字体颜色作为单元格中文本的一部分

Question

我正在努力处理 VBA 宏，它应该为文本的一部分着色。

宏看起来像

Sub Note()
        Dim c As Range
        Dim val As String
        Set c = ActiveCell
        val = InputBox("Add note", "Note text")
            If IsEmpty(c.Value) = True Then
                c.Value = Format(Now(), "DD MMM YY Hh:Nn") & ": " & val
            Else
                c.Value = c.Value & Chr(10) & Format(Now(), "DD MMM YY Hh:Nn") & ": " & val
        End If
        End Sub

我想实现 Now() 为红色，其余文本为绿色。

我尝试使用 .Font.Color = vbRed 等，但没有任何运气

我也看this answer但这并不完全是我想要的

Answer 1

尝试这样:

Option Explicit

Sub Note()

    Dim c           As Range
    Dim val         As String: val = "vit"
    Dim lngLen      As Long

    Set c = ActiveCell
    c.Value = Format(Now(), "DD MMM YY Hh:Nn") & ": " & val
    lngLen = Len(Format(Now(), "DD MMM YY Hh:Nn"))

    c.Characters(Start:=1, Length:=lngLen).Font.Color = vbRed

End Sub

我已经去掉了输入框，但是你可以轻松返回。它可能会提供您想要的内容。基本上，它会询问 Now() 格式的长度，并将公式中的前 N ​​个符号涂成红色，遵循您在问题中提到的问题的逻辑。