セルの参照 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
2007年8月
セルの参照 その2
Cellsを使うと単一のセルを参照することができます。
オブジェクト.Cells(行番号,列番号)
行番号は、行を上から数えた数。
列番号は、列を左から数えた数、あるいは列を表すアルファベットで。
プログラムを作ってみます。
セル”D4”の点数をメッセージで表示します。
Sub セルの参照2_1()
MsgBox Cells(4, 4).Value
End Sub
実行結果は、
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
2007年8月