Szia!
Erre nincsen képletes megoldás.
Makróval, felhasználói függvényt (UDF) lehet írni rá.
Csináltan egy gördülő összegző függvényt, amit egy kicsit módosítva a saját problémádat is megoldhatja.
Cserébe viszont makrós lesz a fájl.
Szóval a szóban forgó fájlba a makró szerkesztővel beszúrsz egy új modult, majd abba bemásolod ezt:
Function RunningTotalSheets(source As Range) As Double
Dim sourceAddress As String
Dim i As Integer
Dim result As Double
sourceAddress = source.Address
result = 0
For i = 1 To ActiveSheet.Index
result = result + WorksheetFunction.Sum(Worksheets(i).Range(sourceAddress))
Next i
RunningTotalSheets = result
End Function
Azt teszi, hogy a paraméterben kapott tartományt kummulatíve összesíti az elsőtől az aktuális lapig.
Próba:
1. Átmész Excelbe, megcsinálod an N darab lapot az „A” oszlopban az adatokkal.
2. Az első lapon egy üres cellába elkezded írni, hogy „=Runni…”, látod majd, hogy felajánlja az UDF nevét, TAB-al elfogadod, és az egy db paraméterbe bekattintod az egész „A” oszlopot
3. Átmész a 2. lapra és megcsinálod ugyanezt, vagy átmásolod az előző lapról a függvényes cellát. Itt már az első két lap összesenje jön az „A” oszlopokból, stb…
Ha az eredeti problémára szeretnél fókuszálni, és az elsőtől az aktuális-1-ig szeretnél Max értékeket összeadni, akkor:
1. A For ciklust Activesheet.Index-1-ig kell futtatni
2. Az összegző sorban a Sum-ot Max-ra változtatod
Vigyázz, hogy először csak a 2. lapon adható ki, nem tettem bele hibakezelést.
Remélem sikerül,
Imre
.
