Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Možnosť Explicitná
' Deklarujte premennú rozsahu.
Dim Rng As Range
Inicializujte premennú rozsahu.
rng =rozsah("A1:A10")
Inicializácia premennej sumy.
Dim sum As Long
súčet =0
' Vypočítajte súčet hodnôt v rozsahu.
Pre každú bunku v rng
súčet =súčet + bunka
Ďalšia bunka
' Zobrazenie súčtu hodnôt v rozsahu.
Debug.Print "Súčet hodnôt v rozsahu A1:A10 je" &súčet
```