Определить сумму отрицательных элементов каждой строки - VBA

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

Взять матрицу M x N. Определить сумму отрицательных элементов каждой строки и поместить на место первого элемента соответствующей строки. Вывести результирующую матрицу рядом с исходной. M=4, N=6 в exel

Решение задачи: «Определить сумму отрицательных элементов каждой строки»

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

                            Option Explicit
 
Sub DanDeL1oN()
   Dim i, j, tmp
   Sheets(1).Cells.ClearContents
   For i = 1 To 4    'Цикл обработки строк
      tmp = 0        'обнуляем переменную, используемую для памяти
      For j = 1 To 6 'Цикл обработки столбцов
         Cells(i + 3, j + 3) = CInt(Rnd * 20 - Rnd * 20) ' Устанавливаем случайное число в очередную ячейку (i - строки, j - столбцы)
         If Cells(i + 3, j + 3).Value < 0 Then tmp = tmp + Cells(i + 3, j + 3) ' Если это число отрицательное, то суммируем его
      Next
      If tmp <> 0 Then Cells(i + 3, 4) = tmp '  выставляем сумму отрицательных в перый столбец на данной строке!
   Next
   ' Радуемся! =)
End Sub
                        