エクセルVBAでオブジェクト変数を使う方法 | マクロの基本と応用

「VBAのオブジェクト変数って何？？」
このように悩んだことはありませんか？

・オブジェクト変数ってなに？

・「Set」や「With」の違いってなんなの？

・最後に「Nothing」をするのはどういう意味？

今回は、VBAの「オブジェクト変数」について
解説します！

この記事では、「エクセルVBAのオブジェクト変数」の使い方について詳しく説明します。

オブジェクト変数を正しく使えば、コードがスッキリし、効率的にエクセル操作ができるようになります！

この記事では、オブジェクト変数の基本から、SetやWith、Nothingを使った実践的な方法まで、初心者にもわかりやすく解説します。
ぜひ最後までお読みください。

【　この記事の概要　】

この記事を見て「できるようになる」こと

この記事を読めば、以下のことができるようになります。

VBA変数の種類を完全解説！初心者が知るべき使い方と違い

VBAにおける変数は、データを一時的に記憶するための箱のようなものです。
プログラム内でデータを扱う際に、変数を使うことでデータを柔軟に操作できます。

VBAで使用される変数の基本についてもっと知りたい方は、以下の記事で詳しく解説しています。
こちらもぜひご覧ください。

あわせて読みたい

エクセルVBAで変数を使いこなす方法 | 変数の基本から実践まで 「VBAの勉強を始めたものの、変数の意味がよく分からない…」このように悩んだことはありませんか？ ・変数ってよく聞くが結局何なの？・変数で型を指定する理由が分から...

VBAにおける各変数の違い

VBAには、さまざまな種類の変数があります。
以下に代表的な変数を紹介します。

種類	説明
通常の変数	データを一時的に記憶するための箱。 スコープは宣言されたプロシージャ内のみ。
グローバル変数	プロジェクト全体で使用可能な変数。 モジュールの先頭で宣言され、すべてのプロシージャからアクセス可能。 大規模なプログラムでデータを共有するのに便利。
静的変数	プロシージャの間で値を保持する変数。 Staticキーワードを使用して宣言され、プロシージャが終了しても値が 保持される。 計算の状態を保持したい場合に使用。
オブジェクト変数	オブジェクトを参照するための変数。 Setステートメントを使用してオブジェクトを代入し、プロパティや メソッドにアクセス可能。 エクセルのワークシートやセルなどの操作に使用。 また使用後は、Nothingで解放が必要です。

今回の記事では、その中でも オブジェクト変数 について詳しく解説していきます。

VBAの「オブジェクト変数」宣言方法 | DimとSet、Nothingの使い方を詳しく解説

VBAでオブジェクト変数を宣言する際には、以下の2つのステートメントを使います。
この2つを組み合わせることで、エクセルのワークシートやセル範囲を効率よく操作できるようになります。

さらに、使い終わったオブジェクト変数を正しく解放するために、Nothingを使う方法も押さえておきましょう。

オブジェクト変数の基本構文

オブジェクト変数の基本構文は、以下の通りです。

【コード例】ワークシートをオブジェクト変数に設定する

以下は、ワークシートをオブジェクト変数に割り当てる具体例です。

Dim Ws As Worksheet
Set Ws = ThisWorkbook.Sheets("Sheet1")

'// Sheet1のセルA1に値を設定
Ws.Range("A1").Value = "Hello, World!"

このコードは、Dim Ws As Worksheetで変数Wsを宣言。
Set Ws = ThisWorkbook.Sheets("Sheet1")でシート「Sheet1」をWsに割り当てます。

また、1行で記述を行いたい場合、次のように「:」で区切ることで可能となります。

Dim Ws As Worksheet: Set Ws = ThisWorkbook.Sheets("Sheet1")

'// Sheet1のセルA1に値を設定
Ws.Range("A1").Value = "Hello, World!"

オブジェクト変数を解放するための「Nothing」の使い方

オブジェクト変数を使用した後は、Setステートメントを使ってNothingを代入することで、メモリを解放できます。
これにより、プログラムの動作を安定させ、メモリリーク（不要なメモリ消費）を防ぐことができます。

Nothingの基本構文

【コード例】Nothingを使ってオブジェクト変数を解放する

以下は、ワークシート型のオブジェクト変数を宣言し、操作後に解放する例です。

Sub オブジェクト変数の解放例()
    '// ワークシート型の変数を宣言
    Dim Ws As Worksheet
    '// Sheet1を参照するように設定
    Set Ws = ThisWorkbook.Sheets("Sheet1")
    
    '// セルA1に値を設定
    Ws.Range("A1").Value = "Hello, World!"
    
    '// 使用後に変数を解放
    Set Ws = Nothing
End Sub

なぜNothingが重要なのか？

より詳しい情報は、Microsoft公式 – オブジェクト変数の作成を参照してみてください。

VBAオブジェクト変数の「必要性」と「メリット」を徹底解説

オブジェクト変数は、エクセルのワークブックやシート、セルなどを効率的に操作するために欠かせません。
これを使うことで、コードの可読性が向上し、処理が簡潔化され、エラーも減らすことができます。

ここでは、オブジェクト変数を使う3つの主要なメリットと、具体的なコード例を紹介します。

1. コードの簡潔化と可読性の向上

オブジェクト変数を使うことで、同じオブジェクト（例: ワークシート）に繰り返しアクセスする際のコード量を大幅に削減できます。
その結果、コードがスッキリとし、保守性も高まります。

オブジェクト変数を使わない例

'// オブジェクト変数を使わない例
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "Hello"
ThisWorkbook.Sheets("Sheet1").Range("A2").Value = "World"

ThisWorkbook.Sheets("Sheet1")が毎回記載されており、冗長で可読性が低下しています。

オブジェクト変数を使った例

'// オブジェクト変数を使った例
Dim Ws As Worksheet  '// 1. ワークシート型の変数を宣言
Set Ws = ThisWorkbook.Sheets("Sheet1")  '// 2. シート1を変数に格納

Ws.Range("A1").Value = "Hello"  '// 3. セルA1に値を設定
Ws.Range("A2").Value = "World"  '// 4. セルA2に値を設定

ThisWorkbook.Sheets("Sheet1")を一度だけ記載すればよく、コードが簡潔で見やすくなります。

このように、オブジェクト変数を使うことで、複数のセルや範囲を効率的に操作可能です。

2. 処理速度の向上

オブジェクト変数を使うことで、同じオブジェクトに複数回アクセスする際の処理が効率化されます。特に、大量のデータや複雑な処理を扱う場合に効果が顕著です。

'// オブジェクト変数を使った例
Dim Rng As Range
Set Rng = ThisWorkbook.Sheets("Sheet1").Range("A1:A1000")

'// 範囲内の全てのセルに値を設定
Rng.Value = "Data"

オブジェクト変数を使用しない場合、毎回セル範囲にアクセスするたびに処理負荷がかかりますが、変数で管理すれば効率的です。

3. エラーの防止

長いオブジェクト参照を繰り返すと記述ミスの可能性が高まりますが、オブジェクト変数を使うことでそのリスクを軽減できます。

オブジェクト変数を使わない例

'// オブジェクト変数を使わない例
ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "Data"
ThisWorkbook.Sheets("Sheeet1").Range("A2").Value = "Error" ' ミスタイプ

オブジェクト変数を使った例

'// オブジェクト変数を使う例
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Sheets("Sheet1")

Ws.Range("A1").Value = "Data"
Ws.Range("A2").Value = "Correct"

このように、オブジェクト変数を使用することでミスタイプを防ぎ、エラーを減らせます。

どんなときにオブジェクト変数を使うべき？

このことから、以下のようなシナリオで、オブジェクト変数を使用するのが効果的です。

SetステートメントとWithステートメントの違いとは？

VBAでは、オブジェクトを扱う際に「Setステートメント」と「Withステートメント」を使用することが一般的です。
これらは似たような用途で使われますが、役割や使いどころが異なります。

SetステートメントとWithステートメントの違い、使い分けのポイント、そして具体的な活用例について解説します。

Withステートメントの特徴

