Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71018 / 76734

←次へ　｜　前へ→


	【10217】Re:オートフィルタで抽出した値の指定

ビギナー

- 04/1/13(火) 0:15 -


	引用なし

	パスワード

▼Jカーターさん：
回答ありがとうございます。
subtotal関数、便利そうですね。
使ってマクロ作ってみます。
大変ありがとうございました。

>▼ビギナーさん：
>たとえばこんな表の場合で
>----------------------------------------
>'　　名前　数　　　　
>' 1　 1AA　 1
>' 2　 2AA　 2
>' 3　 3AA　 3
>' 4　 4AA　 4
>' 5　 1AA　 5
>' 6　 2AA　 6
>' 7　 3AA　 7
>' 8　 4AA　 8
>' 9　 1AA　 4
>'10　 2AA　 2
>
>=SUBTOTAL(1,B2:B10)
>としておけばフィルタをする度に計算結果が変わります。
>
>VBAなら
>-------------------------------------------------------------------
>Sub test()
>　　With Sheets(1)
>　　　　.AutoFilterMode = False
>　　　　.Cells(1).AutoFilter 1, "1AA"
>　　　　MsgBox WorksheetFunction.Subtotal(1, .AutoFilter.Range.Columns(2))
>　　End With
>End Sub
>-------------------------------------------------------------------
>Subtotal関数を「一般機能のヘルプ」で調べるとわかるの思いますが
>平均の他に
>Sum
>Count
>CountA
>などいろいろな関数と同機能を実現できます、ぜひ覚えてください。
>
>違ったらすいません。

1 hits

▼

【10200】オートフィルタで抽出した値の指定 ビギナー 04/1/11(日) 22:20