Mefisto...diabeł czy anioł?

Witam,
Mam pytanie do u¿ytkowników forum.
Mam makro napisane w VBA, wykorzystuj±ce funkcjê Szukaj Wyniku. W chwili obecnej dzia³a ono w pêtli, wypisuj±c do kolumny A warto¶æ sta³±, do kolumny B warto¶æ zmienian± (startuje z poziomu 0.0000001) i do kolumny C formu³ê. Formu³ê wprowadzam za pomoc± kodu, pobieraj±c te¿ dane z tablic (inne dla ka¿dego wiersza). Problem jest taki, ¿e program zaczyna niesamowicie zwalniaæ w kolejnych iteracjach. Dodam, ¿e wyniki, oraz parametry s± przechowywane w tablicach, ale chyba nie powinno to skutkowaæ a¿ takim spowolnieniem.
Bêdê wdziêczny za wskazówki. Umieszczam fragment kodu odpowiadaj±cy za szukaj wyniku.

Worksheets("Dyf").Range("A" & i).Value = avY(i)
Worksheets("Dyf").Range("B" & i).Value = 0.0000001
Worksheets("Dyf").Range("C" & i).Formula = "=ierfc(Wyniki!$C$7/(2*sqrt($B$" & i & "*" & avCzasdyfk(i) & ")))"
Worksheets("Dyf").Range("C" & i).GoalSeek goal:=Worksheets("Dyf").Range("A" & i).Value, changingcell:=Worksheets("Dyf").Range("B" & i)
                 
Funkcja ierfc jest funkcj± napisan± przeze mnie, korzystaj±c± z wbudowanej funkcji ERF.
Czy istnieje jaki¶ sposób na skorzystanie z szukaj wyniku (a moze solver?) bez konieczno¶ci wpisywania formu³y do komórki?

[ Dodano: 2010-07-10, 19:26 ]
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl