Convertire in automatico il formato data in una cella excel

[akragas5]

Salve,

Ho un piccolo problema da risolvere in excel.

Esiste un modo per trasformare la data inserita in una cella in modo automatico?

Mi spiego meglio cosa voglio ottenere:
io vorrei che ogni volta che scrivo una data nel formato ad esempio 01012015
in automatico il sistema me lo corregga e me la scriva in questo formato 01/01/2015.

Grazie anticipatamente per la risposta.

Akragas

[alfrimpa]

Ciao akragas5

Avresti dovuto specificare in quali celle debba avvenire questa "trasformazione".

Con questa macro che va inserita nel modulo del foglio interessato il formato viene cambiato alla sola cella A1 ma si può variare come si vuole.

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Dim giorno As String
Dim mese As String
Dim anno As String
Dim data As String
If Not Intersect(Target, Range("a1")) Is Nothing Then
    data = Target.Value
    giorno = Left(data, 2)
    mese = Mid(data, 3, 2)
    anno = Right(data, 4)
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
            Target.Value = giorno & "/" & mese & "/" & anno
    Application.EnableEvents = True
End If
End Sub

Ho provato (ma sicuramente c'è il modo) a farlo con i "Formati" ma non ci sono riuscito.

P.S. Attenzione la data va sempre scritta ggmmaaaa

[alfrimpa]

Scusa akragas5 non considerare la mia precedente risposta che funziona ma è troppo complicata; che è un po' come voler ammazzare un moscerino con un bazooka

Fai così che è molto meglio

1) Seleziona le celle che vuoi formattare
2) Vai in Formato Celle, Personalizzato
3) nella casella Tipo digita questo

Codice: Seleziona tutto

0#"/"##"/"####

4) dai Ok.

[Anthony47]

Benvenuto nel forum ad akragas5 e un saluto ad Alfredo.

Con la formattazione noi cambiamo la visualizzazione di un dato, ma non la sua natura; quindi l'eventuale 01/01/2016 ottenuto non sara' una data, ma sempre il numero 01012016
Cosi' che se gli sommiamo 366 otterremo 01/01/2382; mentre se sommiamo 366 alla data 01/01/2016 otteniamo 01/01/2017

Se il risultato della formattazione non risolve il problema di akragas5, la strada giusta e' il bazooka della macro.
Ma per fare questo e' necessario che venga specificato quali sono le celle in cui tutto cio' che viene introdotto in quel formato deve essere trasformato in una data.

Ciao

[alfrimpa]

Ottima precisazione Anthony.

A proposito cosa ne pensi della mia macro?

Da "artigiano" del VBA mi interessa conoscere il parere di un "professionista"

[Anthony47]

Da "artigiano" del VBA mi interessa conoscere il parere di un "professionista"

Ah aha, appena passa un professionista gli chiedo un parere...
La base e' quella, andrebbe solo controllato che il dato di partenza produce una data valida; come pure produrrei direttamente una data usando o DateSerial(Anno, Mese, Giorno) oppure DateValue(Stringa).
Sempre comunque da fare solo sul range di celle deputate a contenere la data.

Ciao!