Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
In textbox required only number without decimal
Hi, Please see the below coding, This working fine, But is accepting the decimal value also(.), What i required is when ever i type dot(.) it need to show msg "Please Enter Correct Number" Eg:1) 6161.8976, 2)98450.0, 3)8.874 need to show msg "Please Enter Correct Number" and delete the what ever typed that means nullstring in that textbox. Private Sub TextBox11_Change() Worksheets("FOR").Activate Range("C1").Select Range("C1").Value = TextBox11.Value If Not IsNumeric(TextBox11.Value) And TextBox11.Value < vbNullString Then MsgBox "Please Enter Correct Number" TextBox11.Value = vbNullString End If End Sub I'm very newbie for this coding. please anyone can help me on this. Thanks in advance Deen |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
In textbox required only number without decimal
from If Not IsNumeric(TextBox11.Value) And TextBox11.Value < vbNullString Then to If Not IsNumeric(TextBox11.Value) And _ TextBox11.Value < vbNullString And _ instr(TextBox11.Value,".") 0 Then "Deen" wrote: Hi, Please see the below coding, This working fine, But is accepting the decimal value also(.), What i required is when ever i type dot(.) it need to show msg "Please Enter Correct Number" Eg:1) 6161.8976, 2)98450.0, 3)8.874 need to show msg "Please Enter Correct Number" and delete the what ever typed that means nullstring in that textbox. Private Sub TextBox11_Change() Worksheets("FOR").Activate Range("C1").Select Range("C1").Value = TextBox11.Value If Not IsNumeric(TextBox11.Value) And TextBox11.Value < vbNullString Then MsgBox "Please Enter Correct Number" TextBox11.Value = vbNullString End If End Sub I'm very newbie for this coding. please anyone can help me on this. Thanks in advance Deen |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
In textbox required only number without decimal
What i required is when ever i type dot(.) it need to show msg "Please Enter Correct Number" That's a really intrusive way to go about it, and it deletes numbers-in-progress which may irk people who use the macro. How about just deleting any decimal values entered, e.g.: Private Sub TextBox11_Change() With Me.TextBox11 .Text = Replace(.Text, ".", "") End With End Sub Or another way with a little more flexibility. Specify the characters allowed to be entered, e.g. numbers but no decimal. Private Sub TextBox11_Change() Dim AllowChars As String Dim char As String, pos As Integer, newstr As String ' Select the allowable characters to be entered AllowChars = "0123456789" With Me.TextBox11 ' Loop through the characters in the textbox For pos = 1 To Len(.Text) char = Mid(.Text, pos, 1) ' Is the current character allowed? If InStr(1, AllowChars, char) 0 Then ' If so, append it to the new string variable newstr = newstr & char End If Next ' Replace the old value with the new value .Text = newstr End With End Sub -- Regards, Tim Zych http://www.higherdata.com Workbook Compare - Excel data comparison utility "Deen" wrote in message ... Hi, Please see the below coding, This working fine, But is accepting the decimal value also(.), What i required is when ever i type dot(.) it need to show msg "Please Enter Correct Number" Eg:1) 6161.8976, 2)98450.0, 3)8.874 need to show msg "Please Enter Correct Number" and delete the what ever typed that means nullstring in that textbox. Private Sub TextBox11_Change() Worksheets("FOR").Activate Range("C1").Select Range("C1").Value = TextBox11.Value If Not IsNumeric(TextBox11.Value) And TextBox11.Value < vbNullString Then MsgBox "Please Enter Correct Number" TextBox11.Value = vbNullString End If End Sub I'm very newbie for this coding. please anyone can help me on this. Thanks in advance Deen |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Making a Textbox Required Field | Excel Programming | |||
caused - an integer or decimal number may be required | Excel Discussion (Misc queries) | |||
Converting 2-place decimal value to floating point decimal number with leading zero | Excel Discussion (Misc queries) | |||
Runtime error textbox problem - help required | Excel Programming | |||
Formatting userform textbox - help required | Excel Programming |