Fonction RoundUp VBA

Fonction Excel VBA RoundUp

Similaire à la fonction de feuille de calcul où nous arrondissons les nombres aux entiers les plus proches, dans VBA, nous avons une fonction RoundUp qui diminue le point décimal pour nous et la syntaxe pour utiliser la fonction d'arrondi est la suivante Round up (Number, Number of Digits After Decimal ) ces deux arguments dans la fonction sont obligatoires.

Lorsque nous travaillons avec des nombres et des calculs, nous obtenons des nombres de fraction après le nombre entier et c'est assez courant dans les affaires quotidiennes. Nous ne nous soucions généralement pas des valeurs décimales car cela n'a aucun impact sur notre résultat final. Dans ces situations, nous devons arrondir les nombres au nombre entier le plus proche ou au nombre entier immédiat. En utilisant la fonction RoundUp, nous pouvons réellement effectuer cette tâche.

Si vous avez recherché dans VBA la fonction RoundUp, vous ne devez pas l'avoir trouvée car il s'agit d'une fonction de feuille de calcul. Pour accéder à la fonction RoundUp, nous devons utiliser la classe vba Worksheet Function.

Avant cela, rappelez-vous la syntaxe de la fonction RoundUp.

Exemples

Vous pouvez télécharger ce modèle Excel VBA RoundUp ici - Modèle Excel VBA RoundUp

Effectuons la tâche d'arrondir le nombre «288,5264». Nous verrons tous les chiffres avec cet exemple.

Exemple # 1 - Lorsque le deuxième argument est zéro

Regardez le code VBA ci-dessous.

Code:

 Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub 

  • Lorsque vous exécuterez le code ci-dessus, il convertira le nombre fourni, soit 288,5264, en nombre entier le plus proche, soit 289

Exemple # 2 - Lorsque le deuxième argument est 1

Regardez le code ci-dessous pour voir ce qui se passe lorsque nous en passons un comme deuxième argument.

Code:

 Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub 

  • Ce code convertira le nombre donné en un point décimal soit 288,6

Exemple # 3 - Lorsque le deuxième argument est 2

Regardez le code ci-dessous pour voir ce qui se passe lorsque nous passons deux comme deuxième argument.

Code:

 Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub 

  • Ce code convertira le nombre donné en deux décimales soit 288,53

Exemple # 4 - Lorsque le deuxième argument est 3

Regardez le code ci-dessous pour voir ce qui se passe lorsque nous passons trois comme deuxième argument.

Code:

 Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub 

  • Ce code convertira le nombre donné en trois décimales soit 288,527

Exemple # 5 - Lorsque le deuxième argument est -1

Regardez le code ci-dessous pour voir ce qui se passe lorsque nous passons moins un comme deuxième argument.

Code:

 Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub 

  • Ce code convertira le nombre donné à la dizaine la plus proche soit 290.

Exemple # 6 - Lorsque le deuxième argument est -2

Regardez le code ci-dessous pour voir ce qui se passe lorsque nous passons moins deux comme deuxième argument.

Code:

 Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub 

  • Ce code convertira le nombre donné en cent près, c'est-à-dire 300.

Exemple # 7 - Lorsque le deuxième argument est -3

Regardez le code ci-dessous pour voir ce qui se passe lorsque nous passons moins trois comme deuxième argument.

Code:

 Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub 

  • Ce code convertira le nombre au millier le plus proche soit 1000.

Comme ça, nous pouvons utiliser la fonction ROUNDUP dans VBA dans le cadre de la classe de fonctions de feuille de calcul pour arrondir les nombres en fonction du deuxième argument fourni.