Jdi na obsah Jdi na menu
 


Makra - součet na posledním řádku

6. 6. 2016

Makro pro součet na posledním řádku, přičemž počet řádku se může měnit. Makro je vhodné používat tam, kde počet řádků v sestavě je pokaždé jiný. V uvedeném příkladu jde o součet sloupce C. Makro zjistí počet záznamů a přičte 1. Na tomto místě bude součet od C1 do posledního řádku.

Pokud soubor obsahuje záhlaví stačí změnit C1 na C2. Makro je omezeno počtem řádků na 65 536 (limit starých Excelů) u novějšího Excelu lze změnit na 1048576.

 

Sub Soucet_posledni_radek()
'
' Součet na posledním řádku
'
' Klávesová zkratka: Ctrl+Shift+X

Dim radek As Long

radek = Range("C65536").End(xlUp).Row + 1

Cells(radek, 3).Formula = "=SUM(C1:C" & radek - 1 & ")"

End Sub

 

Komentáře

Přidat komentář

Přehled komentářů

Zatím nebyl vložen žádný komentář