ホーム > セルの操作 > Lesson1: セルの参照

セルの参照
セルの参照 セルの参照 Range
単一のセルあるいは、範囲を参照するには、Rangeを使います。
単一のセルを参照するには、
オブジェクト.Range(セル)

成績表
セル”D4”の点数をメッセージで表示します。
Sub セルの参照1_1()

  MsgBox Range("D4").Value

End Sub

実行すると、D4 の値が表示されました。
実行結果

セル範囲は
オブジェクト.Range(先頭セル,終端セル)

セル"D4"から"H7"の背景に色をつけます。
Sub セルの参照1_2()

  Range("D4", "H7").Select
  Selection.Interior.ColorIndex = 20

End Sub

実行結果2
2007年8月
セルの参照2 セルの参照 その2
Cellsを使うと単一のセルを参照することができます。
オブジェクト.Cells(行番号,列番号)

行番号は、行を上から数えた数。
列番号は、列を左から数えた数、あるいは列を表すアルファベットで。

プログラムを作ってみます。
セル”D4”の点数をメッセージで表示します。
Sub セルの参照2_1()

  MsgBox Cells(4, 4).Value

End Sub

実行結果は、
実行結果3
Cellsを使うと、セルを数値で指定できるので参照するセルを自由に変更できます。
Cellsを使って、国語の点数のところ(D4〜D7)の背景色を変えてみます。
Sub セルの参照2_2()

  Dim i As Integer
  For i = 4 To 7
    Cells(i, 4).Select
    Selection.Interior.ColorIndex = 35
  Next i

End Sub

実行結果4
2007年8月