Excel 2010 Come riportare al formato generale tutte le celle che dopo un'importazione di dati sono diventate con formato contabilità?

Question

Excel 2010

Dopo aver copiato da una cartella ad un'altra un foglio di Excel. tutte le celle della cartella di lavoro (circa 450 fogli!) che originariamente avevano lo stile normale e formato numerico standard hanno ora il formato numerico contabilità, con due posizioni decimali, simbolo € Tedesco (Lussemburgo).

Essendo impostato il calcolo ad approssimazione come visualizzata, tutti i valori finali risultano errati.

Come posso riportare il formato numerico di queste celle al formato originale, senza doverle selezionare manualmente (foglio per foglio e celle per celle), sarebbe un lavoro immane.

Grazie per le risposte

Answer 1

La macro con altri formati numerici funziona bene

Però se sostituisco al c.NumberFormat da te indicato con quello rilevato

...........

if c.NumberFormat = " _([$€]* #,##0.00_);_([$€]* (#,##0.00);_([$€]* " - "??_);_(@_)" Then

...........

mi segnala l'errore di run-time '13'

Tipo non corrispondente

Dove sbaglio?

Grazie comunque

Non lo so, non ho il tuo file.

Prova ad aggiungere l'istruzione:

On Error resume Next

prima del primo ciclo For.

Il problema è comunque a monte. Come è possibile tu abbia una formattazione tedesca/lussemburghese? Come hai copiato i fogli da un file all'altro? Entrambi i files avevano le stesse impostazioni di lingua?

Grazie.

Puoi anche mettere in condivisione il file qui:

http://windows.microsoft.com/it-it/skydrive/home

oppure, se hai dati sensibili, inviarlo qui:

maurogsc

chiocciola

alice.it

Answer 2

Excel 2010

Dopo aver copiato da una cartella ad un'altra un foglio di Excel. tutte le celle della cartella di lavoro (circa 450 fogli!) che originariamente avevano lo stile normale e formato numerico standard hanno ora il formato numerico contabilità, con due posizioni decimali, simbolo € Tedesco (Lussemburgo).

Essendo impostato il calcolo ad approssimazione come visualizzata, tutti i valori finali risultano errati.

Come posso riportare il formato numerico di queste celle al formato originale, senza doverle selezionare manualmente (foglio per foglio e celle per celle), sarebbe un lavoro immane.

Grazie per le risposte

Questa macro, da copia/incollare in un modulo standard, fa quanto ho capito:

Public Sub m()

    Dim sh As Worksheet

    For Each sh In ThisWorkbook.Worksheets

        sh.Cells.NumberFormat = "General"

    Next

End Sub

NOTA.

Tutte le celle di tutti i fogli vengono formattate come Generale. Quale fosse l'originale, numerico standard, non è chiaro.

Sostituisci "General" con "0.00"  se vuoi i due decimali o con "0" se non vuoi i decimali.

Se vuoi anche i separatori delle migliaia: "#,##0" o "#,##0.00" senza o con i decimali.

Answer 3

La macro con altri formati numerici funziona bene

Però se sostituisco al c.NumberFormat da te indicato con quello rilevato

...........

if c.NumberFormat = " _([$€]* #,##0.00_);_([$€]* (#,##0.00);_([$€]* " - "??_);_(@_)" Then

...........

mi segnala l'errore di run-time '13'

Tipo non corrispondente

Dove sbaglio?

Grazie comunque

Answer 4

Grazie per la risposta, anche se non risolve completamente il problema.

Infatti alcune celle (quello formattate precedentemente come numero, con due o zero decimali, con separatore delle migliaia come indicato nella tua risposta), hanno mantenuto il formato corretto; quelle che non avevano nessun formato numerico sono state sostituite con il formato numerico contabilità. La macro funzionerebbe a meraviglia se potesse "intervenire" solo sulle celle che attualmente hanno il formato numerico contabilità lasciando inalterato il formato numerico delle altre.

Non importa se la la macro deve lavorare a lungo (anche tutta la notte), sarebbe comunque un bel risparmio di tempo.

Grazie ancora

La cosa è fattibile (anche se potrebbe poi impiegare moooolto tempo a ripassare tutte le celle di 450 fogli...;-))

Non ho capito quale sia la formattazione delle celle incriminate.

Prova:

Public Sub m()

    Dim c As Range

    Dim sh As Worksheet

    For Each sh In ThisWorkbook.Worksheets

        For Each c In sh.UsedRange

            If c.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)" Then

                c.NumberFormat = "#,##0.00"

            End If

        Next

    Next

End Sub

Non so se la formattazione da modificare è corretta. Se non lo è, ricavala selezionado una cella che la contiene e lanciando questa macro:

Public Sub m_1()

    MsgBox ActiveCell.NumberFormat

End Sub

Il risultato andrà a sostituire:

"_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

E ovviamente modifica la nuova formattazione con la tua, io ho messo "#,##0.00".

Answer 5

Grazie per la risposta, anche se non risolve completamente il problema.

Infatti alcune celle (quello formattate precedentemente come numero, con due o zero decimali, con separatore delle migliaia come indicato nella tua risposta), hanno mantenuto il formato corretto; quelle che non avevano nessun formato numerico sono state sostituite con il formato numerico contabilità. La macro funzionerebbe a meraviglia se potesse "intervenire" solo sulle celle che attualmente hanno il formato numerico contabilità lasciando inalterato il formato numerico delle altre.

Non importa se la la macro deve lavorare a lungo (anche tutta la notte), sarebbe comunque un bel risparmio di tempo.

Grazie ancora