Excel VBA セルを指定して値を設定/取得するサンプル

Excel(エクセル)のVBAのセルを指定して値を設定/取得するサンプルです。

目次

1つのセルを指定して値を設定する

1つのセルを指定して値を設定するサンプルです。

セルの指定は、RangeまたはCellsで場所を指定してValueに設定します。
4行目は、Rangeでセルを指定して値を設定しています。
7行目は、Cells(行(数値)、列(数値))でセルを指定して値を設定しています。
10行目は、Cells(行(数値)、列(英字))でセルを指定して値を設定しています。

Sub test1()

    ' A1のセルに値をセット
    Range("a1").Value = "赤"
    
    ' B2のセルに値をセット
    Cells(2, 2).Value = "黄"
    
    ' C3のセルに値をセット
    Cells(3, "C").Value = "青"
    
End Sub

上記コードを実行すると、以下のようにセルに値が設定されます。

 

1つのセルを指定して値を取得する

1つのセルを指定して値を取得するサンプルです。

セルの取得は、RangeまたはCellsで場所を指定してValueで取得します。
4行目は、Rangeでセルを指定して値を取得しています。
7行目は、Cells(行(数値)、列(数値))でセルを指定して値を取得しています。
10行目は、Cells(行(数値)、列(英字))でセルを指定して値を取得しています。

Sub test1()

    ' A1のセルの値を取得
    MsgBox Range("a1").Value
    
    ' B2のセルの値を取得
    MsgBox Cells(2, 2).Value
    
    ' C3のセルの値を取得
    MsgBox Cells(3, "C").Value
    
End Sub

上記コードを実行すると、以下のようにセルから値を取得してメッセージボックスが表示されます。

 

セルを範囲で指定する

セルを範囲で指定して値を設定するサンプルです。

4行目は、Rangeで2つのセルをコロンで区切って指定しています。
7行目は、Rangeで2つのセルをカンマで区切って指定しています。

Sub test1()

    ' b2からc2のセル範囲を表す
    Range("b2:c2").Value = "test3"
    
    ' b4からc6のセル範囲を表す
    Range("b4", "c6").Value = "test4"
    
End Sub

上記コードを実行すると、以下のようにセルに値が設定されます。

 

別シートのセルを指定する

別シートのセルを指定して値を設定するサンプルです。

Rangeの前にSheets(シート名)を指定します。

Sub test1()

    ' sheet2のA1のセルに値をセット
    Sheets("sheet2").Range("a1").Value = "赤"
    
    ' sheet2のB2のセルに値をセット
    Sheets("sheet2").Cells(2, 2).Value = "黄"
    
    ' sheet2のC3のセルに値をセット
    Sheets("sheet2").Cells(3, "C").Value = "青"
    
End Sub

関連の記事

Excel VBAのIF文のサンプル
Excel VBAのSelect Case文のサンプル
Excel VBAのFor文のサンプル
Excel VBAのDo Loop文のサンプル
Excel VBAのFor Each文のサンプル
Excel VBAの変数の宣言を強制するサンプル
Excel VBAのデータ型
Excel VBA セルの値をテキストに出力するサンプル

△上に戻る