Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10138 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【23487】セルを複数選択する命令 kouka 05/3/24(木) 17:11 質問[未読]
【23489】Re:セルを複数選択する命令 IROC 05/3/24(木) 17:26 回答[未読]
【23500】Re:セルを複数選択する命令 kouka 05/3/24(木) 18:18 お礼[未読]
【23487】セルを複数選択する命令
質問  kouka  - 05/3/24(木) 17:11 -
引用なし
パスワード
   すみません、わからないので教えてください。

オートフィルタで例えばセルの数値が10以上とかに絞って、
その後、表示されたセルを選択して罫線で囲ったりしようとしたのですが、
オートフィルタで絞った後に数値の入っているセルが2個以上なら、
うまくいくのですけど
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
0または1つしかセルが無い場合、上記の命令だと一番下のセルまで選択してしまいます。
（D2:D65536が選択されてしまいます。）
0または1つしかセルが無い場合だけ、
別処理でそれぞれ選択するような命令を作りたいのですけど、わからないのです。。。
単純にactivecell.offset(1,0)で1つ下のセルを見て空白だったら・・・って、
処理をしようとすると非表示になっているセルを選択してしまいます。

すっごい初心者的な質問かもしれませんが、ご指導お願いします！
【23489】Re:セルを複数選択する命令
回答  IROC  - 05/3/24(木) 17:26 -
引用なし
パスワード
   If Range("A65536").End(Xlup).Row = 1　Then
　 msgbox "検索結果 0 件です"
End If
【23500】Re:セルを複数選択する命令
お礼  kouka  - 05/3/24(木) 18:18 -
引用なし
パスワード
   さっそくの回答ありがとうございます！

無事解決しました！！

今後もわからなくなったときはよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10138 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free