Создайте макрос в Excel, который вычисляет произведение чисел,

расположенных в выделенном диапазоне 5-и ячеек

Sub prod ()

Dim p As Double

p = 1

For Each x In Selection

p = p * x. Value

Next x

MsgBox "Произведение равно " + CStr (p)

End Sub

Замечание: Ячейки могут располагаться в строке или столбце. Если их будет четное количество (а не 5), то они вообще могут располагаться в прямоугольнике - макрос универсальный. Числа могут быть целыми и/или вещественными.