Fonction racine carrée Excel VBA

Dans cet article, nous verrons un aperçu de la racine carrée VBA Excel. Chaque fois que vous travaillez sur Excel, vous devez avoir utilisé la fonction SQRT qui donne la racine carrée de tout nombre entier. Est-il possible de capturer la racine carrée d'un nombre sous VBA? Eh bien, la réponse est un oui certain! Vous pouvez obtenir la racine carrée de tout nombre positif via VBA en utilisant la fonction VBA SQR. Cette fonction est une fonction VBA intégrée et peut être utilisée sur n'importe quel entier positif pour en obtenir la racine carrée. Eh bien, cette fonction est très similaire à celle que nous utilisons comme fonction de feuille de calcul SQRT et prend également le même argument unique «Number» qui devrait être positif. Nous ne pouvons pas non plus obtenir les racines carrées des nombres imaginaires et entrer des valeurs négatives est inutile car il n'y a aucun moyen de capturer une valeur carrée négative d'un nombre.

Syntaxe:

La syntaxe de la fonction racine carrée VBA est assez simple et ressemble à celle de la fonction de feuille de calcul SQRT.

Où Number est un seul argument qui doit être fourni et doit être strictement positif. Comme nous ne pouvons pas avoir de valeurs carrées négatives d'un nombre quelconque, les chances d'obtenir une valeur de racine carrée négative sont impossibles. De plus, aucune possibilité de découvrir les racines carrées des nombres complexes. Cet argument peut être fourni directement sous la forme d'un nombre ou d'une variable affectée au numéro ou à une référence de cellule de feuille de calcul où le numéro est stocké. De plus, le point à noter ici est que le système considère par défaut l'argument que vous fournissez comme un double pour vous donner la racine carrée sur n'importe quel nombre, indépendamment du fait qu'il s'agit d'un carré entier ou non (Ex. 87, n'est pas le carré entier, mais obtiendra toujours la valeur de racine carrée car le type de nombre est double. Vous pouvez toujours définir un nombre comme un entier, puis l'utiliser comme argument pour la fonction SQR. Il sera arrondi à la valeur de racine carrée la plus proche si le nombre fourni n'est pas un carré entier.

Comment utiliser la fonction racine carrée dans Excel VBA?

Vous trouverez ci-dessous les différents exemples d'utilisation de la fonction Racine carrée dans Excel VBA.

Vous pouvez télécharger ce modèle Excel de racine carrée VBA ici - Modèle Excel de racine carrée VBA

Racine carrée VBA - Exemple # 1

Suivez les étapes ci-dessous pour voir comment fonctionne exactement la fonction VBA SQR.

Étape 1: cliquez sur l'onglet Développeur, puis sur l'icône Visual Basic (ALT + F11).

Étape 2: Ouvrez le module à partir de l'onglet du menu Insérer, comme illustré ci-dessous.

Étape 3: définir une nouvelle sous-procédure pouvant contenir la macro sous le module nouvellement inséré.

Code:

 Sub sqrt_Example1 () End Sub

Étape 4: Utilisez l'opérateur d'affectation pour affecter la valeur de la fonction racine carrée VBA à une variable nommée " sqr_root " afin que nous puissions imprimer le résultat et voir s'il fonctionne correctement.

Code:

 Sub sqrt_Example1 () sqr_root = Sqr (121) End Sub

Étape 5: utilisez la fonction MsgBox afin que nous puissions imprimer le résultat sous la forme d'une boîte de message qui apparaîtra dès que nous exécuterons le code.

Code:

 Sub sqrt_Example1 () sqr_root = Sqr (121) MsgBox "La racine carrée du nombre donné est:" & sqr_root End Sub

Étape 6: exécutez ce code en appuyant sur F5 ou sur le bouton Exécuter placé sur le panneau supérieur.

Dès que vous exécutez ce code, vous devriez voir une sortie comme indiqué ci-dessous.

Racine carrée VBA - Exemple # 2

