Se stai usando Excel per acquisire informazioni da una fonte esterna, è possibile che tu possa finire con alcune informazioni piuttosto strane nelle tue celle. Ad esempio, supponiamo di avere celle che contengono numeri come 1.234,5-. Questi sono formattati come celle di testo in Excel e quindi non possono essere utilizzati nei calcoli.

La seguente macro controllerà le celle in un intervallo selezionato. Se le celle contengono testo e il testo termina con un segno meno, la macro sposterà il segno meno all’inizio del testo e lo inserirà nuovamente nella cella. Il risultato è che la cella viene convertita da un valore di testo al valore numerico appropriato.

Sub ConvToNum()

Dim MyText As Variant     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         MyText = MyRange.Cells(CellCount).Value         If VarType(MyText) = vbString Then             MyText = Trim(MyText)

If Right(MyText, 1) = "-" Then                 MyText = "-" & Left(MyText, Len(MyText) - 1)

MyRange.Cells(CellCount).Value = MyText             End If         End If     Next CellCount End Sub

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2300) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Conversione di testo in numeri.