Pozdrav
Radim u jednom programu napravljenom u excelu i sav proracun je tacan osim za 2 vrijednosti..a koliko god da gledam ne mogu da uocim gresku pa bih molila za pomoc..
naime..imam popr. presjek u obliku korita rijeke..
trapez sa nasipima
imam nivoe vode i trebala bih proracunati povrsinu proticajnu u zavisnosti od tih nivoa
program to odradi ok kako rekoh sem 2 vrijednosti kada se "zbuni" pa valjda ne prepozna da se korito nastavlja nasipima i prepolovi mi povrsinu za prvu netacnu vrijednost dok je za drugu malo umanji
znam da mi je objasnjenje sturo..rado bih postavila excel file ali ne znam kako
pa stavljam download file citavog dokumenta
http://www.2shared.com/file/61...fe434/cross_section_area1.html
inace..proracun je radjen sa slijedecim macro
Sub x()
Dim rng As Range
Columns("L:M").Clear
Range("L2:M2").Value = [{"Water level", "Flow area"}]
Columns("L:M").AutoFit
'Columns("I:J").Hidden = True optional
For Each rng In Range("Q3", Range("Q3").End(xlDown))
Range("J3") = rng
Cells(Rows.Count, "L").End(xlUp)(2) = rng
Cells(Rows.Count, "M").End(xlUp)(2) = Range("J4")
Next rng
End Sub
unaprijed zahvalna
Radim u jednom programu napravljenom u excelu i sav proracun je tacan osim za 2 vrijednosti..a koliko god da gledam ne mogu da uocim gresku pa bih molila za pomoc..
naime..imam popr. presjek u obliku korita rijeke..
trapez sa nasipima
imam nivoe vode i trebala bih proracunati povrsinu proticajnu u zavisnosti od tih nivoa
program to odradi ok kako rekoh sem 2 vrijednosti kada se "zbuni" pa valjda ne prepozna da se korito nastavlja nasipima i prepolovi mi povrsinu za prvu netacnu vrijednost dok je za drugu malo umanji
znam da mi je objasnjenje sturo..rado bih postavila excel file ali ne znam kako
pa stavljam download file citavog dokumentahttp://www.2shared.com/file/61...fe434/cross_section_area1.html
inace..proracun je radjen sa slijedecim macro
Citat:
Sub x()
Dim rng As Range
Columns("L:M").Clear
Range("L2:M2").Value = [{"Water level", "Flow area"}]
Columns("L:M").AutoFit
'Columns("I:J").Hidden = True optional
For Each rng In Range("Q3", Range("Q3").End(xlDown))
Range("J3") = rng
Cells(Rows.Count, "L").End(xlUp)(2) = rng
Cells(Rows.Count, "M").End(xlUp)(2) = Range("J4")
Next rng
End Sub
unaprijed zahvalna