ho questo codice che mi permette di inserisce gli / della data in automatico durante la digitazione:
- Codice: Seleziona tutto
Private Sub TextBox1_Change()
x = Len(TextBox1)
Y = LTrim(TextBox1.Text)
If x = 2 And IsNumeric(Y) Then
TextBox1 = Y & "/"
End If
If x = 5 Then
TextBox1 = Y & "/"
End If
If x = 8 Then
UserForm1.TextBox2.SetFocus
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'If CmdButton5_Click = False Then
If TextBox1.Value = "" Then
MsgBox "inserisci data"
'Cancel = True
Else
TextBox1 = Format(TextBox1, "dd/mm/yyyy")
'End If
End If
End Sub
funziona bene in fase di compilazione ma male in fase di cancellazione per esempio a causa di un errore di digitazione:
dopo il quinto carattere si aggiunge uno / , se provo a cancellarlo i caratteri tornano ad essere 5 e si aggiunge nuovamente uno 7. In questo modo non riesco mai a cancellare le cifre del mese.
come posso fare?
Ciao