Excel VBA質問箱 IV

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

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


71022 / 76738 ←次へ | 前へ→

【10217】Re:オートフィルタで抽出した値の指定
お礼  ビギナー E-MAIL  - 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
>などいろいろな関数と同機能を実現できます、ぜひ覚えてください。
>
>違ったらすいません。

0 hits

【10200】オートフィルタで抽出した値の指定 ビギナー 04/1/11(日) 22:20 質問
【10201】Re:オートフィルタで抽出した値の指定 Jカーター 04/1/11(日) 22:28 回答
【10202】Re:オートフィルタで抽出した値の指定 ビギナー 04/1/11(日) 23:40 質問
【10203】Re:オートフィルタで抽出した値の指定 とまと 04/1/11(日) 23:48 回答
【10204】Re:オートフィルタで抽出した値の指定 ビギナー 04/1/12(月) 0:49 お礼
【10207】Re:オートフィルタで抽出した値の指定 Jカーター 04/1/12(月) 9:21 回答
【10217】Re:オートフィルタで抽出した値の指定 ビギナー 04/1/13(火) 0:15 お礼

71022 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free