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

• #17875 Delila_1 veterán elmouse #17874

  Új Válasz 2013-04-22 09:45:20 #17875

  Ú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 #17874 üzenetére

  Szívesen.

  A változóknak igyekszem olyan neveket adni, ami utal a tartalmukra, ez biztosan segít a megértésben.
  A változó végén lévő % jel azt jelenti, hogy -32768 és 32768 közötti egész számot fogadhat, a !-es végű törtet, jó nagy tartományban. A Long típusú változó is egész számokat fogad, szintén nagy tartományban.

• #17861 Delila_1 veterán elmouse #17852

  Új Válasz 2013-04-20 09:06:05 #17861

  Ú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 #17852 üzenetére

  Igaza Van Muttnak a hibakezelést illetően a 17853-as hozzászólásban. Pótoltam a hiányt.

  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
  If usor - 49 > 2 Then
  atlag! = WF.Average(Range(Cells(usor - 49, oszlop%), Cells(usor, oszlop%)))
  Cells(usor + 2, oszlop%) = atlag!
  Else
  Cells(usor + 2, oszlop%) = "Kevesebb, mint 50 tétel"
  End If
  Cells(usor + 2, oszlop%).Font.ColorIndex = 3
  Next
  End Sub

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

• #17692 Mutt senior tag elmouse #17657

  Új Válasz 2013-04-09 19:55:52 #17692

  Ú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 #17657 üzenetére

  Hi,

  ...hogyan lehet az utolsó 50-ből számolni, ha mindig máshol van ez az utolsó 50?

  m.zmrzlina tökéletes megoldása mellett itt egy másik is.
  =ÁTLAG(ELTOLÁS(A1;DARAB2(A:A)-1;0;-50))

  Ez az ELTOLÁS (OFFSET) függvényt használja, az A1 cellából indulva elmegyünk a végéig és onnan 50-et visszalépve létrehozzuk a tartományt amelyen az ÁTLAG függvény tud számolni.

  üdv.

• #17664 m.zmrzlina senior tag elmouse #17663

  Új Válasz 2013-04-08 15:08:43 #17664

  Ú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

  

  m.zmrzlina

  senior tag

  válasz elmouse #17663 üzenetére

  Nincs mit!

• #17661 m.zmrzlina senior tag elmouse #17657

  Új Válasz 2013-04-08 14:47:47 #17661

  Ú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

  

  m.zmrzlina

  senior tag

  válasz elmouse #17657 üzenetére

  Próbálkozz ezzel. (ha már DARAB2)

  =ÁTLAG(INDIREKT("A" & DARAB2(A:A)&":"&"A"&DARAB2(A:A)-49))

• #17660 Delila_1 veterán elmouse #17659

  Új Válasz 2013-04-08 14:27:24 #17660

  Ú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 #17659 üzenetére

  Várj, hátha egy vállalkozó szellemű fórumtag megoldja képlettel.

• #17658 Delila_1 veterán elmouse #17657

  Új Válasz 2013-04-08 13:41:52 #17658

  Ú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 #17657 üzenetére

  A makró a C1 cellába beírja a képletet, ami a mindenkori utolsó 50 tétel átlagát számolja ki.

  Sub utolso_50()
  Dim ucso%
  ucso% = Range("A" & Rows.Count).End(xlUp).Row
  Cells(1, "C") = "=AVERAGE(A" & ucso% - 49 & ":A" & ucso% & ")"
  End Sub

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