Vba で sumproduct を使用する方法 (例付き)

VBA で SUMPRODUCT を使用するには、次の基本構文を使用できます。

 SubSumProduct ()
Range(" E2 ") = WorksheetFunction.SumProduct(Range(" B2:B11 "), Range(" C2:C11 "))
End Sub

この特定の例では、範囲B2:B11とC2:C11の値の積の合計を計算し、結果をセルE2に返します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA で SUMPRODUCT を使用する方法

食料品店でのさまざまな果物の販売に関する情報を含む次のデータセットがあるとします。

価格にユニット数を掛けてその合計を取ることで、店舗の総収益を計算したいとします。

これを行うには、VBA SumProductメソッドを使用できます。

 SubSumProduct ()
Range(" E2 ") = WorksheetFunction.SumProduct(Range(" B2:B11 "), Range(" C2:C11 "))
End Sub

このマクロを実行すると、次の出力が表示されます。

範囲B2:B11とC2:C11の間の値の積の合計は139です。

マクロで指定したように、この値はセルE2に表示されます。

2 つの範囲間の積の合計を手動で計算することで、これが正しいことを確認できます。

積の合計: (4*1) + (3*5) + (3*4) + (2*7) + (2*3) + (5*5) + (3*5) + (2*6) ) + (5*6) + (2*3) = 139 。

これは、VBA のSumProductメソッドによって計算された値に対応します。

注: VBA SumProductメソッドの完全なドキュメントはここにあります。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA：範囲内の値を追加する方法
VBA：範囲の平均値を計算する方法
VBA: 範囲内の行数をカウントする方法