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

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

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

VBAコード

ここでは例として、
　・シート「data」上の
　・テーブル化された表「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」の詳細については、公式サイトをご確認ください。

SUMIF 関数

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

support.microsoft.com