Ce tutoriel montrera comment utiliser la fonction CDec VBA.
Fonction CDec
VBA CDec Convertir l'expression en décimal
La fonction VBA CDec convertit une expression en un type de données décimal. Le type de données décimal est en fait un sous-type du type de données variant.
| 12345678910 | Sous CDecExample_1()MsgBox CDec(12.34000001)'Le résultat est : 12.34000001MsgBox CDec(10000000000012.3)'Le résultat est : 10000000000012.3MsgBox CDec (-0.000000000000001)'Le résultat est : -0.00000000000001MsgBox CDec(-12.34)'Le résultat est : -12,34Fin du sous-marin |
VBA CDec Conversion de chaînes en décimales
La fonction VBA CDec peut être utilisée pour convertir des chaînes en décimales si les caractères de la chaîne ont une signification sous forme de nombres.
| 12345678910111213141516171819 | Sous CDecExample_2()Dim StrEx en tant que chaîneStrEx = "112.112112"MsgBox CDec(StrEx)'Le résultat est : 112.112112StrEx = "112.3"MsgBox CDec(StrEx)'Le résultat est : 112.3StrEx = "11,2"MsgBox CDec(StrEx)'Le résultat est : 112 , est ignoréStrEx = " 112,07 $ "MsgBox CDec(StrEx)'Le résultat est : 112,07 $ est ignoréFin du sous-marin |
Programmation VBA | Le générateur de code fonctionne pour vous !
Erreur d'exécution VBA CDec 13 Type de non-concordance
L'utilisation de la fonction VBA CDec avec des chaînes contenant des caractères non numériques ou des caractères qui n'ont pas de sens dans un contexte numérique entraînera une erreur d'exécution « 13 » : incompatibilité de type.
| 1234567 | Sous CDecExample_3()'Le code ci-dessous entraînera un message d'ERREUR'CDec ne peut pas gérer les caractères non numériquesDim StrEx en tant que chaîneStrEx = "Ab13"MsgBox CDec(StrEx)Fin du sous-marin |
Débordement d'erreur d'exécution VBA CDec 6
L'utilisation de la fonction VBA CDec avec des chaînes qui entraînent une valeur inférieure ou supérieure à la décimale attendue entraînera une erreur d'exécution « 6 » : débordement. Un nombre décimal doit être compris entre -7,9 E28 et +7,9 E28.
| 1234567 | Sous CDecExample_4()'Le code ci-dessous entraînera un message d'ERREUR'CDec peut gérer des nombres entre -7,9 E28 et +7,9 E28Dim StrEx comme varianteStrEx = 8E+30MsgBox CDec(StrEx)Fin du sous-marin |
Paramètres régionaux VBA CDec
La fonction VBA CDec a un comportement différent en convertissant les chaînes avec une virgule ou un point. Il utilise les paramètres régionaux du système d'exploitation pour le séparateur décimal et le séparateur de chiffres.
| 12345678910111213141516 | Sous CDecExample_5()Dim StrEx en tant que chaîneStrEx = "1 0000009"MsgBox CDec(StrEx)'Si les paramètres régionaux ont , comme séparateur de regroupement alors'Le résultat est : 19'Si les paramètres régionaux ont , comme séparateur décimal alors'Le résultat est : 1.0000009StrEx = "1.0000009"MsgBox CDec(StrEx)'Si les paramètres régionaux ont . comme séparateur de regroupement alors'Le résultat est : 19'Si les paramètres régionaux ont . comme séparateur décimal alors'Le résultat est : 1.0000009Fin du sous-marin |
