You are here:Home-Domande su Excel VBA e MACRO-normalizzare numeri di cellulare-Rispondi a: normalizzare numeri di cellulare
Rispondi a: normalizzare numeri di cellulare2020-06-05T09:15:55+02:00

Home Forum Domande su Excel VBA e MACRO normalizzare numeri di cellulare Rispondi a: normalizzare numeri di cellulare

BySalvBySalv
Amministratore del forum
    Post totali: 771

    Ciao Angelo, ecco 2 macro, la prima questa, che pulisce e normalizza i tuoi numeri rendendoli xxx-xxxxxxx e va inserita in un modulo VBA, e lanciata una volta sola.

    Sub pulisci()
    Dim r, c, x, d, d1, d2
    
    For x = 3 To Cells(Rows.Count, 10).End(xlUp).Row
        d = Cells(x, 10)
        d = Replace(d, ".", "")
        d = Replace(d, " ", "")
        d = Trim(d)
        d1 = Mid(d, 1, 3)
        d2 = Mid(d, 4)
        Cells(x, 10) = d1 & "-" & d2
    Next x
    End Sub

    la seconda questa che invece non permette di inserire numeri diversi dal formato xxx-xxxxxxx, cioè puoi anche scriverli come ti pare ma quando passi alla cella successiva, ti riporta il formato desiderato.
    Ho previsto spazi, punto, virgola, trattino, underscore, non credo inserirai parentesi
    Questa macro invece va inserita nel modulo del foglio interessato.

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, c, d, d1, d2
    
    If Not Intersect(Target, [j:j]) Is Nothing Then
        r = Target.Row: c = Target.Column: d = Target
        If r < 3 Then Exit Sub
        Application.EnableEvents = False
        d = Replace(d, ".", "")
        d = Replace(d, ",", "")
        d = Replace(d, "-", "")
        d = Replace(d, "_", "")
        d = Replace(d, " ", "")
        d = Trim(d)
        d1 = Mid(d, 1, 3)
        d2 = Mid(d, 4)
        Cells(r, c) = d1 & "-" & d2
        Application.EnableEvents = True
    End If
    
    End Sub

    anche se avresti potuto usare la formattazione celle come da immagine, in questo modo avresti avuto lo stesso risultato

    [/url]

    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