Formattare TextBox

Hai un problema con Excel?

Nuova discussione

Formattare TextBox
di gargiu data: 30/06/2015 11:56:19
Ciao a tutti,
ho il seguente problema:
in una form ho inserito la TextBox1 e TexBox3 che mi prelevano le date dal foglio excel associato.
Volevo Formattare le TextBox in tal modo da avere sempre la formattazione europea, in quanto in ufficio i nostri PC sono configurati con criteri USA.
Il problema sta nel fatto che se applico la formattazione come da codice sotto riportato, mi riporta una data non corrispondente al criterio da me riportato prelevandolo dalla riga attiva.
Cosa devo correggere per far si che la formattazione funzioni?

Grazie a tutti per l'attenzione

Private Sub UserForm_Initialize()
Range("A9") = Range("C7")
Frame1.Caption = "Chi é di turno questa settimana?  -  Settimana N° " & Range("c7")
Label5 = ActiveCell.Offset(0, 4)
Label2 = ActiveCell.Offset(0, 3)
TextBox2 = ActiveCell.Offset(0, 9)
Label3 = "Telefono picchetto: " & Range("F1").Text
TextBox1.Value = ActiveCell.Offset(0, 2)
TextBox1.Value = Format(TextBox1.Value, "dddd dd-mmmm-yyyy")
TextBox3.Value = ActiveCell.Offset(6, 2)
TextBox3.Value = Format(TextBox1.Value, "dddd dd-mmmm-yyyy")
End Sub

di Vecchio Frac data: 30/06/2015 13:16:20
Riporta un piccolo esempio di risultato atteso e di risultato ottenuto.
A me infatti non si generano risultati strani.

E forse questa è una correzione al codice che puoi provare:
TextBox1.Value = Format(ActiveCell.Offset(0, 2), "dddd dd-mmmm-yyyy") TextBox3.Value = Format(ActiveCell.Offset(6, 2), "dddd dd-mmmm-yyyy")
Mia gaffe
di gargiu data: 30/06/2015 17:34:00
Effettivamente nel mio codice c'era un errore nella formattazione della TextBox3, avevo copiato e incollato la formattazione della TextBox1 senza modificare il numero della TextBox. Quindi ottenevo la stessa data sia nell'una che nell'altra TextBox.

Ora tutto OK

Grazie

Vuoi Approfondire?