【Excel VBA】プルダウンで選択した値によって表示行を変えて、合計値を出すには？

SUBTOTAL関数を使って、
例えばSUBTOTAL(9,H6:H500)で、
表示している範囲の合計値を表示させたいのですが、

以下の様な方法でB2セルの値に応じて特定行だけ表示させた場合だと非表示行も含めた合計値が表示されてしまいます。
Bにしても6行～28行の範囲の合計値になってくれません。

--------------------------------------------------
Select Case Cells(2, 2).Value
Case "A"
Rows("1:1000").Hidden = False

Case "B"
Rows("6:500").Hidden = True
Range("$6:$28").Rows.Hidden = False
--------------------------------------------------

具体的には、
2020年1月～2023年12月のレコードがあった時、
年で絞ったり月で絞った時、画面に表示している範囲の合計値にしたいです。

No.2 回答者： kigoshi 回答日時： 2023/12/07 16:18

何をどうしたいのかよく分からないご質問です。

ただひとつ言えるのはHiddenプロパティは表示させるかどうかだけであって、計算対象にするかしないか、とは無関係です。
見えていなくても関数の計算範囲にあれば、計算されます。

SUBTOTAL関数を使わなければならない理由があるのでしょうか。
普通にSUMIF関数でできるような気がしますが。

この回答へのお礼

何を、どうしたいのか、
分からなかったんですね？

ありがとうございました！

お礼日時：2023/12/07 16:45

No.1 回答者： goomania 回答日時： 2023/12/07 16:10

=SUBTOTAL(9,H6:H500)

を
=SUBTOTAL(109,H6:H500)
に替えればよいのでは?

この回答へのお礼

ありがとうございます。
109は表示、非表示まで対応する引数なんですね。
知りませんでした。勉強になりました！

お礼日時：2023/12/07 16:44