Withステートメントは、特定のオブジェクトに対して複数のプロパティやメソッドを連続して操作する際に使用します。

Withステートメントについては、別の記事で詳しく解説を行っています。
是非合わせてご覧ください。

あわせて読みたい

VBA Withステートメントの使い方とSetの違い【入れ子・ループ解説】」 「特定のオブジェクトに対して、複数のプロパティやメソッドを簡潔に記述したいけど、どうやって書けばいいんだろう．．．」そんな疑問を持っていませんか？ ・任意のオ...

Withの基本構文

例: ワークシートのセルを連続して操作する

With ThisWorkbook.Sheets("Sheet1").Range("A1")
    .Value = "Hello, World!"
    .Font.Bold = True
    .Interior.Color = RGB(255, 255, 0)
End With

特徴

SetステートメントとWithステートメントの違いを比較

どちらを使うべき？使い分けのポイント

Setステートメントを使うべき場面

Withステートメントを使うべき場面

SetとWithの併用例

SetステートメントとWithステートメントを併用することで、それぞれの利点を活かした柔軟なコードを書くことができます。

例: シートとセルの操作

Dim Ws As Worksheet
Set Ws = ThisWorkbook.Sheets("Sheet1")

With Ws.Range("A1")
    .Value = "Hello, World!"
    .Font.Bold = True
    .Interior.Color = RGB(255, 255, 0)
End With

Set Ws = Nothing

オブジェクト変数を使用する際の注意ポイント

オブジェクト変数を使用するにあたって、下記の注意ポイントがあります。

1. オブジェクト変数の初期化

オブジェクト変数を使用する際は、必ず「Set ステートメント」を使ってオブジェクトを代入してください。
もしこれを忘れると、以下のようなエラーが発生します。

例: 初期化の例と解説

Dim Ws As Worksheet
'// 初期化しない場合
'// Ws.Range("A1").Value = "Test"  '// ← Setを使用しないとエラー発生

'// 正しい初期化
Set Ws = ThisWorkbook.Sheets("Sheet1")
Ws.Range("A1").Value = "Test" ' 正常に動作

初期化を忘れると、オブジェクト変数が「空」の状態で操作されようとするため、エラーになります。

2. オブジェクト変数の解放

オブジェクト変数を使い終わった後は、「Set 変数名 = Nothing」で明示的にメモリを解放することが推奨されます。
これにより、メモリリーク（不要なメモリの使用）を防ぎ、プログラムを安定して動作させることができます。

⇒ もう一度「オブジェクト変数を解放するための「Nothing」の使い方」を見る

例: 解放の例と解説

Dim Ws As Worksheet
Set Ws = ThisWorkbook.Sheets("Sheet1")

'// 使用後に変数を解放
Set Ws = Nothing

解放を怠ると、オブジェクトへの参照が残り続け、プログラムがメモリを無駄に使用する可能性があります。

3. 同名の変数に注意

同じスコープ内で、通常の変数とオブジェクト変数を同じ名前で宣言しないように注意してください。
これにより混乱が生じ、意図しない動作の原因となります。

例: 同名の変数の問題と回避策

Dim Count As Long
Dim Count As Worksheet  '// ← エラー: 名前が重複

'// 適切な例
Dim Counter As Long
Dim Ws As Worksheet

分かりやすい名前を付けることで、変数の役割を明確にし、コードの可読性を向上させましょう。

4. オブジェクトが存在しない場合のエラーハンドリング

ワークシートやワークブックなどをオブジェクト変数に代入する際、そのオブジェクトが存在しない場合にエラーが発生することがあります。
このような場合に備えて、「On Error ステートメント」を使用してエラーハンドリングを行い、プログラムが予期せぬ終了をしないようにしてください。

例: エラーハンドリングの例

Sub エラーハンドリング例()
    On Error Resume Next  '// エラー時にスキップ
    Dim Ws As Worksheet
    Set Ws = ThisWorkbook.Sheets("Sheet100")  '// 存在しないシートを参照
    
    If Ws Is Nothing Then
        MsgBox "シートが存在しません。", vbExclamation
    Else
        Ws.Range("A1").Value = "Hello"
    End If
    On Error GoTo 0  '// エラーハンドリングを解除
