Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
format validation in UserForm textboxes
Hi ,
can any one help me ? I had created the following Userform , with several textboxes that users would have to key in a $ value. I managed to get the textbox to display as $0 with the following code Private Sub txtUT_Change() Me.txtUT.Value = Format(Me.txtUT.Value, "$###,##0") End Sub however, users still can enter text data , which I want to prevent them from doing so. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
format validation in UserForm textboxes
code previously posted by Harald Staff,
Private Sub TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) DecSep = Mid$(Format(1.5, "0.0"), 2, 1) Select Case KeyAscii Case 8 To 10, 13, 27 'Control characters Case 44, 46 If Me.LDecimals 0 And InStr(TextBox.Text, DecSep) = 0 Then KeyAscii = Asc(DecSep) Else Beep KeyAscii = 0 End If Case 45 If Me.Negatives And TextBox.SelStart = 0 Then Else Beep KeyAscii = 0 End If Case 48 To 57 'numbers Case Else 'Discard anything else Beep KeyAscii = 0 End Select End Sub -- Regards, Tom Ogilvy "Soultek" wrote: Hi , can any one help me ? I had created the following Userform , with several textboxes that users would have to key in a $ value. I managed to get the textbox to display as $0 with the following code Private Sub txtUT_Change() Me.txtUT.Value = Format(Me.txtUT.Value, "$###,##0") End Sub however, users still can enter text data , which I want to prevent them from doing so. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
UserForm TextBoxes - Is there a way to format as currency or perce | Excel Discussion (Misc queries) | |||
UserForm TextBoxes | Excel Discussion (Misc queries) | |||
userform & textboxes | Excel Programming | |||
userform textboxes again | Excel Programming | |||
userform textboxes | Excel Programming |