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

• #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