convertire testo in numero come fare

convertire testo in numero come fare

Ottobre 30, 2019 Off Di excelsapeviche

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!