Convertire i valori negativi trattati come testo utilizzando VBA in Microsoft Excel
In questo articolo creeremo una funzione personalizzata per convertire le stringhe negative in un numero intero.
I dati grezzi per questo articolo sono costituiti da stringhe seguite da un segno meno (-).
Vogliamo convertire queste stringhe in numeri interi.
Spiegazione logica
In questo articolo, abbiamo creato una funzione personalizzata ConvertNegNumbers per convertire la stringa in numero intero. Questa funzione accetta il valore della stringa come input e restituisce un numero intero come output.
Spiegazione del codice
Destra (Var, 1) = “-“
Il codice precedente viene utilizzato per verificare se l’ultimo carattere della stringa è uguale al segno meno (-).
ConvertNegNumbers = CInt (“-” & Left (Var, Len (Var) – 1))
Nel codice sopra, la funzione sinistra viene utilizzata per estrarre tutti i caratteri nella stringa, tranne l’ultimo. La funzione CInt viene utilizzata per convertire il valore della stringa in intero.
Segui sotto per il codice
Option Explicit
Function ConvertNegNumbers(Var As String)
'Checking whether last character in the string is minus(-)
If Right(Var, 1) = "-" Then
'Converting string value to negative integer
ConvertNegNumbers = CInt("-" & Left(Var, Len(Var) - 1))
Else
'Converting string value to integer
ConvertNegNumbers = CInt(Var)
End If
End Function
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.
Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]