Convertir les valeurs négatives traitées sous forme de texte en utilisant VBA dans Microsoft Excel
Dans cet article, nous allons créer une fonction personnalisée pour convertir des chaînes négatives en un entier.
Les données brutes de cet article se composent de chaînes suivies d’un signe moins (-).
Nous voulons convertir ces chaînes en entiers.
Explication logique
Dans cet article, nous avons créé une fonction personnalisée ConvertNegNumbers pour convertir la chaîne en entier. Cette fonction prend une valeur de chaîne en entrée et renvoie un entier en sortie.
Explication du code
Droite (Var, 1) = « -«
Le code ci-dessus est utilisé pour vérifier si le dernier caractère de la chaîne est égal au signe moins (-).
ConvertNegNumbers = CInt (« – » & Left (Var, Len (Var) – 1))
Dans le code ci-dessus, la fonction de gauche est utilisée pour extraire tous les caractères de la chaîne, sauf le dernier. La fonction CInt est utilisée pour convertir une valeur de chaîne en entier.
Veuillez suivre ci-dessous pour le code
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
Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.
Nous aimerions avoir de vos nouvelles, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]