Zanka izračunov

Pomoč pri delu z MS Excelom
Odgovori
Emol
Prispevkov: 36
Pridružen: To Mar 13, 2007 11:09 pm
Kraj: Hrastnik

Zanka izračunov

Odgovor Napisal/-a Emol »

V posamezni vrstici imam 5 numeričnih stolpcev. U zadnja dva stolpca se vpisujejo (programsko) rezultati izračunov. Ostali stolpci (celice) so naslovi spremenljivk, ki sodelujejo pri izračunu. Zdaj vprašanja:
Kako naj skozi For Next (ali kakšno drugo) zanko izpišem (v zadnja dva stolpca) rezultate v vseh vrsticah.
Nekaj takega kot:

Koda: Izberi vse

Dim stevec as integer
For stevec = 1 to število polnih vrstic
 CLO = Worksheets("Tabela rezultatov").Range("A&stevec")
 TA = Worksheets("Tabela rezultatov").Range("B&stevec")
  TR = Worksheets("Tabela rezultatov").Range("C&stevec")
...
...
 Rez1 = Worksheets("Tabela rezultatov").Range("D&stevec")
 Rez1 = Worksheets("Tabela rezultatov").Range("E&stevec")
Next stevec

Izračun rezultatov je kompleksen in ni ga možno izračunati z formulo.
Te zadeve so v accessu enostavne (imam že narejeno) toda "naročnik" zahteva Excel.
Hvala
Emol
Prispevkov: 36
Pridružen: To Mar 13, 2007 11:09 pm
Kraj: Hrastnik

Odgovor Napisal/-a Emol »

Urejeno :D

Koda: Izberi vse

Dim stevec as integer 
For stevec = 1 To InputBox("Vnesite število meritev")
 CLO = Worksheets("Tabela rezultatov").Cells(stevec, 1) 
 TA = Worksheets("Tabela rezultatov").Cells(stevec, 2) 
  TR = Worksheets("Tabela rezultatov").Cells(Stevec, 3) 
... 
... 
 Rez1 = Worksheets("Tabela rezultatov").Cells(Stevec, 4) 
 Rez1 = Worksheets("Tabela rezultatov").Cells(Stevec, 5) 
Next stevec 

Uporabil sem navadno zanko in sklicevanje po indexu namesto po naslovu celice.
Odgovori