Программа считающая сумму значений ячейк в выделенном диапазоне циклом for next - VB

Формулировка задачи:

Здравствуйте, не могли бы подсказать как сделать программу данного вида, только с помощью цикла for next или в пример любого другого(кроме for each in selection):

Sub SummaMatrix()
Dim s As Single
Dim x As Range
s = 0
For Each x In Selection
s = s + x.Value
Next
MsgBox "Сумма чисел выделенной матрицы N на M равна" & Str(s)
End Sub

Решение задачи: «Программа считающая сумму значений ячейк в выделенном диапазоне циклом for next»

textual
                            Листинг программы 
                        

                            for i=1 to selection.rows.count
  for j=1 to selection.columns.count
    s=s+selection.cells(i,j).value
next j,i
                        

Оцени полезность:

15 голосов , оценка 4.2 из 5

Похожие ответы