CONVERTIRE TESTO IN NUMERO

[Davide]

Ciao a tutti...
ho un file di Excel che mi viene generato da un'estrazione AS400.
Tutti i valori (compresi quelli numerici) vengono impostati come testo.
Come posso fare a convertire il testo in numero con una procedura in VBA??
Ho provato con "Formato Celle" ma una volta che faccio la sommatoria non
calcola niente...qualcuno può aiutarmi??
GRAZIE A TUTTI!!!!

[Franz Verga]

Post by Davide
Ciao a tutti...
ho un file di Excel che mi viene generato da un'estrazione AS400.
Tutti i valori (compresi quelli numerici) vengono impostati come
testo. Come posso fare a convertire il testo in numero con una
procedura in VBA?? Ho provato con "Formato Celle" ma una volta che
faccio la sommatoria non calcola niente...qualcuno può aiutarmi??
GRAZIE A TUTTI!!!!

Ciao Davide,

prova a registrare una macro mentre apri con Excel il file che avrai salvato
in formato testo (.txt).

Di solito funziona...

[Bruno Campanini]

Post by Davide
Ciao a tutti...
ho un file di Excel che mi viene generato da un'estrazione AS400.
Tutti i valori (compresi quelli numerici) vengono impostati come testo.
Come posso fare a convertire il testo in numero con una procedura in VBA??
Ho provato con "Formato Celle" ma una volta che faccio la sommatoria non
calcola niente...qualcuno può aiutarmi??
GRAZIE A TUTTI!!!!

[Sheet1!D39:D45].NumberFormat = "#,##0.00"

La macro è tutta qui.
Però se non funziona Format Cells, vedrai che non funziona
nemmeno la macro.

In ogni caso Excel esegue calcoli esatti anche su numeri le cui
celle siano state definite Text.
Non però su numeri inseriti con '14 ovvero ="14"

Ciao
Bruno

[Mauro Gamberini]

Post by Davide
ho un file di Excel che mi viene generato da un'estrazione AS400.
Tutti i valori (compresi quelli numerici) vengono impostati come testo.
Come posso fare a convertire il testo in numero con una procedura in VBA??
Ho provato con "Formato Celle" ma una volta che faccio la sommatoria non
calcola niente...qualcuno può aiutarmi??

Public Sub m()

Dim rng As Range
Dim c As Range

On Error Resume Next
Set rng = Worksheets("Foglio1").Range("A1:A10")

For Each c In rng
c.Value = c.Value * 1
c.HorizontalAlignment = xlRight
Next

End Sub


Cambia i riferimenti con i tuoi.