Új hozzászólás Aktív témák

• #17853 Mutt senior tag elmouse #17845

  Új Válasz 2013-04-19 19:25:32 #17853

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz elmouse #17845 üzenetére

  Hi,

  Makró nélküli változat (ha 50-él kevesebb érték van az oszlopban, akkor is műxik):
  =ÁTLAG(ELTOLÁS(A$1;DARAB2(A:A)-1;0;-MIN(50;DARAB2(A:A))))

  Még több hibakezeléssel pedig ez megy:
  =ÖSSZESÍT(1;6;ELTOLÁS(A$1;DARAB2(A:A)-1;0;-MIN(50;DARAB2(A:A))))

  Illetve m.zmrzlina függvénye is jó.

  üdv.

• #17851 Delila_1 veterán elmouse #17845

  Új Válasz 2013-04-19 17:36:36 #17851

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz elmouse #17845 üzenetére

  Sub atlag_50()
  Dim sor As Long, usor As Long, oszlop%, uoszlop%, atlag!
  Dim WF As WorksheetFunction
  Set WF = WorksheetFunction
  uoszlop% = Cells(1, Columns.Count).End(xlToLeft).Column
  
  For oszlop% = 1 To uoszlop%
  usor = Cells(1, oszlop%).End(xlDown).Row
  atlag! = WF.Average(Range(Cells(usor - 49, oszlop%), Cells(usor, oszlop%)))
  Cells(usor + 2, oszlop%) = atlag!
  Cells(usor + 2, oszlop%).Font.ColorIndex = 3
  Next
  End Sub

  Most a különböző hosszúságú oszlopoknál az utolsó érték alá 2 cellával írja be az átlagot piros színnel.
  Ha van egy fix sorod, ahol már biztosan nincs adat, akkor a Next előtti 2 sorban az usor+2 helyett ezt a sorszámot add meg, akkor az átlagok azonos sorban jelennek meg.

Új hozzászólás Aktív témák