Eliminare gli zero iniziali in celle excel

Question

Buonasera,

vorrei il vostro aiuto su come eliminare gli zero iniziali su celle di excel.

es. 0098.00 vorrei che diventasse 98.00.

ho trovato nel web la seguente funzione ma si blocca alla riga .Value = InitialZeros(.Value)

Public Sub Tester()

Dim WB As Workbook

Dim SH As Worksheet

Dim Rng As Range

Dim rCell As Range

Set WB = ThisWorkbook

Set SH = WB.Sheets("Foglio1") '<<=== da CAMBIARE

Set Rng = SH.Range("A1:A100") '<<=== da CAMBIARE

On Error GoTo XIT

Application.ScreenUpdating = False

For Each rCell In Rng.Cells

With rCell

.Value = InitialZeros(.Value)

End With

Next rCell

XIT:

Application.ScreenUpdating = True

End Sub

Grazie

Answer 1

Ciao Vito,

vorrei il vostro aiuto su come eliminare gli zero iniziali su celle di excel.

es. 0098.00 vorrei che diventasse 98.00.

ho trovato nel web la seguente funzione ma si blocca alla riga .Value = InitialZeros(.Value)

Public Sub Tester()

Dim WB As Workbook

Dim SH As Worksheet

Dim Rng As Range

Dim rCell As Range

Set WB = ThisWorkbook

Set SH = WB.Sheets("Foglio1") '<<=== da CAMBIARE

Set Rng = SH.Range("A1:A100") '<<=== da CAMBIARE

On Error GoTo XIT

Application.ScreenUpdating = False

For Each rCell In Rng.Cells

With rCell

.Value = InitialZeros(.Value)

End With

Next rCell

XIT:

Application.ScreenUpdating = True

End Sub

Anche se riconosco il codice, penso che ti manca il codice di una funzione InitialZerosche, a questa distanza di tempo, non me ne ricordo.

Tuttavia, per una soluzione di VBA, prova a sostituire quel codice con la seguente versione:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim Rng As Range

    Dim rCell As Range

    Set WB = ThisWorkbook

    Set SH = WB.Sheets("Foglio1")                                          '<<=== Modifica

    Set Rng = SH.Range("A1:A100")                                         '<<=== Modifica

    On Error GoTo XIT

    Application.ScreenUpdating = False

    For Each rCell In Rng.Cells

        With rCell

            .NumberFormat = "0.00"

            .Value = .Value

        End With

    Next rCell

XIT:

    Application.ScreenUpdating = True

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Il formato è di testo prodotto da un sw esterno ma dovrebbe essere valuta.

Seleziona le celle a cui cambiare formato, usa il comando Sostituisci.

Nel campo Trova: .     metti il punto

Nel campo Sostituisci: ,  metti la virgola

Sostituisci tutto.

Attribuisci ora alle celle il formato numerico che preferisci.

Answer 3

Scusate per il ritardo ma non ho potuto provare prima il codice inviato gentilmente da Norman.

Funziona benissimo e mi è stato di grande utilità.

Grazie ancora

Answer 4

Il formato è di testo prodotto da un sw esterno ma dovrebbe essere valuta.

Answer 5

Credo sia sufficiente una corretta formattazione della cella.

Però occorrerebbe sapere cosa rappresenta 0098.00; è un numero con due decimali, o una stringa di testo o un'ora o che cosa?