Excelのセルを利用した入出力
入力
- 構文:
- 変数 = Cells(行, 列).Value
R1C1参照形式でセル番号を指定します。
- 構文2:
- 変数 = セル範囲.Value
例
a = Cells(2, 1).Value ' セルA2の値を取得
a の値は3となります。
例2
a = Range("A2").Value ' セルA2の値を取得
出力
- 構文:
- Cells(行, 列).Value = 値
R1C1参照形式でセル番号を指定します。
- 構文2:
- セル範囲.Value = 値
例
Sub nyuryoku()
Dim a
a = Cells(2, 1).Value ' セルA2の値を取得
Cells(2, 2).Value = a * 2 ' セルB2に値を書き込む
End Sub
セルB2に6が書き込まれます。
例2
Sub nyuryoku()
Dim a
a = Range("A2").Value ' セルA2の値を取得
Range("B2").Value = a * 2 ' セルB2に値を書き込む
End Sub
プログラム例 － 四則演算
Sub Sisoku()
Dim a, b
a = Cells(2, 2).Value
b = Cells(2, 3).Value
Cells(2, 4).Value = a + b
a = Cells(3, 2).Value
b = Cells(3, 3).Value
Cells(3, 4).Value = a - b
a = Cells(4, 2).Value
b = Cells(4, 3).Value
Cells(4, 4).Value = a * b
a = Cells(5, 2).Value
b = Cells(5, 3).Value
Cells(5, 4).Value = a / b
End Sub
セルB2～B5の値とセルC2～C5の値による四則演算の結果がセルD2～D5書き込まれます。
