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

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

Excel VBA Setの予備知識

よくある質問

Setを使う理由

たとえば、人にあだ名をつける。

あなたの職場にこんな人がいるとします。営業部 東京本社 第1営業課 山田太郎さん

毎回フルネームで呼ぶ場合は、

これ、長くて面倒で、ミスりますね。

この問題を解消するため、あだ名をつけます。

あだ名をつけると、その後の呼び方は、

これで、短い簡単なのでミスらない。わかりやすいですね。

人にあだ名をつけるですが、これはExcelVBAで同じことが起きています。

あだ名をつけない（Setなし）場合

Worksheets("売上データ").Cells(1, 1).Value = "テスト"
Worksheets("売上データ").Cells(2, 1).Value = "テスト"
Worksheets("売上データ").Cells(3, 1).Value = "テスト"

あだ名をつける（Setあり）場合

Dim ws As Worksheet
Set ws = Worksheets("売上データ")

ws.Cells(1, 1).Value = "テスト"
ws.Cells(2, 1).Value = "テスト"
ws.Cells(3, 1).Value = "テスト"

1. Worksheets("売上データ")のあだ名（ws）をつける箱を準備（Dim ws As Worksheet）
2. あだの箱（ws）と正式名称（Worksheets("売上データ")）を対応付けさせる（Set ws = Worksheets("売上データ")）
3. その後の呼び方は、wsになる

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

Excel VBA Setのサンプルコード

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ワークシートを変数に格納して扱う｜まとめ