VBAのSUMIFS関数について。

画像

Excel | Visual Basic29閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0

ThanksImg質問者からのお礼コメント

回答ありがとうございます。 以前の質問と合わせて、勉強になりました。

お礼日時:6/15 22:12

その他の回答(2件)

0

SUMIFS関数で集計するときはデータベース型の表になっていると簡単なんですが、今回は日付だけがクロス表になっているのでSUMIFS関数の集計が難しくなっています。日付を1列にするととても簡単ですね。 なので1列ずつ集計して足していきます。 Sub test() Dim i As Long, j As Long, Total As Double For j = 4 To Cells(2, Columns.Count).End(xlToLeft).Column If Cells(2, j) >= DateSerial(2020, 4, 1) And Cells(2, j) < DateSerial(2020, 5, 1) Then Total = Total + WorksheetFunction.SumIfs(Columns(j), Columns(2), "大阪", Columns(3), "リンゴ") End If Next MsgBox "4月-大阪-リンゴの合計は" & Format(Total, "#,##0") End Sub