excel - 返回范围值乘积的简单 VBA 函数

Question

我希望该函数将一系列单元格作为参数并返回它们的乘积。让我们假设单元格的值如下:

A1=5 
A2=2 
A3=3 

让我们调用函数Multiply。 =Multiply(A1:A3) 将返回 30 (=5×2×3)。

这个代码是什么？我只是想熟悉语法，这会有很大帮助。

编辑:弄清楚了:

Function multiply(rng As Range)

    multiplied = 1

    For Each cell In rng
        multiplied = multiplied * cell.Value
    Next

    multiply = multiplied

End Function

Answer 1

您可以直接使用PRODUCT的VBA版本，即

MsgBox WorksheetFunction.Product([a1:a3])