Кто нибудь может проверить правильность написания макроса для задачи ?
получение произведения 5 натуральных чисел?
Sub про ()
Dim i As Integer
i = 2
s = 1
Do While Cells(i, 1) <> ""
s = s * Cell(i, 1)
i = i + 1
Loop
Range("B1") = "Произведение чисел равно"
Range("C1") = s
End Sub
Проблема в том что расчет в Excel показывает что все верно, меняю цифры в таблице меняется общий результат, но когда в басике щелкаю "плей" выдает ошибку - Sub of Function not defined