Stránka 1 z 1

Jak udělat součet buněk ve VBA?

Napsal: 19 úno 2010 21:31
od atari
Ve VBA používám pro součty uvedený kód. (Ten mi dosadí do buňky L2 vzorec "=SUMA(L4:L65002)"). Jenže bych potřeboval místo té buňky L65002 dosadit proměnnou (Dim pocetradku As Integer), která mi určuje, kolik je obsazených řádků. Je možné toto nějak udělat?
A nebo by byla možná druhá varianta, provést součet řádků ve VBA a pak jen do buňky L2 dosadit výsledek.

Kód: Vybrat vše

Range("L2").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[65000]C)"

Samozřejmě bych uměl do cyklu FOR NEXT vzít buňku po buňce s posčítat. Jenže to pak při větších objemech dosti zpomaluje program. Chtěl bych nějaké elegantnější řešení.

Re: Jak udělat součet buněk ve VBA?  Vyřešeno

Napsal: 19 úno 2010 22:02
od navstevnik
Napr takhle:

Kód: Vybrat vše

Dim Blk As Range
Set Blk = ActiveSheet.Range("d3:d7")
Debug.Print WorksheetFunction.Sum(Blk)

pripadne muzes Blk definovat takto:

Kód: Vybrat vše

Set Blk = ActiveSheet.Range("d3")
Set Blk = Blk.Resize(PocRadku, 1)

Re: Jak udělat součet buněk ve VBA?

Napsal: 19 úno 2010 22:33
od atari
Díky moc. To je přesně ono.