sostituzione stringa



  • sostituzione stringa
    di caspita! (utente non iscritto) data: 29/06/2014 15:21:42

    Salve a tutti,
    ho un problema inerente ad alcune date, antecedenti il 1900.
    Es.
    02/5/1853
    22/11/1855
    3/06/1854
    Dal momento che in alcune date non sono stati inseriti gli zeri (es. 02/05/1853) come posso fare per aggiugerli automaticamente al giorno o al mese e ottenere così sempre una stringa di 10 caratteri?
    Grazie



  • di lepat (utente non iscritto) data: 29/06/2014 15:58:16

    in quale colonna ?



  • di lepat (utente non iscritto) data: 29/06/2014 16:03:51

    se in colonna A usa questa macro
     
    Sub a()
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    For r = 1 To LR
      d = Cells(r, "A")
      If InStr(d, "/") = 2 Then Cells(r, "A") = "0" & d
      d = Cells(r, "A")
      If InStrRev(d, "/") = 5 Then Cells(r, "A") = Left(d, 3) & "0" & Right(d, 6)
    Next
    End Sub



  • di caspita! (utente non iscritto) data: 29/06/2014 17:37:13

    perdonami, è possibile usando le sole funzioni excel?



  • di lepat (utente non iscritto) data: 29/06/2014 17:45:06

    sicuramente sì, ma io non lo so fare



  • di caspita! (utente non iscritto) data: 29/06/2014 18:05:20

    come funziona la macro? cosa devo fare? perdona l'ignoranza. Grazie.



  • di lepat (utente non iscritto) data: 29/06/2014 18:18:14

    h t t p://www.mrwebmaster.it/visual-basic/guide/guida-vba/



  • di lepat (utente non iscritto) data: 29/06/2014 18:19:42

    se non hai tempo per imparare allega il file e te lo restituisco con la macro attivabile da pulsante



  • di caspita! (utente non iscritto) data: 29/06/2014 18:35:48

    Gentilissimo. Proverò a vedere. Grazie ancora