End Sub

If Ws Is Nothing Thenを使って、オブジェクト変数が正しく初期化されているかを確認しましょう。

オブジェクト変数の使用例

ここでは、具体的なコード例を通じてオブジェクト変数の使い方を紹介します。

以下に紹介する使用例は、すべてコピペしてすぐに実行できるコードです。
気になる例は、ぜひご覧いただき、実際に実行してみてください。

VBAの基礎から応用までを効率よくしっかり学習したい方には、UdemyのVBA講座もおすすめです。

特に自己学習で進める場合、ビデオや実践例があると理解が進みやすくなります。

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

使用例1: ワークブックをオブジェクト変数として開き、操作する

ブックをオブジェクト変数「Wb」として宣言し、処理を行う方法を紹介します。

コード例 | ワークブックをオブジェクト変数として開き操作

Sub ワークブックを開く()
    Dim Wb As Workbook
    Set Wb = Workbooks.Open("C:\パス\ファイル名.xlsx")
    
    '// ここでWbを使用して操作を行う (例:シート1のA1セルに値を設定)
    Wb.Sheets("Sheet1").Range("A1").Value = "Hello, World!"
    Wb.Close SaveChanges:=True

    Set Wb = Nothing  '// オブジェクト変数を解放する

End Sub

コードの動作概要

このコードで使用している機能

• Dim – Set (オブジェクト変数)
• Workbooks.Openメソッド (ワークブックを開く)
• Workbooks.Close (ワークブックを閉じる)

1行ずつコードを解説

総括・ポイント

このコードは、指定されたパスのブックを開き、「Sheet1」にあるセルA1に「Hello, World!」という値を設定し、保存して閉じます。

使用例2: ワークシートをオブジェクト変数として参照し、操作する

シートをオブジェクト変数「Ws」として宣言し、処理を行う方法を紹介します。

コード例 | ワークシートをオブジェクト変数として参照

Sub ワークシートを参照する()
    Dim Ws As Worksheet
    Set Ws = ThisWorkbook.Sheets("Sheet1")

    '// ここでWsを使用して操作を行う (例:セルA1に値を設定)
    Ws.Range("A1").Value = "Hello, World!"

    Set Ws = Nothing  '// オブジェクト変数を解放する

End Sub

コードの動作概要

このコードで使用している機能

• Dim – Set (オブジェクト変数)

1行ずつコードを解説

総括・ポイント

このコードは、現在のワークブック内の「Sheet1」をオブジェクト変数「ws」に格納し、セルA1に値を入力します。

使用例3: オブジェクト変数でセル範囲を操作する

オブジェクト変数でセル範囲「Rng」として宣言し、処理を行う方法を紹介します。

コード例 | オブジェクト変数でセル範囲を操作する

Sub セル範囲を操作する()
    Dim Rng As Range
    Set Rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B2")
    
    '// ここでRngを使用して操作を行う (例:範囲内のセルに値を設定)
    Rng.Value = "Test"

    Set Rng = Nothing  '// オブジェクト変数を解放する

End Sub

コードの動作概要

このコードで使用している機能

• Dim – Set (オブジェクト変数)

1行ずつコードを解説

総括・ポイント

このコードは、「Sheet1」のセル範囲A1からB2をオブジェクト変数「Rng」に格納し、その範囲に値を入力します。

この記事のまとめ

オブジェクト変数を理解し、効率的に使用することは、VBAプログラミングにおいて非常に重要です。

今回の記事を通して、オブジェクト変数の基本的な使い方や、その利点について学びました。それでは、記事の重要なポイントをもう一度おさらいしましょう。

ポイントのおさらい

さらに学ぶために

オブジェクト変数の基本を押さえた後は、グローバル変数や静的変数など、他の変数タイプにも目を向けてみてください。
それぞれが持つ特定の用途と利点を理解することで、VBAの操作がさらに効率的になります。

今回の記事を活用し、VBAプログラミングにおけるオブジェクト変数の使い方を身につけ、より効率的に業務をこなせるようになりましょう。