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 質問
【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 お礼

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