Approfondissons la fonction VBA SQR et essayons de découvrir différents cas.

Étape 1: Définissez la sous-procédure pouvant contenir vos macros.

Code:

 Sub sqrt_Example2 () End Sub

Étape 2: Nous devons définir deux nouvelles variables sous forme d'entier. Un pour stocker la valeur pour laquelle nous voulons une racine carrée. Une autre variable serait de stocker le résultat de la racine carrée après avoir appliqué la fonction SQR.

Code:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer End Sub

Étape 3: attribuez une valeur de 87 à la variable square_num à l'aide de l'opérateur d'affectation ('='). C'est le nombre pour lequel nous voulions capturer la valeur de la racine carrée.

Code:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 End Sub

Étape 4: utilisez la fonction SQR et l'opérateur d'affectation pour affecter la valeur de la racine carrée à la variable square_root . Utilisez square_num comme argument sous la fonction SQR (le nombre pour lequel nous voulions la valeur de racine carrée).

Code:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 square_root = Sqr (square_num) End Sub

Étape 5: utilisez la propriété MsgBox pour afficher la valeur de la racine carrée sous la forme d'un message qui s'affiche dès que vous exécutez le code.

Code:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 square_root = Sqr (square_num) MsgBox "La racine carrée pour un nombre donné est:" & square_root End Sub

Étape 6: Exécutez ce code en appuyant sur le bouton F5 ou Exécuter qui est placé sur le ruban le plus haut de VBE.

Étape 7: Voir la sortie dans une boîte de message comme indiqué ci-dessous:

Cependant, ce n'est pas la valeur de racine carrée réelle pour le numéro 87. C'est la valeur de racine carrée pour le numéro 81. Pourquoi dans le monde VBA donne une sortie incorrecte pour la fonction SQR?

Eh bien, il n'y a rien de mal avec VBA. Si quelque chose ne va pas, c'est idéal avec notre code.

Puisque nous avons défini les variables comme des entiers, nous limitons le VBA pour ne donner que les racines carrées de ces nombres qui sont des nombres entiers carrés (Ex. 4, 9, 16, 25, etc.). Si un nombre n'est pas un carré entier, la fonction VBA SQR au lieu de lancer une erreur, elle donne une valeur de racine carrée pour un nombre qui est proche du nombre actuel. Ici, 87 a 81 comme nombre carré le plus proche. Par conséquent, vous obtenez la sortie 9.

Étape 8: Voyons ce qui se passe lorsque nous modifions le code en définissant la variable square_root comme Double au lieu de Entier.

Code:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Double square_num = 87 square_root = Sqr (square_num) MsgBox "La racine carrée pour le nombre donné est:" & square_root End Sub

Étape 9: Vous verrez que le système peut maintenant capturer la valeur réelle de la racine carrée pour le nombre 87.

Choses dont il faut se rappeler

  • Si vous fournissez un nombre négatif comme argument sous la fonction VBA SQR, il générera une erreur d'exécution «5» . Puisqu'il n'est pas possible d'avoir un nombre avec des valeurs carrées négatives.
  • Si vous avez un nombre négatif, assurez-vous de le convertir en une entité positive à l'aide de la fonction ABS. Vous pouvez également vérifier si le nombre est positif ou non à l'aide de la fonction SGN sous VBA.
  • Si vous mettez zéro comme argument sous la fonction VBA SQR, vous obtiendrez la valeur de racine carrée à zéro.

Articles recommandés

Ceci est un guide de VBA Square Root. Nous discutons ici comment utiliser la fonction racine carrée dans Excel VBA ainsi que des exemples pratiques et un modèle Excel téléchargeable. Vous pouvez également consulter nos autres articles suggérés -

  1. Instructions IF VBA | Modèles Excel
  2. Comment utiliser la fonction de tri Excel VBA?
  3. Boucle VBA While (Exemples avec modèle Excel)
  4. Qu'est-ce que VBA Counter (exemples)?

Catégorie:

VBA