Excel VBA質問箱 IV

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

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


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

70745 / 76807

←次へ　｜　前へ→


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

rika - 04/2/2(月) 11:53 -


	引用なし

	パスワード

はじめまして。rikaと申します。いつも勉強させていただいています。
すでに過去レスにありましたらお許しください。（検索してみたのですが、見つからなくて・・・）

オートフィルターにて抽出後、マウスで選択してもらってその範囲をＶＢＡにて
取得しようと思い下記コードを書いているのですが、１つだけ選択したときに
うまく動作してくれません。２つ以上選択したときはうまくいきます。
すみませんが、どこが悪いのか教えていただければありがたいのですが・・・。
環境は、Win2000,WinXP　Excel2000です。

　　'エリア数を数える
　　cnt = Selection.SpecialCells(xlCellTypeVisible).Areas.Count

　　'### ↑このときに１つだけ選択したらcnt=6とか入ってしまいます。

　　i = 0
　　
　　'エリア数分、まわす
　　Do
　　　　'何行分選択されているか
　　　　cnt2 = Selection.SpecialCells(xlCellTypeVisible).Areas(cnt - i).Rows.Count
　　　　　　
　　　　'何行目を選択されているか
　　　　Rowcnt = Selection.SpecialCells(xlCellTypeVisible).Areas(cnt - i).Row
　　　　Colcnt = Selection.SpecialCells(xlCellTypeVisible).Areas(cnt - i).Column

　　　　i = i + 1
　　Loop Until i >= cnt

わかりにくい質問で恐縮ですが、どうぞよろしくお願いします。

0 hits

▼

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

≪