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

• #5803 ulrik19 tag ulrik19 #5802

  Új Válasz 2009-12-04 08:33:32 #5803

  Ú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

  

  ulrik19

  tag

  válasz ulrik19 #5802 üzenetére

  Ez pedig egy elegánsabb megoldás:
  'végigmegy az összes munkalapon, és amelyik nem a kijelölt terület munkalapja,
  'összeadja az azonos elhelyezkedésű cellák értékét
  Public Function SubTotal(cRange As Range)
  Dim lap As Worksheet, Sum As Double
  
  Sum = 0
  For Each lap In Worksheets
  If Not lap.Name = cRange.Worksheet.Name Then Sum = Sum + lap.Cells(cRange.Row, cRange.Column)
  Next
  
  SubTotal = Sum
  End Function

  Ennek használata pedig:
  =SubTotal(L154)

  Persze, lehet más cella is az argumentumban. Azt a cellát kell belerakni ebbe a képletbe, amiket szeretnénk az összes többi sheeten összegezni. Mivel cellahivatkozás, másolható máshová, tehát "átírja" a hivatkozást, mint bármilyen más függvény használatakor.

  (Bár a Sum = 0 sor nem lenne kötelező, javaslom, hogy minden hasonló helyzetben adjátok meg a kezdőértéket. Néha előfordulnak cifra dolgok ennek elhagyása esetén )

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