Conversione di testo a numeri

Se si utilizza Excel per afferrare le informazioni da una fonte esterna, è possibile che si potrebbe finire con alcune informazioni molto strano nelle vostre cellule. Per esempio, diciamo che se le cellule che contengono numeri, come 1,234.5-. Questi sono formattati come celle di testo in Excel, e pertanto non possono essere utilizzati nei calcoli.

La seguente macro controllerà le celle in un intervallo selezionato. Se le celle contengono testo, testo e che termina in un segno meno, la macro sposterà il segno meno all'inizio del testo e imbottirlo nella cella. Il risultato è che la cellula viene convertito da un valore di testo al valore numerico corretto.

Sub ConvToNum ()
Dim MyText As Variant
Dim MyRange come gamma
CellCount Dim As Integer

Set MyRange = ActiveSheet.Range (ActiveWindow.Selection.Address)
Per CellCount = 1 Per MyRange.Cells.Count
MyText = MyRange.Cells (CellCount) .Value
Se VarType (MyText) = vbString Poi
MyText = Trim (MyText)
Se Destro (MyText, 1) = "-" Allora
MyText = "-" & Sinistra (MyText, Len (MyText) - 1)
MyRange.Cells (CellCount) .Value = MyText
End If
End If
Successivo CellCount
End Sub

ExcelTips è la vostra fonte per la formazione Microsoft Excel conveniente. Questo suggerimento (2300) si applica a Microsoft Excel 97, 2000, 2002, e 2003. È possibile trovare una versione di questo suggerimento per l'interfaccia ribbon di Excel (Excel 2007 e versioni successive) qui: Convertire testo nel numero.