ExcelVBA ワークシートを変数に格納して扱うことで繰返し処理に使う方法

ExcelVBA  ワークシートを変数として扱うことで、繰り返し処理 や コードの可読性向上、実行速度の向上 などのメリットがあります。使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA ワークシートを変数に格納して扱う｜シーン

Excel VBA サンプルコード

Option Explicit

Sub シートを変数に設定()
    Dim ws As Worksheet
    
    ' "Sheet1" を変数 ws に格納
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' A1セルに値を入力
    ws.Range("A1").Value = "Hello, VBA!"
End Sub

シートのインデックスで変数に格納

標準モジュール

Option Explicit

Sub インデックスでシート指定()
    Dim ws As Worksheet
    
    ' 左から1番目のシートを指定
    Set ws = ThisWorkbook.Sheets(1)
    
    ' A1セルに値を入力
    ws.Range("A1").Value = "1番目のシート"
End Sub

複数のシートを変数に格納

標準モジュール

Option Explicit

Sub 複数のシートを変数に格納()
    Dim ws1 As Worksheet, ws2 As Worksheet
    
    ' Sheet1とSheet2を変数に格納
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' Sheet1のA1セルに"データ1"を入力
    ws1.Range("A1").Value = "データ1"
    
    ' Sheet2のB1セルに"データ2"を入力
    ws2.Range("B1").Value = "データ2"
End Sub

ループを使って複数シートを操作

標準モジュール

Option Explicit

Sub すべてのシートにタイトルを入力()
    Dim ws As Worksheet
    
    ' ワークブック内の全シートをループ
    For Each ws In ThisWorkbook.Sheets
        ws.Range("A1").Value = ws.Name & " のデータ"
    Next ws
End Sub

注意点

Excel VBAワークシートを変数に格納して扱う｜まとめ