convertire testo in numero come fare
Volete convertire celle memorizzate come testo in numero, su excel, in automatico, senza stare a cliccare sull’icona di avviso per ogni foglio o cella corrispondente? Supponiamo che dobbiate fare la stessa operazione per svariati file excel e poi salvarli con i dati correttamente archiviati come numeri. Quindi avete bisogno di convertire testo in numero.
Sappiamo tutti quanto questo possa essere fastidioso in ufficio. Il nostro collega dell’IT ci invia una estrazione da qualche database, apriamo il file excel e ci troviamo davanti una sfilza di numeri memorizzati come testo. Finché dovrete farlo poche volte, ci vorrà pazienza e cliccare sull’icona di excel e convertire testo in numero (se volete sapere anche quale sia la procedura, la Microsoft vi spiega esattamente qui.
Tuttavia se sappiamo che l’operazione si ripeterà nel tempo (ogni settimana riceveremo quel file!), la soluzione è, ancora una volta, passare per una macro su Visual Basic. Excelsapeviche vi propone un codice già pronto, dovrete solo inserire i vostri file e il percorso dove si trova la vostra cartella di lavoro.
L’esempio sottostante prende come riferimento un numero di file pari a cinque, in formato workbook superiore al 2007.
‘ macro per convertire testo in numero
Sub TESTOinNUMERI()
Dim dir As String
dir = il percorso dove si trovano i vostri file
Dim file(1 To 5) As String
file(1) = “file01.xlsx”
file(2) = ” file02.xlsx “
file(3) = ” file03.xlsx “
file(4) = ” file04.xlsx “
file(5) = ” file05.xlsx “
For j = 1 To 5
Workbooks.Open Filename:= _
dir & file(j) _
, ReadOnly:=False
ActiveWindow.Visible = True
For Each ts In Worksheets
With ActiveSheet.UsedRange
.NumberFormat = “General”
.Value = .Value
End With
Next ts
ActiveWorkbook.SaveAs Filename:= _
dir & file(j), _
FileFormat:=xlOpenXMLWorkbook, Password:=””, WriteResPassword:=””, _
ReadOnlyRecommended:=False, CreateBackup:=False
Next j
End Sub
Una macro di questa tipologia ci permette di riparmiare un mucchio di tempo! Per qualsiasi dubbio, informazione, o se vi siete mai chiesti qualcosa su excel che nessuno è riuscito a spiegarvi, contattateci!