Excel VBA Setはオブジェクト変数にオブジェクトを代入するために使用

以下のようなシーンで利用されます。

・ワークシート、ワークブックの参照 現在のワークブックや特定のシートに対して操作する。

・範囲の参照、特定のセル範囲を参照して、その範囲内のデータにアクセスする。

・他のオブジェクトの参照 グラフ、ピボットテーブル、フォームコントロールなど、さまざまなExcelオブジェクトを操作する。

Option Explicit

Sub SetWorksheetExample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' ワークシートのA1セルに値を入力
    ws.Range("A1").Value = "Hello, World!"
End Sub

特定のセル範囲を参照する例

Option Explicit

Sub SetRangeExample()
    Dim rng As Range
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B10")
    
    ' 参照した範囲内のセルに値を入力
    rng.Value = "Sample Data"
End Sub

別のワークブックを開いて参照する例

Option Explicit

Sub SetWorkbookExample()
    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\Users\User\Desktop\DataCsv\Workbook.xlsx")
    
    ' ワークブックの特定のシートにアクセス
    wb.Sheets("Sheet1").Range("A1").Value = "Opened Workbook"
    
    ' ワークブックを閉じる
    wb.Close SaveChanges:=True
    Set wb = Nothing
End Sub

Option Explicit

Sub MultipleOperations()
    ThisWorkbook.Sheets("Sheet1").Range("A1:B2").Value = "Hello"
End Sub