★Home ★≪第二章 VBAからみたセル操作≫

8. End（ｘｌ…）

キーボード上のEndキーを押した後 矢印キーを押したときの操作に該当します。
Ctｒl + 矢印キーも同じです。

1. サンプルファイルで確認してもらうのが一目瞭然です。
   もし、シートの最終あるいは右端までセルが移動したときは、
   Ctrl + HomeでA1にセルがもどります。
   
   ★サンプルファイル 2_008.xls
   
   One Point アドバイス
   連続して入力してあるデータの最上・最終・左端・右端を選択するときは便利
   
   必見！
   サンプルプログラム中に
   Range("D8").CurrentRegion.Select　というのがありますが、
   CurrentRegionは、
   アクティブセルがデータベース的に入力されたセル内にあれば、
   データベースの範囲を全て取得します。
   サンプル中の 落とし穴準備1.2.3 で動作確認して下さい。
   
   
   記述例

   '----------------------------------------------------------------

   Sub A_01()
   ActiveCell.End(xlDown).Select
   End Sub

   '----------------------------------------------------------------

   Sub A_02()
   ActiveCell.End(xlUp).Select
   End Sub

   '----------------------------------------------------------------

   Sub A_03()
   ActiveCell.End(xlToRight).Select
   End Sub

   '----------------------------------------------------------------
   Sub A_04()
   ActiveCell.End(xlToLeft).Select
   End Sub

   '----------------------------------------------------------------

   Sub PlusA001()
   Range("D8", Range("D8").End(xlToRight).End(xlDown)).Select
   End Sub

   '----------------------------------------------------------------

   Top