[Excel] Sostituzione Contemporanea Punto con Virgola...

[Black.Jack]

...e viceversa!


questo per ottenere il seguente risultato:

partendo da una cella contenente "45.456,12"

si otterrebbe "45,456.12" (formattazione numerica all'inglese)


Ho provato a modificare temporaneamente le impostazioni internazionali, stampare il risultato, e riottenere le impostazioni di prima ma non funziona sempre.


A volte le celle che contengono valori numerici appaiono con una formattazione che è modificabile dalle impostazioni internazionali. Ho notato che è possibile solamente quando cliccando all'interno della cella il numero appare privo di "punteggiatura".

help!

[Flash30005]

Prova questa macro dove definirai quante righe e colonne (visto che non hai specificato la distribuzione dei tuoi dati)

Codice: Seleziona tutto

Sub ConvV()
For rwIndex = 1 To 15
    For colIndex = 1 To 10
        With Worksheets("Foglio1").Cells(rwIndex, colIndex)
            MioV = InStr(.Value, ",")
            MioP = InStr(.Value, ".")
            If MioV > 1 And MioP > 1 Then
                Caratt = Replace(.Value, ",", "_")
                Caratt = Replace(Caratt, ".", ",")
                Caratt = Replace(Caratt, "_", ".")
            .Value = Caratt
            End If
        End With
    Next colIndex
Next rwIndex

End Sub

Ciao