Exel зависает при выполнении моего макроса

[jirtreck]

6. Написать макрос, вычисляющий сумму значений в матрице, пока не встретится отрицательное число. Использовать оператор цикла Do-While.

Sub МатрицаСуммаПокаОтриц()
Do While ActiveCell.Offset(j, i).Value >= 0
    For i = 0 To Selection.Columns.Count
       For j = 0 To Selection.Rows.Count
   col = col + ActiveCell.Offset(j, i).Value
    Next j
Next i
Loop
MsgBox col
End Sub

Один раз не завис и выдало то, что у меня ошибка связана с offset в строке с do while.



Из-за чего происходит моя ошибка и как её исправить?

[Hugo121]

И что будет если отрицательное не встретится?

[jirtreck]

Будет бесконечный цикл.

В выделяемых ячейках есть отрицательное, я не знаю в чем беда и как сделать правильно эту задачу, а мне надо сегодня уже сделать

[IgorGO]

Sub МатрицаСуммаПокаОтриц()
Do While True
  For i = 0 To Selection.Columns.Count
    For j = 0 To Selection.Rows.Count
      If ActiveCell.Offset(j, i).Value < 0 Then Exit Do
      col = col + ActiveCell.Offset(j, i).Value
    Next j
  Next i
Loop
MsgBox col
End Sub

[jirtreck]

Благодарю!

Сделал сам практически такой же код, вспомнив об exit, но считало вместе с отрицательным или опять зависало.

Не укажете в чем отличие между true и тем выражением, которое я написал, почему так как у меня не надо делать?
Можно считать, что я в бэйсике первый день

[IgorGO]

проверять нужно каждое значение во внутреннем цикле
а Ваш While проверит что правая нижняя ячейка >=0 и продолжить считать тоже самое еще раз, и еще, и еще... это любимое занятие компьютера считать что-нибудь

запустите Ваш вариант в пошаговом режиме только отметьте матрицу размером 1х2 (чтобы долго не втыкать пока индексы i и j не добегут до граничных значений) и... надеюсь, все сами увидите