Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting text that appears in messages
Hi Guys,
I managed to set the number format in the following code [cellValue = Format(cellValue, "# ##0.00")], however I would like to highlight[bold] and increase the font size as well. Do you think it's possible?? Tks in advance Public Sub GetNumBer() Dim msg, Style, Title Dim Response, cellValue As Variant RePeat: cellValue = Application.InputBox(prompt:= _ "Key in the required numer/amount", _ Title:="AMOUNT OR NUMBER ? ", Left:=300, _ Top:=250, Type:=1) If TypeName(cellValue) = "boolean" Then Exit Sub cellValue = Format(cellValue, "# ##0.00") msg = "The number you entered was:" _ & Chr(13) & Chr(13) _ & Chr(9) & cellValue & Chr(13) _ & Chr(13) & "Do you want to continue ? " Style = vbYesNo + vbExclamation + vbDefaultButton1 Title = "Confirm your input!" Response = MsgBox(msg, Style, Title:=Title) If Response = vbYes Then ActiveCell.Value = Val(cellValue) Else ActiveCell.ClearContents GoTo RePeat End If Exit Sub End Sub -- HJN |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
HOW WE CAN FIT THE TEXT MESSAGES IN SINGLE COLUNM UP/DOWN WARDS | New Users to Excel | |||
How do I delete <br or <b that appears in text? | Excel Worksheet Functions | |||
Formula to count text and alert me if a text appears more than twi | Excel Discussion (Misc queries) | |||
Conditional Formatting lowest # if it only appears once | Excel Worksheet Functions | |||
Sending Text Messages with Excel??? | Excel Worksheet Functions |