Macro d'équation quadratique sur Excel : 3 étapes

2024 Auteur: John Day | [email protected]. Dernière modifié: 2024-01-30 09:11

vous pouvez facilement résoudre une équation quadratique en accédant simplement à la macro d'exécution de macros. Je suis un nouveau membre et j'ai vraiment besoin de tout type de commentaires que vous pouvez donner. Profitez de ne pas utiliser de papier pour résoudre ces équations !

Étape 1: Configurer les choses

ouvrir Excel n'importe quelle année est correct (préféré 03 c'est ce que j'ai utilisé pour faire cette macro). Si vous utilisez Excel 07, il sera visible et il y aura une petite boîte qui dit macro. Cliquez sur l'icône et allez à enregistrer la macro, une fenêtre apparaîtra, elle configurera le nom et les descriptions de la macro. Après cela, cliquez à nouveau sur l'icône de la macro et une autre fenêtre apparaîtra, il devrait y avoir dans la fenêtre le nom de la macro (le nom par défaut sera Macro1)

Étape 2: faire la macro

Bon maintenant vous allez éditer sur la fenêtre qui est apparue, elle devrait être sur le côté droit en troisième vers le bas. Lorsque vous appuyez sur le bouton d'édition, une toute nouvelle fenêtre apparaît, appelée éditeur visuel de base. Il devrait y avoir une barre d'outils et tout comme n'importe quelle fenêtre, mais dans la fenêtre, il devrait y avoir une grande zone grise avec une fenêtre appelée Module1 (Code). À l'intérieur du Module1, cliquez au fur et à mesure que vous alliez taper dessus et copiez-collez-le dessus (assurez-vous de tout supprimer avant de le faire dans la zone Module1.)Sub QuadraticFormula() Dim a As Long Dim b As Long Dim c En tant qu'invite Long MsgBox:="ax^{2 + bx + c = 0", _} Title:="Résoudre un polynôme quadratique de la forme:" a = Application. InputBox(prompt:="Entrez la valeur du coefficient 'a'", Tapez:=1) b = Application. InputBox(prompt:="Entrez la valeur du coefficient 'b'", Tapez:=1) c = Application. InputBox(prompt:="Entrez la valeur du coefficient 'c'", Tapez:=1) Si a = 0 Then MsgBox "L'équation n'est pas quadratique" Else If ((b * b) - (4 * a * c)) >= 0 Then MsgBox ((-b + (Sqr((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr((b * b) - (4 * a * c)))) / (2 * a)) Else MsgBox "Pas de solution réelle - Imaginaire" End If End IfEnd Sub

Étape 3: Terminer

Lorsque cette fenêtre contient tout ce que je vous ai dit de copier et coller, fermez l'éditeur Visual Basic. Enfin, allez dans les macros de la vue macro puis allez exécuter sur le côté droit la première. Il devrait y avoir une fenêtre qui s'ouvre, cliquez sur OK puis une autre boîte apparaîtra qui sera la valeur de A dans l'équation puis une autre qui sera la valeur de B dans l'équation et puis une autre qui sera la valeur de C. Votre fait si vous avez un problème, dites-le-moi et laissez-moi un commentaire.