【ExcelVBA】指定したシートのセルに値を入力 & 値の取得

こんなあなたにおすすめ

Excel VBAで指定したシートのセルに値を入力するには、Worksheetsを使います。

今回は、Worksheetsで指定したセルに値を入力する方法、値を取得する方法について解説します。

指定したシートのセルに値を入力する

指定したセルに値を入力する方法は、以下の2通りです。
(1) Worksheets(“シート名”).Range(“セル”).Value = 値
(2) Worksheets(インデックス番号).Range(“セル”).Value = 値

シート名で値を取得してみましょう。

Sub test1()
    
    Worksheets("Sheet1").Range("A1").Value = "シート1"    'Sheet1のA1セルに値を入力する
    
    Worksheets("Sheet2").Range("A1").Value = "シート2"    'Sheet2のA1セルに値を入力する

End Sub

インデックス番号で値を取得してみましょう。
(インデックス番号は、左のシートから1、2、・・・です。)

Sub test2()
    
    Worksheets(1).Range("A1").Value = "シート1"    'インデックス番号1のA1セルに値を入力する
    
    Worksheets(2).Range("A1").Value = "シート2"    'インデックス番号2のA1セルに値を入力する

End Sub

↓実行結果 Sheet1

↓実行結果 Sheet2

指定したシートのセルの値を取得する

指定したセルの値を取得する方法は、以下の2通りです。
(1) Worksheets(“シート名”).Range(“セル”)
(2) Worksheets(インデックス番号).Range(“セル”)

↓実行時のSheet1

↓実行時のSheet2

シート名で値を取得してみましょう。

Sub test3()

    Dim c As Range
    
    Set c = Worksheets("Sheet1").Range("A1")    'Sheet1のA1セルの値を取得する
    Debug.Print c    'Sheet1のA1セル
    
    Set c = Worksheets("Sheet2").Range("A1")    'Sheet2のA1セルの値を取得する
    Debug.Print c    'Sheet2のA1セル

End Sub

インデックス番号で値を取得してみましょう。
(インデックス番号は、左のシートから1、2、・・・です。)

Sub test4()

    Dim c As Range
    
    Set c = Worksheets(1).Range("A1")    'インデックス番号1のA1セルの値を取得する
    Debug.Print c    'Sheet1のA1セル

    Set c = Worksheets(2).Range("A1")    'インデックス番号2のA1セルの値を取得する
    Debug.Print c    'Sheet2のA1セル

End Sub

まとめ

ここまで、指定したシートのセルに値を入力する方法、セルの値を取得する方法について解説しました。
ぜひ使ってみてください。

Excelで作業効率をアップしたい方は、下記の記事もご参照ください。
>>Excelのショートカット一覧 覚えて作業効率アップ!!
>>Excelで覚えておくべき関数 作業効率アップ間違いなし

【Excelについて学びたい方】
Excel 最強の教科書[完全版]

【Excel VBAについて学びたい方】
Excel VBA 脱初心者のための集中講座