pętlę, która będzie rozwiązywała zadanie optymalizacji wiele razy, startując z różnych punktów.
Sub skomplikowany_program() ''''stworzenie funkcji celu i wzoru na prostą ograniczającą''' Range("b1") = "cel" Range("b2").Formula = "=sin(" & Cells(2, 3).Address & ")+ 1/2*" & Cells(2, 3).Address Range("c1") = "x=" Range("a4") = "prosta" Range("b4").Formula = "=-0.7*" & Cells(2, 3).Address & "+10" ''''stworzenie formuły, która będzie wykorzystywana przez Solvera jak warunek ograniczający''' Range("a6") = "warunek" Range("b5").Formula = "=" & Range("b2").Address & "-" & Range("b4").Address Range("c5") = "<" Range("d5") = 0 ''''stworzenie "pierwszej" kolumny Tabeli Danych (a więc x=0, x=0.2, x=0.4 ... x=10)''' Cells(10, 1) = 0 For i = 1 To 50 Cells(i + 10, 1) = Cells(i + 9, 1) + 0.2 Next i ''''zmiana szerokości kolumny''' Columns(2).ColumnWidth = 12 ''''dodanie tekstu i formuły w nagłówku "drugiej" kolumny Tabeli Danych''' Range("b8") = "funkcja celu" Range("b9").Formula = "=" & Range("b2").Address ''''dodanie tekstu i formuły w nagłówku "trzeciej" kolumny Tabeli Danych''' Range("c8") = "prosta" Range("c9").Formula = "=" & Range("b4").Address ''''stworzenie Tabeli Danych na podstawie 3 kolumn''' Range(Cells(9, 1), Cells(60, 3)).Table columninput:=Range("c2") ''''stworzenie wykresu na podstawie Tabeli