Formatting calculated number appearing in the text in message boxes

E

emerging_markets

I have a pretty basic macro, at the end of which will be the appearance
of a couple of "information only" message boxes, written as follows:

Msg = Application.UserName & " some text here " & (Range("Rreal").Value
/ 1000) & " more text here " & Range("NPV").Value & " further text
here"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer
yes "

If Ans = vbYes Then MsgBox " some explanatory text here if answer
no "

Msg = " some text here " & Application.UserName & " more text here
" & (Range("IRR").Value / 1000) & " further text here " &
(Range("Rreal").Value / 1000) & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer no
"

If Ans = vbYes Then MsgBox " some explanatory text here if answer
yes "


My problem is the ( Rreal / 1000 ) and ( IRR / 1000 ) appear as, say,
0.15 when I want it to appear as 15.0% within the message box text, and
NPV appears as, say, -186845858.3464 when I would want it to appear as
$(186,845,858.35).

Is there any easier way of formatting these numbers within the text of
a message box?

Thanks in advance for any help

Mike
 
M

MikeCM

Stefi, you're a star! Many thanks
Format(Range("Rreal").Value,"0.0%")
Format(Range("NPV").Value,"[$$-409]# ##0.00;[$$-409](# ##0.00)")


Regards,
Stefi

,,[email protected]" ezt írta:
I have a pretty basic macro, at the end of which will be the appearance
of a couple of "information only" message boxes, written as follows:

Msg = Application.UserName & " some text here " & (Range("Rreal").Value
/ 1000) & " more text here " & Range("NPV").Value & " further text
here"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer
yes "

If Ans = vbYes Then MsgBox " some explanatory text here if answer
no "

Msg = " some text here " & Application.UserName & " more text here
" & (Range("IRR").Value / 1000) & " further text here " &
(Range("Rreal").Value / 1000) & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer no
"

If Ans = vbYes Then MsgBox " some explanatory text here if answer
yes "


My problem is the ( Rreal / 1000 ) and ( IRR / 1000 ) appear as, say,
0.15 when I want it to appear as 15.0% within the message box text, and
NPV appears as, say, -186845858.3464 when I would want it to appear as
$(186,845,858.35).

Is there any easier way of formatting these numbers within the text of
a message box?

Thanks in advance for any help

Mike
 
B

Bob Phillips

Msg = " some text here " & Application.UserName & " more text here
" & Format(Range("IRR").Value / 1000,"0%") & " further text here " &
Format(Range("Rreal").Value / 1000,"0%") & "?"


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
S

Stefi

You are welcome! Thanks for the feedback!
Stefi


„MikeCM†ezt írta:
Stefi, you're a star! Many thanks
Format(Range("Rreal").Value,"0.0%")
Format(Range("NPV").Value,"[$$-409]# ##0.00;[$$-409](# ##0.00)")


Regards,
Stefi

,,[email protected]" ezt írta:
I have a pretty basic macro, at the end of which will be the appearance
of a couple of "information only" message boxes, written as follows:

Msg = Application.UserName & " some text here " & (Range("Rreal").Value
/ 1000) & " more text here " & Range("NPV").Value & " further text
here"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer
yes "

If Ans = vbYes Then MsgBox " some explanatory text here if answer
no "

Msg = " some text here " & Application.UserName & " more text here
" & (Range("IRR").Value / 1000) & " further text here " &
(Range("Rreal").Value / 1000) & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer no
"

If Ans = vbYes Then MsgBox " some explanatory text here if answer
yes "


My problem is the ( Rreal / 1000 ) and ( IRR / 1000 ) appear as, say,
0.15 when I want it to appear as 15.0% within the message box text, and
NPV appears as, say, -186845858.3464 when I would want it to appear as
$(186,845,858.35).

Is there any easier way of formatting these numbers within the text of
a message box?

Thanks in advance for any help

Mike
 
M

MikeCM

Stefi/Bob - thanks both of you - much appreciated

You are welcome! Thanks for the feedback!
Stefi


,,MikeCM" ezt írta:
Stefi, you're a star! Many thanks
Format(Range("Rreal").Value,"0.0%")
Format(Range("NPV").Value,"[$$-409]# ##0.00;[$$-409](# ##0.00)")


Regards,
Stefi

,,[email protected]" ezt írta:

I have a pretty basic macro, at the end of which will be the appearance
of a couple of "information only" message boxes, written as follows:

Msg = Application.UserName & " some text here " & (Range("Rreal")..Value
/ 1000) & " more text here " & Range("NPV").Value & " further text
here"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer
yes "

If Ans = vbYes Then MsgBox " some explanatory text here if answer
no "

Msg = " some text here " & Application.UserName & " more texthere
" & (Range("IRR").Value / 1000) & " further text here " &
(Range("Rreal").Value / 1000) & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer no
"

If Ans = vbYes Then MsgBox " some explanatory text here if answer
yes "


My problem is the ( Rreal / 1000 ) and ( IRR / 1000 ) appear as, say,
0.15 when I want it to appear as 15.0% within the message box text,and
NPV appears as, say, -186845858.3464 when I would want it to appearas
$(186,845,858.35).

Is there any easier way of formatting these numbers within the textof
a message box?

Thanks in advance for any help

Mike
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top