Excel VBAで複数のシートを一括操作する方法を学ぶことは、業務の効率化に大いに役立ちます。特に、シート名をオブジェクト名に置き換えて操作する方法を理解することで、より柔軟で保守性の高いコードを書くことができます。この記事では、シート名をオブジェクト名に変えて複数シートを操作する方法について解説します。
Excel VBAでシートをオブジェクト名で操作する基本
Excel VBAでは、シートを直接名前で指定して操作することができます。例えば、特定のシートを削除する場合、通常は以下のようにシート名を指定して削除します。
Sheets(Array("兵庫", "大阪", "東京", "福岡")).Deleteこのコードでは、指定したシート名のシートを一度に削除することができます。しかし、シート名ではなく、オブジェクト名を使って操作したい場合があります。オブジェクト名を使うことで、シート名が変更されても問題なくコードを動作させることができます。
オブジェクト名を使用したシートの操作
シートのオブジェクトを使ってシートを指定するには、シートオブジェクトを変数として定義し、それを使って操作します。例えば、シートのオブジェクトを変数に格納し、その変数を使ってシートを操作する方法です。
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("兵庫")
ws.Deleteこのように、`Set`キーワードを使ってシートオブジェクトを変数に格納し、シートを操作することができます。オブジェクト名を使うことで、コードがより柔軟になります。
複数のシートをオブジェクト名で一括操作する方法
複数のシートをオブジェクト名で一括操作するには、シートを一つずつオブジェクトに格納し、その後操作を行います。例えば、複数のシートを削除する場合は次のように書きます。
Dim ws As Worksheet
Dim sheetNames As Variant
sheetNames = Array("兵庫", "大阪", "東京", "福岡")
For i = LBound(sheetNames) To UBound(sheetNames)
Set ws = ThisWorkbook.Sheets(sheetNames(i))
ws.Delete
Next iこのコードでは、配列に格納したシート名を順番にオブジェクト名に変換し、シートを削除しています。`LBound`と`UBound`を使って配列の範囲を指定し、`For`ループで一括操作しています。
オブジェクト名を使用するメリット
オブジェクト名を使用する最大のメリットは、シート名が変更されてもコードを修正せずにそのまま使い続けられる点です。例えば、シート名が「兵庫」から「神戸」に変更されても、オブジェクト名を使ったコードでは影響を受けません。
また、オブジェクト名を使うことで、シートの特性（例: シートの保護状態、表示/非表示）にアクセスしたり、さらに高度な操作を行ったりすることも容易になります。
まとめ
Excel VBAでのシート操作は、シート名を直接指定する方法とオブジェクト名を使用する方法があります。シート名ではなくオブジェクト名を使うことで、コードの保守性が向上し、シート名が変更されても問題なく動作するコードを書くことができます。複数シートを一括で操作したい場合は、オブジェクト名を使って効率的に操作を行いましょう。
コメント