Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to apply conditions on Input box?
Hi all!
An input boxprompts the user to specify a numeric value for a certain variable "mynum", as follows. The user CANNOT type in gibberish/characters. It has to be only numbers -ve.0. + ve numbers only are acceptable. ============================================== mynum = InputBox("Enter the area multiplication factor") If mynum = " " Then Exit Sub End If ============================================== But the above logic accepts characer inputs/gibberish as well. Look forward to your helps guys. Thanks alot, Arun... Vtec. Corp. --- Message posted from http://www.ExcelForum.com/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to apply conditions on Input box?
Hi Aiyer,
Try: mynum = Application.InputBox _ ("Enter the area multiplication factor", Type:=1) --- Regards, Norman "aiyer " wrote in message ... Hi all! An input boxprompts the user to specify a numeric value for a certain variable "mynum", as follows. The user CANNOT type in gibberish/characters. It has to be only numbers -ve.0. + ve numbers only are acceptable. ============================================== mynum = InputBox("Enter the area multiplication factor") If mynum = " " Then Exit Sub End If ============================================== But the above logic accepts characer inputs/gibberish as well. Look forward to your helps guys. Thanks alot, Arun... Vtec. Corp. --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to apply conditions on Input box?
Aiyer
The easiest way I have found is to simply check the response for the condition I want. Something like: Dim MyNum as Variant TryAgain: MyNum = InputBox("Enter the area multiplication factor") If Not IsNumeric(MyNum) Then MsgBox "The multiplication factor entered is not numeric. Please enter it again.",,"Invalid Entry" GoTo TryAgain End If The above will repeat the query until the user enters a numeric value. You can add other checks as well like, for instance, the value has to be between this and that. HTH Otto "aiyer " wrote in message ... Hi all! An input boxprompts the user to specify a numeric value for a certain variable "mynum", as follows. The user CANNOT type in gibberish/characters. It has to be only numbers -ve.0. + ve numbers only are acceptable. ============================================== mynum = InputBox("Enter the area multiplication factor") If mynum = " " Then Exit Sub End If ============================================== But the above logic accepts characer inputs/gibberish as well. Look forward to your helps guys. Thanks alot, Arun... Vtec. Corp. --- Message posted from http://www.ExcelForum.com/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to apply conditions on Input box?
Try
If Mynum = "" Or Not IsNumeric(Mynum) Then take action here Gord Dibben Excel MVP On Mon, 30 Aug 2004 18:51:39 -0500, aiyer wrote: Hi all! An input boxprompts the user to specify a numeric value for a certain variable "mynum", as follows. The user CANNOT type in gibberish/characters. It has to be only numbers -ve.0. + ve numbers only are acceptable. ============================================== mynum = InputBox("Enter the area multiplication factor") If mynum = " " Then Exit Sub End If ============================================== But the above logic accepts characer inputs/gibberish as well. Look forward to your helps guys. Thanks alot, Arun... Vtec. Corp. --- Message posted from http://www.ExcelForum.com/ |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to apply conditions on Input box?
You can make the user enter a number using application.inputbox with type:=1.
And you can check for a "cancel" this way: Option Explicit Sub testme01() Dim myNum As Variant myNum = Application.InputBox _ ("Enter the area multiplication factor", Type:=1) If myNum = False Then 'user cancelled Else MsgBox myNum End If End Sub "aiyer <" wrote: Hi all! An input boxprompts the user to specify a numeric value for a certain variable "mynum", as follows. The user CANNOT type in gibberish/characters. It has to be only numbers -ve.0. + ve numbers only are acceptable. ============================================== mynum = InputBox("Enter the area multiplication factor") If mynum = " " Then Exit Sub End If ============================================== But the above logic accepts characer inputs/gibberish as well. Look forward to your helps guys. Thanks alot, Arun... Vtec. Corp. --- Message posted from http://www.ExcelForum.com/ -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2003 count if multple conditions apply | Excel Worksheet Functions | |||
How many conditions can I apply to a cell? I need to apply 8. | Excel Discussion (Misc queries) | |||
Adding today's date if certain conditions apply | Excel Worksheet Functions | |||
Summing if several conditions apply | Excel Worksheet Functions | |||
cell = null if conditions apply | Excel Programming |