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

• #30350 Delila_1 veterán bsh #30347

  Új Válasz 2016-02-01 18:41:08 #30350

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

  Sub adatok()
  Balfelső = "$B$2": Végrehajtás Balfelső
  Balfelső = "$C$9": Végrehajtás Balfelső
  End Sub

  Ez hívja meg a Végrehajtás makrót, átadva a kezdő cella címét

  Sub Végrehajtás(Balfelső)
  sorok = 5: oszlopok = 4: osszeg = 0
  jobbalsó = Range(Balfelső).Offset(sorok - 1, oszlopok - 1).Address
  For Each cella In Range(Balfelső & ":" & jobbalsó)
  osszeg = osszeg + cella
  Next
  Range(jobbalsó).Offset(1) = osszeg
  End Sub

  A jobb alsó cella alá kiírattam a tartományok összegét.

• #30349 Delila_1 veterán bsh #30347

  Új Válasz 2016-02-01 18:00:10 #30349

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

  kezdet = "$C$9"
  Set terület = Range(kezdet).Offset(0, 0, sor - 1, oszlop - 1)

  Így próbáltam, de nem fogadja el. Munkalapon ez a C9-től a sor-1, oszlop-1 tartományra vonatkozik.

  Ott az =ofszet(C9,0,0,sor-1,oszlop-1) a terület.
  Például a =SZUM(OFSZET(B2;0;0;3;2)) képlet összegzi a B2:C3 tartományt.

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