Excel VBA質問箱 IV

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

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


70672 / 76738 ←次へ | 前へ→

【10568】Re:オートフィルター後の選択範囲の取得
発言  ichinose  - 04/2/2(月) 12:48 -

引用なし
パスワード
   rika さん、INAさん、Jakaさん、こんにちは。

>はじめまして。rikaと申します。いつも勉強させていただいています。
>すでに過去レスにありましたらお許しください。(検索してみたのですが、見つからなくて・・・)
>
>オートフィルターにて抽出後、マウスで選択してもらってその範囲をVBAにて
>取得しようと思い下記コードを書いているのですが、1つだけ選択したときに
>うまく動作してくれません。2つ以上選択したときはうまくいきます。
>すみませんが、どこが悪いのか教えていただければありがたいのですが・・・。
>環境は、Win2000,WinXP Excel2000です。
>
>
>  'エリア数を数える
>  cnt = Selection.SpecialCells(xlCellTypeVisible).Areas.Count
>
>  '### ↑このときに1つだけ選択したら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 質問
【10565】Re:オートフィルター後の選択範囲の取得 INA 04/2/2(月) 11:56 回答
【10567】Re:オートフィルター後の選択範囲の取得 Jaka 04/2/2(月) 12:26 回答
【10568】Re:オートフィルター後の選択範囲の取得 ichinose 04/2/2(月) 12:48 発言
【10571】Re:オートフィルター後の選択範囲の取得 rika 04/2/2(月) 14:33 お礼

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