【VBA】条件に一致する数値の合計値を取得する

VBAを使用して、例えば以下の表から
 ・佐藤さんの売上の合計値
を取得できます!

佐藤さんの売上の合計は「60」
佐藤さんの売上の合計は「60」


VBAから
 ・ワークシート関数「SUMIF」を使用することで
 ・条件に一致する数値の合計値を取得
できます!


PR

VBA

ここでは例として、シート「sample」の
 ・B列「名前」が「佐藤」となっている行の
 ・C列「売上」を合計
します。

佐藤さんの売上の合計は「60」
佐藤さんの売上の合計は「60」
Option Explicit

Sub sample()
    
    Dim total As Long
    
    '佐藤さんの売上を合計
    total = WorksheetFunction.SumIf(Range("B:B"), "佐藤", Range("C:C"))
    
    MsgBox ("佐藤さんの売上の合計値は『" & total & "』です。")
    
End Sub

「WorksheetFunctionオブジェクト」の「SumIf」メソッドにより、ワークシート関数「SumIf」を実行しています。

PR

実行結果

佐藤さんの売上の合計値を取得できました。

実行結果
実行結果
PR

参考

上記のVBAコードで使用した以下の詳細については、公式サイトをご確認ください。

●「WorksheetFunctionオブジェクト」の「SumIf」メソッド

タイトルとURLをコピーしました