Color String with VBA

[HWL]

I'm trying to color just a segment of a string using VBA. The entire string is generated in VBA but I want a segement to be red.

There should be something in FORMAT perhaps?

test = "This is a test. " & format("test 1 2 3", color#3???)
Thanks for the help

 

[pedie]

I'm trying to color just a segment of a string using VBA. The entire string is generated in VBA but I want a segement to be red.

There should be something in FORMAT perhaps?

test = "This is a test. " & format("test 1 2 3", color#3???)
Thanks for the help

You mean in the msgbox or do you want it in a cell?

MsgBox does not display rich (formatted) text.
May be you can use Userform to show different text in different colors by using labels etc...

All the best

 

[HWL]

You mean in the msgbox or do you want it in a cell?

In a cell.

This is what I have and it works, but sheeesh, really?? I need this mcuh code?

Range("B96") = "TOTALS (Filter to selected configurations) "
cString = " Last ran: " & Format(Now(), "mmm/dd/yyyy @ hh:mm")
i = Len(Cells(96, 2).Value)
Cells(96, 2).Value = Cells(96, 2).Value & "~"
Cells(96, 2).Characters(i + 1).Font.ColorIndex = 1
Cells(96, 2).Value = Cells(96, 2).Value & cString
Cells(96, 2).Characters(i + 2, Len(cString)).Font.ColorIndex = 3

 

[pedie]

In a cell.

This is what I have and it works, but sheeesh, really?? I need this mcuh code?

Range("B96") = "TOTALS (Filter to selected configurations) "
cString = " Last ran: " & Format(Now(), "mmm/dd/yyyy @ hh:mm")
i = Len(Cells(96, 2).Value)
Cells(96, 2).Value = Cells(96, 2).Value & "~"
Cells(96, 2).Characters(i + 1).Font.ColorIndex = 1
Cells(96, 2).Value = Cells(96, 2).Value & cString
Cells(96, 2).Characters(i + 2, Len(cString)).Font.ColorIndex = 3

yep, maybe you can do better but i was thinking why is there a need for macro to color font for you...:D