MS Excel

Téma: Makra prumer

Zaslal/a Slavajz 4.3.2010 9:49

Dobrý den, řeším pro vás asi(doufam) jednoduchý problém.
V Excelu 07, mám ve sloupci "D" spoustu čísel a z neho potrebuju kazdych 48 cisel zpruměrovat a výsledek zapsat do bunky vedle posledniho 48 cisla(sloupec E). Snažím se to dělat přes VBA,ale nemužu se dobrat výsledku, přikladam moje pokusy, které jsem poskládal pomoci google, ale dokupy to nejsem schopnej dát tak za jakoukoliv radu předem díky
PS: i=3 protože mi čisla začinaj az od řádku 3.

---------------------pokus1
Sub prumer()
For i = 3 To 35018
Set myRange = Worksheets("15 min intervaly").Range(Cells(i - 48, "D"), Cells(i,"D"))
Next
For i = 3 To 35018
If ((i - 3) Mod 48 = 0) Then
Cells(i, "E") = Application.WorksheetFunction.average(myRange)
End If
Next
End Sub
---------------------pokus2
Sub prumer()
For i = 3 To 35018
If ((i - 3) Mod 48 = 0) Then
Cells(i, "E") = average(Cells(i - 48, "D"), Cells(i, "D"))
End If
Next
End Sub

Uzamčeno - nelze přidávat nové příspěvky.

Slavajz(4.3.2010 14:31)#001305

VYRESENOcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.