• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse