Suche nach dem Schnittpunkt der beiden Kurven ist ein Weg, um die Lösung auf einem System von Gleichungen zu finden. Excel kann ein System von Gleichungen in einer Grafik darzustellen. Der Schnittpunkt der beiden Kurven ist die Lösung des Gleichungssystems . Zwar gibt es keine eingebaute Funktion , um den Schnittpunkt der beiden Kurven in Excel berechnen , können Sie Visual Basic für Applikationen (VBA ), um die Lösung zu finden. Anleitung
1

Klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie dann auf " Visual Basic ", um den Visual Basic -Editor zu öffnen .
2

Klicken Sie auf " Einfügen" und dann klicken Sie auf " Module" , um ein leeres Modul-Fenster öffnen
3

Kopieren Sie den folgenden Code in das Modul-Fenster : . " Suchen Sie die Stelle , wo zwei Segmente intersect.Public Sub FindLineIntersection ( _ByVal x11 As Single , ByVal y11 As Single , _ByVal x12 As Single , ByVal y12 As Single , _ByVal x21 As Single , ByVal y21 As Single , _ByVal x22 As Single , ByVal y22 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 ) Dim dx1 Wie SingleDim dy1 Wie SingleDim dx2 Wie SingleDim dy2 Wie SingleDim t1 t2 Wie SingleDim Wie SingleDim Nenner As Single

' Holen Sie sich das Segmente parameters.dx1 = x12 - x11dy1 = y12 - y11dx2 = x22 - x21dy2 = y22 - y21

' für t1 und t2.On Error Resume Nextdenominator = Lösen ( dy1 * dx2 - dx1 * dy2 ) t1 = ( (x11 - x21 ) * dy2 + ( y21 - y11 ) * dx2 ) /_denominatorIf Err.Number <> 0 Then ' Die Linien sind parallel.inter_x = 1E +38 : inter_y = 1E +38 1E +38 = inter_x1 : inter_y1 = 1E +38 1E +38 = inter_x2 : inter_y2 = 1E +38 Ausfahrt SubEnd IFON Error GoTo 0t2 = (( x21 - x11) * dy1 + ( y11 - y21 ) * dx1 ) /_- Nenner

' finden der Punkt intersection.inter_x = x11 + dx1 * t1inter_y = y11 + dy1 * t1

' finden Sie die nächstgelegene Punkte auf der segments.If t1 < 0 = Thent1 0ElseIf t1 > 1 = Thent1 1End IFIF t2 < 0 = Thent2 0ElseIf t2 > 1 = Thent2 1End Ifinter_x1 = x11 + dx1 * t1inter_y1 = y11 + dy1 * t1inter_x2 = x21 + dx2 * t2inter_y2 = y21 + dy2 * t2End Sub
4

Press "F5" laufen die Routine.