OfficeType

VBA~WorksheetFunction.Productメソッド~Excel

VBAで指定した値を全て掛け算した値をを求めたい場合はWorksheetFunction.Productメソッドを使います。

書き方

WorksheetFunction.Product(数値1, [数値2], ...)

数値は1から30まで指定できます。

数値には範囲も指定できます。その場合は範囲内の全ての値を掛け算します。

例として下の画像において下のコードを実行するとセルE2にセルA1からC3の範囲内の値と、セルA3からセルC4の範囲内の値をすべて掛け算した値362880が表示されます。

image-01

Sub test1()

Range("E2") = WorksheetFunction.Product(Range("A1:C1"), Range("A3:C4"))

End Sub

image-02