Konvertieren Sie negative Werte, die als Text behandelt werden, mit VBA in Microsoft Excel

Anonim

In diesem Artikel werden wir eine benutzerdefinierte Funktion erstellen, um negative Strings in eine ganze Zahl zu konvertieren.

Rohdaten für diesen Artikel bestehen aus Zeichenfolgen gefolgt von einem Minuszeichen (-).

Wir wollen diese Strings in ganze Zahlen umwandeln.

Logikerklärung

In diesem Artikel haben wir eine benutzerdefinierte Funktion ConvertNegNumbers erstellt, um die Zeichenfolge in eine Ganzzahl zu konvertieren. Diese Funktion nimmt einen String-Wert als Eingabe und gibt eine Ganzzahl als Ausgabe zurück.

Codeerklärung

Rechts(Var, 1) = "-"

Der obige Code wird verwendet, um zu überprüfen, ob das letzte Zeichen der Zeichenfolge gleich dem Minuszeichen (-) ist.

ConvertNegNumbers = CInt("-" & Left(Var, Len(Var) - 1))

Im obigen Code wird die linke Funktion verwendet, um alle Zeichen in der Zeichenfolge mit Ausnahme des letzten zu extrahieren. Die CInt-Funktion wird verwendet, um einen Zeichenfolgenwert in eine Ganzzahl zu konvertieren.

Bitte folgen Sie unten für den Code

 Option Explizite Funktion ConvertNegNumbers(Var As String) 'Überprüfen, ob das letzte Zeichen im String ein Minus ist (-) If Right(Var, 1) = "-" Then 'Konvertieren des String-Werts in eine negative Ganzzahl ConvertNegNumbers = CInt("-" & Left (Var, Len(Var) - 1)) Else 'String-Wert in Ganzzahl konvertieren ConvertNegNumbers = CInt(Var) End If End Function 

Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.

Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site