小编use*_*242的帖子

我正在努力使用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等,但没有任何运气

我也看看这个答案,但它不是我想要的