|
Trouver l' intersection de deux courbes est un moyen de trouver la solution à un système d'équations . Excel peut tracer un système d'équations sur un graphique. Le point d'intersection des deux courbes est la solution du système d'équations . Bien qu'il n'y ait pas une fonction intégrée dans le calcul de l'intersection de deux courbes dans Excel , vous pouvez utiliser Visual Basic pour Applications ( VBA) pour trouver la solution. Instructions
1 Cliquez sur l'onglet " développeur" puis cliquez sur " Visual Basic " pour ouvrir l'éditeur Visual Basic .
2 Cliquez sur " Insérer" puis cliquez sur " Module " pour ouvrir une fenêtre de module vide
3 Copiez et collez le code suivant dans la fenêtre du module : . Trouver le point où deux segments intersect.Public FindLineIntersection Sub ( _ByVal x11 As Single , ByVal Y11 As Single , x12 _ByVal As Single , Y12 ByVal As Single , _ByVal x21 As Single , ByVal Y21 As Single , _ByVal x22 As Single , Y22 ByVal As Single , _ByRef inter_x As Single , ByRef inter_y As Single , _ByRef inter_x1 As Single , ByRef inter_y1 As Single , _ByRef inter_x2 As Single , ByRef inter_y2 As Single ) DX1 As SingleDim dy1 Comme SingleDim dx2 dy2 Comme SingleDim Comme SingleDim t1 t2 Comme SingleDim Comme SingleDim dénominateur Comme simples
|
