【VBA】テーブル化された表の条件の一致したセルの合計値を取得する

例えばテーブル「productテーブル」の
　・列「productName」が”りんご”の
　・列「price」の合計値
を取得できます！

VBAから
　・ワークシート関数「SumIf」
を使用することで、取得できます！

VBAコード
実行結果
参考

VBAコード

ここでは例として、
　・テーブル化された表「productテーブル」の
　・列「productName」が”りんご”の
　・列「price」の合計値
します。

Option Explicit

Sub sample()
    
    Dim productNameRange As Range
    Dim priceRange As Range
    Dim totalValue As Long
    
    With Worksheets("data").ListObjects("productテーブル")
        '列「productName」のセル範囲を取得
        Set productNameRange = .ListColumns("productName").Range
        '列「price」のセル範囲を取得
        Set priceRange = .ListColumns("price").Range
    End With
    
    '列「productName」が「りんご」の列「price」の合計値を取得
    totalValue = WorksheetFunction.SumIf(productNameRange, "りんご", priceRange)

    MsgBox ("りんごの合計値は『" & totalValue & "』です。")
    
End Sub

ワークシート関数「SumIf」の引数に以下を指定します。

第1引数・・・条件にしたいセル範囲
第2引数・・・条件の内容
第3引数・・・条件に一致した合計を取得したいセル範囲

実行結果

テーブル化された表の条件の一致したセルの合計値を取得できました。

参考

上記で使用したワークシート関数「SumIf」の詳細については、公式サイトをご確認ください。

SUMIF 関数

Excel の SUMIF 関数を使用して、指定した条件を満たす範囲内の値を合計します。たとえば、列に数値が含まれている場合は、5 より大きい値のみを合計できます。書式: SUMIF(範囲, 検索条件, )