1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
Sub AddSelection () Затемните клетку как ряд Затемните SumValue как длиной Для каждой клетки в выборе SumValue = SumValue + клетка. Значение Затем MsgBox «сумма выбранных значений является следующим: » & SumValue Подводная лодка конца