excel input mask for textbox
can anyone help me on this textbox issue:
Private Sub IBAN1_AfterUpdate() IBAN1.Text = Format(IBAN1.Value, "#### #### #### #### #### #### #### #### ##") End Sub when the user enters numbers, the textbox is change the input. example 1255 2222 3333 3666 5555 6666 99999 88888 88 1255 2222 3333 3666 0000 0000 0000 0000 00 any ideas |
excel input mask for textbox
I'd use:
Option Explicit Private Sub IBAN1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) With Me.IBAN1 If IsNumeric(.Value) Then .Value = Format(CDec(.Value), _ "#### #### #### #### #### #### #### #### ##") Else Beep Cancel = True 'don't let them leave the textbox. End If End With End Sub I switched to _BeforeUpdate, too. If you have a Cancel button on your userform, make sure its .takefocusonclick is false. DaveF wrote: can anyone help me on this textbox issue: Private Sub IBAN1_AfterUpdate() IBAN1.Text = Format(IBAN1.Value, "#### #### #### #### #### #### #### #### ##") End Sub when the user enters numbers, the textbox is change the input. example 1255 2222 3333 3666 5555 6666 99999 88888 88 1255 2222 3333 3666 0000 0000 0000 0000 00 any ideas -- Dave Peterson |
excel input mask for textbox
Thanks Dave, One more question. If I want to allow letters in place of number what would I do? Example GB23 4445 6666 7777 LD94 4994 44 Thanks in advance On Feb 15, 1:31*pm, Dave Peterson wrote: I'd use: Option Explicit Private Sub IBAN1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) * * With Me.IBAN1 * * * * If IsNumeric(.Value) Then * * * * * * .Value = Format(CDec(.Value), _ * * * * * * * * * "#### #### #### #### #### #### #### #### ##") * * * * Else * * * * * * Beep * * * * * * Cancel = True 'don't let them leave the textbox. * * * * End If * * End With End Sub I switched to _BeforeUpdate, too. If you have a Cancel button on your userform, make sure its .takefocusonclick is false. DaveF wrote: can anyone help me on this textbox issue: Private Sub IBAN1_AfterUpdate() * * IBAN1.Text = Format(IBAN1.Value, "#### #### #### #### #### #### #### #### ##") End Sub when the user enters numbers, the textbox is change the input. example *1255 2222 3333 3666 5555 6666 99999 88888 88 1255 2222 3333 3666 0000 0000 0000 0000 00 any ideas -- Dave Peterson- Hide quoted text - - Show quoted text - |
excel input mask for textbox
I'd just parse it out using a bunch of left's, mid's, right's.
With Me.IBAN1 If len(.Value) = 26 Then .Value = left(.value,4) & " " _ & mid(.value,5,4) & " " _ & mid(.value,9,4) & " " _ 'etc... DaveF wrote: Thanks Dave, One more question. If I want to allow letters in place of number what would I do? Example GB23 4445 6666 7777 LD94 4994 44 Thanks in advance On Feb 15, 1:31 pm, Dave Peterson wrote: I'd use: Option Explicit Private Sub IBAN1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) With Me.IBAN1 If IsNumeric(.Value) Then .Value = Format(CDec(.Value), _ "#### #### #### #### #### #### #### #### ##") Else Beep Cancel = True 'don't let them leave the textbox. End If End With End Sub I switched to _BeforeUpdate, too. If you have a Cancel button on your userform, make sure its .takefocusonclick is false. DaveF wrote: can anyone help me on this textbox issue: Private Sub IBAN1_AfterUpdate() IBAN1.Text = Format(IBAN1.Value, "#### #### #### #### #### #### #### #### ##") End Sub when the user enters numbers, the textbox is change the input. example 1255 2222 3333 3666 5555 6666 99999 88888 88 1255 2222 3333 3666 0000 0000 0000 0000 00 any ideas -- Dave Peterson- Hide quoted text - - Show quoted text - -- Dave Peterson |
All times are GMT +1. The time now is 10:23 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com