Excel VBA質問箱 IV

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

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


71036 / 76738 ←次へ | 前へ→

【10203】Re:オートフィルタで抽出した値の指定
回答  とまと  - 04/1/11(日) 23:48 -

引用なし
パスワード
   こんばんは
下記のようなレイアウトだとして
以下のようなコードでどうでしょうか?

  A   B
1果物   数量
2ミカン  3
3りんご  4
4ミカン  2
5とまと  6
6ミカン  1

Sub 平均()
Dim c As Range
Dim m As Long

 With Range("a1").CurrentRegion
     .AutoFilter 1, "ミカン"
    Set c = .Columns(2).SpecialCells(xlCellTypeVisible)
    MsgBox "ミカンの平均は" & Application.Average(c)
 End With

End Sub

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 お礼

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