Mam problem z makrem VBA, który powinien pokolorować część tekstu.Zmień kolor czcionki dla zmiennej jako części tekstu w komórce
Makro wygląda
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
I chcę osiągnąć Now() będzie czerwony a reszta tekstu będzie zielony.
Próbowałem grać z .Font.Color = vbRed etc ale bez powodzenia
Ja też spojrzeć na this answer ale to nie całkiem to, czego chciałem
Wielkie dzięki, działa poprawnie za pierwszym wkładem, ale jeśli mogę użyć go ponownie będzie zaznaczyć cały tekst z czerwonym – user7410242
@ user7410242: Będzie to zrobić! Dodałem linię, aby zresetować początkowy kolor na czarny, więc teraz będzie działał poprawnie – R3uK