Excel VBA質問箱 IV

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

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


71031 / 76734 ←次へ | 前へ→

【10204】Re:オートフィルタで抽出した値の指定
お礼  ビギナー E-MAIL  - 04/1/12(月) 0:49 -

引用なし
パスワード
   ▼とまと さん:

返信ありがとうございます。

SpecialCells(xlCellTypeVisible)

を使うと見えてるセルだけ選択できるんですね。
わかりました。

大変助かりました。ありがとうございました。
早速やってみます。

>こんばんは
>下記のようなレイアウトだとして
>以下のようなコードでどうでしょうか?
>
>  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
1 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 お礼

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