Összegszámok a kiválasztásban -

Összegzi a kiválasztott régió összes számát, és az összeget "A1" -be helyezi

Sub sum_selection () Dim cell as Range Dim sum as Double 'Iterate through each cell in selection Minden egyes cella in Selection "Adja hozzá az értéket a változó összegéhez = összeg + cella. Érték Következő cella Cellák (1, 1) = összeg Vége Alatti