Excel inputbox ?

[Robertson1995]

Trying to add a Celsius to Farenheit converter. What I would like to do is have an inputbox for the user to enter Celsius and then take the Celsius # entered and multiply times 1.8 and then add 32 and then have the result show in a Msgbox. Thanks in advance for any help.

 

[Jonmo1]

Fortunately, there's already a built in function to do that for you...

=CONVERT(A1,"C","F")


This does require the Analysis Toolpack from Tools - Addins
If you have XL2007 or higher, it's already installed.


Hope that helps.

 

[VoG]

Try

Sub degrees()
Dim C As Double
C = Application.InputBox("Enter 'C", Type:=1)
MsgBox "Temp in 'F = " & C * 1.8 + 32
End Sub

Also look at CONVERT in the Analysis Toolpak.

 

[Mike Blackman]

Hi,

How about this?

    Dim dblTemp As Double
    
    On Error GoTo Finish
    
    dblTemp = InputBox(Prompt:="Please enter your desired temperature in Celsius to convert!")
    MsgBox Prompt:=(dblTemp * 1.8) + 32, _
           Buttons:=vbQuestion, _
           Title:="Result"
    Exit Sub
    
Finish:
    MsgBox Prompt:="Please only enter your temperature in celsius (No Text)!", _
           Buttons:=vbCritical, _
           Title:="Error"