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

• #5802 ulrik19 tag Delila_1 #5792

  Új Válasz 2009-12-03 23:29:20 #5802

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

  Én nem eseményhez kötném a lefutást, hanem így oldanám meg:

  Public Function SubTotal(xRow As Integer, xCol As Integer)
  Dim lap As Byte, Sum As Double
  
  Sum = 0
  For lap = 2 To Worksheets.Count
  Sum = Sum + Sheets(lap).Cells(xRow, xCol)
  Next
  
  SubTotal = Sum
  End Function

  Aztán az Összesítő sheet 3 megfelelő cellájába mehet ez a képlet (magyar excelnél a , helyett ; kell természetesen ):
  =SubTotal(154, 12)
  =SubTotal(155, 12)
  =SubTotal(156, 12)

  Vagyis ez egy összeadó függvény, ami a megadott sor- és oszlopszámú cellákat összeadja valamennyi munkalapon (kivéve az összesítőt). Jelen esetben L154-es, L155-ös és L156-os cellák összegét.

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