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

1. Range と Cells

Range とは 範囲 という意味です。

1. Range("E4").Select　これは　Cells(4,5).Select と書き換えることができます。

2. Cellsは（行番号,列番号）で表記します。

3. Cellsは行と列が、数値で表示されるため、変数（後で説明）を利用することにより
   プログラムで自由に操作できます。

4. 自動登録ではCellsは記録されないので、使えるようになると便利です。
   
   ★サンプルファイル　2_001.xls シート名+αも見落としなく！
   
   サンプルファイルについて
   Excel97・2000で動作は確認していますが、ファイル使用の最終判断は、
   利用者に委ねますので、御了承の上、ご利用下さい。
   
   
   One Point アドバイス
   Excelはセルを選ばないことには、何も出来ないですよね！
   Excel VBAも、目的のセル（単体・複数・行・列）を選ぶことが、基本だと思います。
   
   記述例

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

   Sub A_01()
       Range("E4").Select
   End Sub

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

   Sub A_02()
       Cells(10, 5).Select   'E10を選択
   End Sub

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

   Sub A_03()
       Cells(5, "E").Select   'E5を選択
   End Sub

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

   Sub A_04()
       Cells.Select    '全てのセルを選択
   End Sub

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

   Sub PlusA001()
       Range("E5:F7").Select  'E5〜F７を選択
   End Sub

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

   Sub PlusA0011()
       Range(Cells(3, 5), Cells(10, 8)).Select  'E3〜H10を選択
   End Sub

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

   Sub PlusA0021()
       Range("E1:G3,F5:H7").Select  'E1〜G3  F5〜H7を選択
   End Sub

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

   Sub PlusA003()
       Rows("20:20").Select  '行番号20を選択
   End Sub

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

   Sub PlusA004()
       Rows("21:24").Select  '行番号21〜24を選択
   End Sub

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

   Sub PlusA005()
       Range("20:21,23:23,25:26").Select  '行番号20〜21 23 25〜26を選択
   End Sub

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

   Sub PlusA006()
       Columns("E:E").Select  'E列を選択
   End Sub

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

   Sub PlusA007()
       Columns("F:H").Select  'F〜H列を選択
   End Sub

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

   Sub PlusA008()
       Range("D:D,F:G,I:I").Select  'D  F〜G  I 列を選択
   End Sub

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

   なお、少々気が早いですが変数（暗黙の変数）を使った例です。
   
   Sub Sample1()
       myRow = 2
       Range("E" & myRow).Select
   End Sub
   

   Sub Sample2()
       myRow = 2
       myColumn = 5
       Cells(myRow, myColumn).Select
   End Sub

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

   さらに下記はE2からH5を選択します。

   
   Sub Sample3()
     myRow1 = 2
     myColumn1 = 5
     myRow2 = 5
     myColumn2 = 8
     Range(Cells(myRow1, myColumn1), Cells(myRow2, myColumn2)).Select
   End Sub

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

   Top