2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #5803 ulrik19 tag ulrik19 #5802
    Új Válasz #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