how do I construct a IF... Then statement that displays a msgbox error if anything other than a number is entered into the inputbox? Example:
Sub I_Want_A_Number()
Dim num
num = InputBox("enter number")
IF num is....Then ' This is where I'm stuck at. I don't know _
' how to complete this statement.
msgbox"must enter number"
Else
test_case(num)
end IF
End Sub
--------------------------------------------------------------------------------------
End Sub
Function test_case(num)
Select Case grade
Case 1
MsgBox "number 1"
Case 2, 3
MsgBox "numbers 2 or 3"
Case 4 To 6
MsgBox " numbers 4, 5 or 6"
Case Is > 8
MsgBox "number is above 8"
Case Else
MsgBox "number< is not conditional statement"
End Select
End Function
Sub I_Want_A_Number()
Dim num
num = InputBox("enter number")
IF num is....Then ' This is where I'm stuck at. I don't know _
' how to complete this statement.
msgbox"must enter number"
Else
test_case(num)
end IF
End Sub
--------------------------------------------------------------------------------------
End Sub
Function test_case(num)
Select Case grade
Case 1
MsgBox "number 1"
Case 2, 3
MsgBox "numbers 2 or 3"
Case 4 To 6
MsgBox " numbers 4, 5 or 6"
Case Is > 8
MsgBox "number is above 8"
Case Else
MsgBox "number< is not conditional statement"
End Select
End Function