Excel VBA質問箱 IV

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

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


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

71037 / 76738

←次へ　｜　前へ→


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

ビギナー

- 04/1/11(日) 23:40 -


	引用なし

	パスワード

▼Jカーターさん：

返信ありがとうございます。
初心者なもので、全然VBAを理解しておりません。
教えてください。

>▼ビギナーさん：
>こんばんは。
>SubTotal関数で第一引数を１にしてはどうでしょう？

例えば、下記のような表の場合、1列について"r2"を抽出したとします。

　　1　 2　 3
A　r1　 55　66
B　r2　 33　55
C
D　r1　 55　44
E　r2　 99　33

その場合VBAの記述とすればどういうふうにするべきなのでしょうか。
2列と3列それぞれ平均値を出したいのですが。
オートフィルタをかけた後に、

range(A2:E2).activate
activecell.SubTotal(1)

とすればB行とE行が選択されると言うことでしょうか。

>VBAでもできますし
>あらかじめセルに数式を書いておいてもいいと思います。

あらかじめセルに数式を書く場合、
AVERAGE(A2:E2)となってしまい、フィルタ抽出値の選択ができないのですが、どうしたらいいでしょうか。

変なこと言ってましたらすいません。
御助言おねがいします。

0 hits

▼

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