Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1784 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【72038】End プロパテイのエラー発生 悩める老人 12/5/21(月) 16:05 質問[未読]
【72039】Re:End プロパテイのエラー発生 ドカ 12/5/21(月) 16:27 回答[未読]
【72041】Re:End プロパテイのエラー発生 UO3 12/5/21(月) 16:41 発言[未読]
【72042】Re:End プロパテイのエラー発生 悩める老人 12/5/21(月) 17:21 お礼[未読]
【72038】End プロパテイのエラー発生
質問  悩める老人  - 12/5/21(月) 16:05 -
引用なし
パスワード
   Worksheets("aa")のセルB3からB12の表でB3にタイトルがあります。
この表に対して下記　コードを実行するとエラーになります。
なおB4にデータを入力すると作動します。　
何故このようなことになるのでしょうかご教示かたよろしく願います。

Public Sub test()
　Worksheets("aa").Activate
　 Range("b3").End(xlDown).Offset(1).Select
End Sub
【72039】Re:End プロパテイのエラー発生
回答  ドカ  - 12/5/21(月) 16:27 -
引用なし
パスワード
   ▼悩める老人 さん：こんにちは

65536行が一番下の行だとすると、さらにその１つ下の行を選択していて、
それは無いので選択できないからエラーが出ると考えます。
【72041】Re:End プロパテイのエラー発生
発言  UO3  - 12/5/21(月) 16:41 -
引用なし
パスワード
   ▼悩める老人 さん：

既にドカさんからお答えが出ていますが、開始セルの下に値が何もないと
xlDownは最終行を取得してしまいます。
新規ブックで以下を動かして確認してください。

Sub Test()
　　Cells.Clear
　　Range("B3").Value = "ABC"
　　MsgBox Range("B3").End(xlDown).Row
End Sub
【72042】Re:End プロパテイのエラー発生
お礼  悩める老人  - 12/5/21(月) 17:21 -
引用なし
パスワード
   ▼ドカさん　UO3 さん：
早速のご教示ありがとうございました。お礼申し上げます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1784 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free