Številke vsote v izboru -

Sešteje vsa števila v izbrani regiji in vsoto postavi v "A1"

Sub sum_selection () Dim celica kot obseg Dim sum As Double 'Iterate skozi vsako celico v izboru Za vsako celico v izboru' Dodajte vrednost spremenljivki sum sum = sum + cell.Value Naslednje celice Celice (1, 1) = sum End Pod