Home › Forum › Domande su Excel VBA e MACRO › [RISOLTO] Inserimento separatore durante la digitazione della data › Rispondi a: [RISOLTO] Inserimento separatore durante la digitazione della data
Ciao se sono sempre 8 cifre allora la prima macro proposta va bene in quanto quando inserisci la seconda cifra del giorno in automatico ti mette il separatore come pure alla seconda cifra del mese.
hai fatto la prova?
però ti ho detto le mie perplessità
comunque tanto per un controllo modifica il tutto con questo
Option Explicit
Private Num
Private Sub TextBox1_Change()
Num = Num + 1
Select Case Len(TextBox1)
Case 2: TextBox1 = TextBox1 & "/"
Case 5: TextBox1 = TextBox1 & "/"
End Select
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Num <> 10 Then
MsgBox "Data non compatibile", vbInformation, "Controllo data"
TextBox1 = ""
Num = 0
Else
Num = 0
End If
End Sub
mi raccomando di inserire anche “Private Num” sotto “Option explicit”
in definitiva è un controllo che controlla se all’uscita dal “TextBox1” la data contiene 10 caratteri compresi i separatori se ha un valore diverso in più o meno ti avvisa con un messaggio e cancella la data inserita errata.
di più non posso fare.
Ciao By Sal (8-D
Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie