Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Создайте макрос в 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), то они вообще могут располагаться в прямоугольнике - макрос универсальный. Числа могут быть целыми и/или вещественными.