ワークシート数を数えるマクロ

2024年6月15日

ワークブック内のシートを数えてメッセージボックスに表示します。

ワークシート以外のシート（グラフシートやダイアログシートなど）を含めて数えることもできます。

ワークシート数を数えるマクロ

■　Worksheets.Countプロパティ

　　■　コード内を「Wクリック」で選択できます。
[code] Sub サンプル4170() MsgBox Worksheets.Count, vbOKOnly End Sub [/code]

MsgBox Worksheets.Count, vbOKOnly
’ ワークシート数を数えて、メッセージボックスに表示します。

●マクロの実行結果
MsgBoxにワークシートの数が「３」と表示されます。

■　Sheets.Countプロパティ

　　■　コード内を「Wクリック」で選択できます。
[code] Sub サンプル4175() MsgBox Sheets.Count, vbOKOnly End Sub [/code]

●マクロの実行結果
ワークシート以外のものも含めたシート数を数えます。
MsgBoxにすべてのシート数が「４」と表示されます。

ワークシート名を順に表示するマクロ

　　■　コード内を「Wクリック」で選択できます。
[code] Sub サンプル4180() Dim i As Integer For i = 1 To Worksheets.Count MsgBox “シート名：” & Worksheets(i).Name Next i End Sub [/code]

Dim i As Integer
’ 変数 i を宣言します。

For i = 1 To Worksheets.Count
MsgBox “シート名：” & Worksheets(i).Name
Next i
’ ワークシートの名前を順に調べて、メッセージボックスへ表示します。

●マクロの実行結果
ワークシート名を順に表示します。

ワークシートをパスワードで保護するマクロについては次の記事が参考になります。
■関連記事■　ワークシートをパスワードで保護するマクロ

以上で「ワークシート数を数えるマクロ」の説明を終わります。