Customizing Message box using excel VBA

[pkdash83]

Hi All,

I've a message to be displayed on a button click. The below macro is assigned.

Sub getmsg()
MsgBox "The store " & Range("C7").Value & " is from " & Range("I3") & " and the sales is " & Range("C9")
End Sub


What I need is if the sales>=40000 the sales value displayed shpuld be green else red.

Is there any way I can achieve it? Or can I use any other control to do it?

Please help.

Thanks,
Prasanna

 

[GTO]

Hi pkdash83,

I do not believe it would be possible to change part of the Prompt text's color in any circumstance. Possibly you might be able to change all of the prompt text's color with API, but IMO, it would be a hassle and not worth it at all.

Even with a Userform made to look like (and act like) a message box (which is what I would try), changing part of the text's color would require layered controls, and some size-to-fit considerations for locating at least one label (presumably).

Are you comfortable with userforms, and if so, would you want to give that a go?

Mark

 

[Teeroy]

GTO, nice, relatively straightforward solution. If you separate the statement into two lines on the UserForm you only need 3 label controls, and only one of these needs positioning and color.

 

[VoG]

Alternatively an addin like ktMsgBox AddinBox( ktMsgBox function/EXCEL )

 

[pkdash83]

Thanks for all the responses. I was thinking of a way-is it possible to store the sales part in a variable and display it dynamically?