Excel VBA質問箱 IV

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

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


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

70672 / 76738

←次へ　｜　前へ→


	【10568】Re:オートフィルター後の選択範囲の取得

ichinose - 04/2/2(月) 12:48 -


	引用なし

	パスワード

rika さん、INAさん、Jakaさん、こんにちは。

>はじめまして。rikaと申します。いつも勉強させていただいています。
>すでに過去レスにありましたらお許しください。（検索してみたのですが、見つからなくて・・・）
>
>オートフィルターにて抽出後、マウスで選択してもらってその範囲をＶＢＡにて
>取得しようと思い下記コードを書いているのですが、１つだけ選択したときに
>うまく動作してくれません。２つ以上選択したときはうまくいきます。
>すみませんが、どこが悪いのか教えていただければありがたいのですが・・・。
>環境は、Win2000,WinXP　Excel2000です。
>
>
>　　'エリア数を数える
>　　cnt = Selection.SpecialCells(xlCellTypeVisible).Areas.Count
>
>　　'### ↑このときに１つだけ選択したらcnt=6とか入ってしまいます。
例えば、Range("a1").SpecialCells(xlCellTypeVisible).Areas.Count
みたいな場合ですよね？

　　　↑これ、Cells.SpecialCells(xlCellTypeVisible).Areas.Count
　　　と指定したときとほぼ同じになってしまいますよね？

ということは、

Selection.Countの値を見て、1の時とそうでないときの処理を分けなければ
ならないと思いますよ。

手動操作でも同じように単一セルの選択で「ジャンプ」---「セル選択」---「可視セル」
をおこなうと、非表示セルがないときは､単一セルを返しますが、
非表示セルが存在する場合は、シート全体から抽出してしまいます。

0 hits

▼

【10564】オートフィルター後の選択範囲の取得 rika 04/2/2(月) 11:53