【VBA入門】WorksheetsからWorksheetオブジェクトを取得し操作する

ExcelVBAでは、WorksheetsコレクションからWorksheetオブジェクトを取得し操作することができます。

この記事では、WorksheetsコレクションからWorksheetオブジェクトを取得し操作する方法についてWorksheetオブジェクトとは何かやWorksheetオブジェクトで出来ること一覧、Worksheetオブジェクトを取得する方法といった基本的な内容から

など応用的な使い方についても解説していきます。ワークシートをコピーする方法を使用することで書類の作成を効率的に行うことができます。例えば、全てのワークシートの元となるテンプレートを用意しておき、コピーして各ワークシートを作成するといった具合です。

それでは、例を交えながら詳しく解説していきます。

Worksheetオブジェクトとは

次の画像は、Excelで空のブックを作成したときのものです。(※説明のために、赤枠や青矢印を追加しています。)

画面下部に表示されているものがワークシートの見出しです。ワークシートの本体は、赤枠で囲まれた部分です。このワークシートをExcelVBAでは、Worksheetオブジェクトとして扱っています。

Worksheetsコレクションとの違いについて

先ほどはWorksheetオブジェクトについて説明しました。これによく似た用語でWorksheetsというものがあります。Excelではワークシートのほかにも、いろいろなシートがあります。

例えば、グラフシートや、マクロシート、ダイアログシートなどのシートがあります。

VBAでは、シートはSheetオブジェクトとして扱います。そのSheetオブジェクトの集合体がSheetsコレクションです。同じように、VBAではワークシートをWorksheetオブジェクトとして扱います。

そして、Worksheetオブジェクトの集合体がWorksheetsコレクションです。

Worksheetオブジェクトで出来ること一覧

Worksheetオブジェクトにはイベント、メソッド、プロパティがあります。これらを使ってVBAでワークシートを操作します。イベント、メソッド、プロパティについて解説し、それぞれ代表的なものを表にまとています。

イベント一覧

代表的なイベントについては下の表のとおりです。

名前	説明	使用例
Activate	ブック、ワークシート、グラフ シート、または埋め込みグラフがアクティブになったときに発生	Worksheet_Activate()
BeforeDelete	ワークシートが削除される前に発生	Worksheet_BeforeDelete()
BeforeDoubleClick	ワークシートをダブルクリックしたときに発生	Worksheet_BeforeDelete(ByVal Target As Range, Cancel As Boolean)
BeforeRightClick	ワークシートを右クリックしたときに発生	Worksheet_BeforeRightClick(TyVal Target As Range, Cancel As Boolean)
Calculate	ワークシートを再計算した後に Worksheet オブジェクトで発生	Worksheet_Calculate()
Change	ワークシートのセルが変更されたときに発生	Worksheet_Change(ByVal Target as Range)
Deactivate	グラフ、ワークシート、またはブックが非アクティブになったときに発生	Workbook_Deactivate()
SelectionChange	ワークシートで選択範囲を変更したときに発生	Worksheet_SelectionChange(ByVal Target As Range)

メソッド一覧

代表的なメソッドについては下の表のとおりです。

名前	説明	使用例
Activate	指定されたシートをアクティブに変更	Worksheets("Sheet1").Activate
Calculate	ワークシート内の指定されたセル範囲で計算を実行	Worksheets("Sheet1").Rows(2).Calculate
Copy	シートのコピー	Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")
Delete	シートの削除	Worksheets("Sheet1").Delete
Move	シートをブック内の他の場所へ移動	Worksheets("Sheet1").Move after:=Worksheets("Sheet3")
Paste	クリップボードの内容をシートに貼り付け	Worksheets("Sheet1").Paste Destination:=Worksheets("Sheet1").Range("D1:D5")
PasteSpecial	指定された形式で、クリップボードの内容をシートに貼り付け	Worksheets("Sheet1").PasteSpecial format:= _ "Microsoft Word 8.0 Document Object"
PrintOut	シートの印刷	Worksheets("Sheet1").PrintOut
PrintPreview	シートの印刷プレビューを表示	Worksheets("Sheet1").PrintPreview
Protect	ワークシートの保護、変更不可	Worksheets("Sheet1").Protect Password:="pass"
SaveAs	グラフまたはワークシートへの変更を別のファイルに保存	Worksheets("Sheet1").SaveAs Filename:="Sample.xls"
Select	シートを選択	Worksheets("Sheet2").Select Replace:=False
Unprotect	シートまたはブックの保護を解除	Worksheets("Sheet1").Unprotect Password:="pass"

プロパティ一覧

代表的なプロパティについては下の表のとおりです。

