Hallo, alle zusammen!
Ich bin noch Anfänger und lerne VBA kennen.
Ich würde ganz gern die Rechnung des kürzesten Weg in einer Graphik mit VBA programmieren.
Ich soll eingeben, dass das Programm den ersten Wert f(1) >= 0 And f(1) = 0 And Sum(1) = 0 And Sum(4) = 0 And Sum(10) = 0 And f(1) = 0 And Sum(1) = 0 And Sum(5) = 0 And Sum(11) = 0 And f(1) = 0 And Sum(2) = 0 And Sum(6) = 0 And Sum(12) = 0 And f(1) = 0 And Sum(2) = 0 And Sum(7) = 0 And Sum(13) = 0 And f(1) = 0 And Sum(3) = 0 And Sum(8) = 0 And Sum(14) = 0 And f(1) = 0 And Sum(3) = 0 And Sum(9) = 0 And Sum(15) = 0 And f(1) = 0 And Sum(16) = 0 And Sum(19) = 0 And Sum(25) = 0 And f(1) = 0 And Sum(16) = 0 And Sum(20) = 0 And Sum(26) = 0 And f(1) = 0 And Sum(17) = 0 And Sum(21) = 0 And Sum(27) = 0 And f(1) = 0 And Sum(17) = 0 And Sum(22) = 0 And Sum(28) = 0 And f(1) = 0 And Sum(18) = 0 And Sum(23) = 0 And Sum(29) = 0 And f(1) = 0 And Sum(18) = 0 And Sum(24) = 0 And Sum(30) = 0 And f(1) = 0 And Sum(31) = 0 And Sum(34) = 0 And Sum(40) = 0 And f(1) = 0 And Sum(31) = 0 And Sum(35) = 0 And Sum(41) = 0 And f(1) = 0 And Sum(32) = 0 And Sum(36) = 0 And Sum(42) = 0 And f(1) = 0 And Sum(32) = 0 And Sum(37) = 0 And Sum(43) = 0 And f(1) = 0 And Sum(33) = 0 And Sum(38) = 0 And Sum(44) = 0 And f(1) = 0 And Sum(33) = 0 And Sum(39) = 0 And Sum(45) = 0 And f(1) = 0 And Sum(46) = 0 And Sum(49) = 0 And Sum(55) = 0 And f(1) = 0 And Sum(46) = 0 And Sum(50) = 0 And Sum(56) = 0 And f(1) = 0 And Sum(47) = 0 And Sum(51) = 0 And Sum(57) = 0 And f(1) = 0 And Sum(47) = 0 And Sum(52) = 0 And Sum(58) = 0 And f(1) = 0 And Sum(48) = 0 And Sum(53) = 0 And Sum(59) = 0 And f(1) = 0 And Sum(48) = 0 And Sum(54) = 0 And Sum(60) <= l) Then
Sum(60) = lsng(24)
End If
Es geht ja gar nicht mit diesen If-Anweisungen hintereinander. Wie kann ich das noch lösen?
Danach sollen alle Lösungen, also lsng(n) angeschaut werden und mit einander verglichen werden, so dass die minimale Lösung rausgefischt werden soll. Diese Funktion kann ich auch irgendwie nicht implementieren.
Kann mir jemand hiermit helfen? Komme irgendwie nicht auf die Lösung!:-(
|