makro w excelu

May 05, 2009 Last reply: 17 years ago 1 Replies

Rate this thread:

Witam,

wklepa³em do arkusza formu³ki obliczaj±ce potrzebn± mi warto¶æ (gwarancjê zaspokojenia potrzeb u¿ytkownika przem.) Moim zadaniem jest teraz przeprowadzenie symulacji - s± dwie warto¶ci, ka¿da niezale¿na od drugiej (pojemno¶æ zbiornika i potrzeby u¿ytkownika przemys³owego), które mam podmieniaæ tzn. wpisuje min. pojemno¶æ u¿ytkownika, potem min. potrzebê, spisuje gwarancjê, podstawiam kolejn± potrzebê (wiêksz± o delta p od poprzedniej), spisuje gwarancjê a¿ do podstawienia max potrzeby. W tym momencie wpisuje kolejn± za³o¿on± pojemno¶æ zbiornika (powiêkszon± o delta V od poprzedniej) i "jadê" od nowa.

Od razu powiecie mi - stwórz odpowiedni± pêtlê w VBA. Niestety nie wiem jak zmusiæ excela, aby w kolejnych krokach wypisywa³ obliczone gwarancje w kolejnych komórkach arkusza kalkulacyjnego. Proszê o jak±¶ wskazówkê

Udalo mi sie rozwiazac problem samodzielnie:

Dim i, k, r, deltap, deltaVU, VU, P As Double deltaVU = Sheets("QDEK3").Range("R19") deltap = Sheets("QDEK3").Range("R13") Sheets("QDEK3").Range("S17").Copy Sheets("Arkusz1").Range("C5") Sheets("QDEK3").Range("S11").Copy Sheets("Arkusz1").Range("C6") VU = Sheets("Arkusz1").Range("C5") P = Sheets("Arkusz1").Range("C6") r = 1310 For i = 1 To 26 'to jest petla od pojemnosci zbiornika For k = 1 To 11 Sheets("Arkusz1").Range("C5").Copy Cells(r, 8) Sheets("Arkusz1").Range("C6").Copy Cells(r, 9) 'gwarancja czasowa Cells(r, 10) = Cells(6, 16).Value 'KIR Cells(r, 11) = Sheets("Arkusz1").Range("B16").Value 'KER Cells(r, 12) = Sheets("Arkusz1").Range("B22").Value 'KIZ Cells(r, 13) = Sheets("Arkusz1").Range("B31").Value 'KEZ Cells(r, 14) = Sheets("Arkusz1").Range("B32").Value P = Sheets("Arkusz1").Range("C6") P = P + deltap Sheets("Arkusz1").Range("C6").Select ActiveCell.FormulaR1C1 = P r = r + 1 Next k r = r + 1 VU = VU + deltaVU Sheets("Arkusz1").Range("C5").Select ActiveCell.FormulaR1C1 = VU Sheets("QDEK3").Range("S11").Copy Sheets("Arkusz1").Rang

makro w excelu

Join the Discussion

Didn't find your answer?