名前	説明	使用例
Cells	セルを表すRangeオブジェクトを返す	Worksheets("Sheet1").Cells(5, 3).Font.Size = 14
Columns	列を表すRangeオブジェクトを返す	Worksheets("Sheet1").Columns(2).ClearContents
Index	シートのインデックス番号	Worksheets("Sheet1").Index
Name	シート名	ActiveSheet.Name
Names	すべてのワークシートの名前を表すNamesコレクションを返す	Worksheets("Sheet1").Names.ColorIndex = 3
Range	セルまたはセル範囲を表すRangeオブジェクトを返す	Worksheets("Sheet1").Range("A1").Value
Rows	行を表すRangeオブジェクトを返す	Worksheets("Sheet1").Rows(3).Delete
Visible	シートの表示、非表示	Worksheets("Sheet1").Visible = False

Worksheetオブジェクトを取得する方法

Worksheetオブジェクトを取得するためには、を使用します。Worksheetsコレクションには、見出しの順番でWorksheetオブジェクトが割り当てられます。

例えば、次の画像のような場合はSheet2, Sheet1, Sheet3の順番になります。

WorksheetsコレクションからWorksheetオブジェクトを取得するためには、次のように2通りの方法があります。

インデックス番号を指定して取得する方法

インデックス番号を指定してWorksheetオブジェクトを取得するためには、次のように記述します。

Dim ws As Worksheet
Set ws = Worksheets(インデックス番号)

次のサンプルコードでは、1番目のワークシートを取得するためにSet ws = Worksheets(1)としています。

Sub Sample()
    Dim ws As Worksheet
    Set ws = Worksheets(1)
    MsgBox ws.Name + "を取得しました。"
End Sub

確認のため、取得したワークシートの名前をメッセージボックスで表示しています。WorksheetオブジェクトのNameプロパティを使ってワークシートの名前を取得しています。

実行結果の画像から1番目のワークシートを取得できていることが確認できます。

ワークシート名を指定して取得する方法

ワークシート名を指定してWorksheetオブジェクトを取得するためには、次のように記述します。

Dim ws As Worksheet
Set ws = Worksheets("ワークシート名")

次のサンプルコードでは、Sheet2を取得するためにSet ws = Worksheets("Sheet2")としています。

Sub Sample()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet2")
    MsgBox ws.Name + "を取得しました。"
End Sub

確認のため、取得したワークシートの名前をメッセージボックスで表示しています。WorksheetオブジェクトのNameプロパティを使ってワークシートの名前を取得しています。実行結果の画像からSheet2を取得できていることが確認できます。

Activateでワークシートを切り替える方法

アクティブシートを切り替えるにはActivateメソッドを使います。サンプルコードで確認しましょう。

Sub Sample()
    Dim msg As String
    
    Worksheets("Sheet1").Activate
    msg = "切り替え前は" & ActiveSheet.Name & vbCrLf
    
    Worksheets("Sheet2").Activate
    MsgBox msg & "切り替え後は" & ActiveSheet.Name
End Sub

WorksheetオブジェクトのActivateメソッドでアクティブシートを切り替えて、Nameプロパティでアクティブシートの名前を取得しています。

Copyメソッドでワークシートをコピーする方法

例えば、次のようなテンプレートとなるワークシートをコピーして書類を作成したいとします。

Copyメソッドでワークシートをコピーするためには、次のように記述します。

Sub Sample()
    Dim ws As Worksheet
    Set ws = Worksheets("テンプレート")
    ws.Copy Before:=ws
End Sub

テンプレートとなるワークシートを取得するためにSet ws = Worksheets("テンプレート")としています。このサンプルコードでは、ws.Copy Before:=wsとして、Beforeパラメータを指定することでテンプレートの前にコピーを作成しています。

同様にワークシートの後ろにコピーするためのAfterパラメータも用意されています。実行結果からワークシートがコピーされていることが確認できます。さらに、コピーしたシートの名前を変更したいことがあります。

そのような場合、次のサンプルコードのように記述します。

Sub Sample()
    Dim ws As Worksheet
    Set ws = Worksheets("テンプレート")
    ws.Copy Before:=ws
    ActiveSheet.Name = "シート"
End Sub

コピー時にアクティブシートが切り替わることを利用し、ActiveSheet.Name = "シート"とすることでコピーしたワークシートの名前を変更しています。ワークシートの名前を変更するために、WorksheetオブジェクトのNameプロパティで値を変更しています。

実行結果の画像からシート見出しに表示されるワークシートの名前が変更されていることを確認できます。

WorksheetFunctionについて

ApplicationオブジェクトのWorksheetFunctionプロパティというものがあります。Worksheetオブジェクトと呼び名が似ていますが、Worksheetオブジェクトを操作するものではありません。

WorksheetFunctionプロパティはVBAからワークシート関数を呼び出す場合に使います。ワークシート関数とはExcelシート上のセルに入力する関数のことです。

WorksheetFunctionプロパティの使い方については、こちらで詳しく解説していますので、ぜひ参考にしてください。

まとめ

いかがでしたか？今回は、ExcelVBAでWorksheetsからWorksheetオブジェクトを取得し、操作する方法について解説しました。テンプレートとなるワークシートをコピーして、新しいワークシートを作成することで書類作成を効率化することができますね。

もし、ExcelVBAでWorksheetsからWorksheetオブジェクトを取得し、操作することがあればこの記事を思い出してみてください！。