Excel VBA質問箱 IV

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

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


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

71028 / 76734

←次へ　｜　前へ→


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

Jカーター - 04/1/12(月) 9:21 -


	引用なし

	パスワード

▼ビギナーさん：
たとえばこんな表の場合で
----------------------------------------
'　　名前　数　　　　
' 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
などいろいろな関数と同機能を実現できます、ぜひ覚えてください。

違ったらすいません。

0 hits

▼

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