Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Digits in textbox's
Hi all just wondering how I can get someone only to type number in a certain
textbox? Thanks in advance Greg |
#2
|
|||
|
|||
Is this a TextBox on a UserForm?
Somewhat crude, but try the following: Private Sub TextBox1_Change() If Not IsNumeric(TextBox1.Text) Then _ SendKeys "{BACKSPACE}" End Sub -- Vasant "Greg B" wrote in message ... Hi all just wondering how I can get someone only to type number in a certain textbox? Thanks in advance Greg |
#3
|
|||
|
|||
Thank you for that
Greg "Vasant Nanavati" <vasantn AT aol DOT com wrote in message ... Is this a TextBox on a UserForm? Somewhat crude, but try the following: Private Sub TextBox1_Change() If Not IsNumeric(TextBox1.Text) Then _ SendKeys "{BACKSPACE}" End Sub -- Vasant "Greg B" wrote in message ... Hi all just wondering how I can get someone only to type number in a certain textbox? Thanks in advance Greg |
#4
|
|||
|
|||
Better than SendKeys, use the KeyPress event.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < 48 Or KeyAscii 57 Then KeyAscii = 0 End If End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Vasant Nanavati" <vasantn AT aol DOT com wrote in message ... Is this a TextBox on a UserForm? Somewhat crude, but try the following: Private Sub TextBox1_Change() If Not IsNumeric(TextBox1.Text) Then _ SendKeys "{BACKSPACE}" End Sub -- Vasant "Greg B" wrote in message ... Hi all just wondering how I can get someone only to type number in a certain textbox? Thanks in advance Greg |
#5
|
|||
|
|||
Hi Chip:
I knew there was a better solution but just couldn't get my brain to come up with it <g. Regards, Vasant "Chip Pearson" wrote in message ... Better than SendKeys, use the KeyPress event. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < 48 Or KeyAscii 57 Then KeyAscii = 0 End If End Sub -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Vasant Nanavati" <vasantn AT aol DOT com wrote in message ... Is this a TextBox on a UserForm? Somewhat crude, but try the following: Private Sub TextBox1_Change() If Not IsNumeric(TextBox1.Text) Then _ SendKeys "{BACKSPACE}" End Sub -- Vasant "Greg B" wrote in message ... Hi all just wondering how I can get someone only to type number in a certain textbox? Thanks in advance Greg |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Lookup the 1st 5 digits | Excel Worksheet Functions | |||
Mod 10 & 11 | Excel Worksheet Functions | |||
Help - Any number longer than 12 digits turns to scientific and ro | Excel Discussion (Misc queries) | |||
Concatenate function - keeping "displayed" extra digits | Excel Discussion (Misc queries) | |||
Least number of digits in Y-axis labels | Charts and Charting in Excel |