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

2023年9月8日

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

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

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

Worksheets.Countプロパティ

■　コード内を「Wクリック」で選択できます。

Sub サンプル4170()
&lt;pre&gt;&lt;code&gt;MsgBox Worksheets.Count, vbOKOnly&lt;/code&gt;&lt;/pre&gt;
End Sub

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

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

Sheets.Countプロパティ

■　コード内を「Wクリック」で選択できます。

Sub サンプル4175()
&lt;pre&gt;&lt;code&gt;MsgBox Sheets.Count, vbOKOnly&lt;/code&gt;&lt;/pre&gt;
End Sub

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

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

■　コード内を「Wクリック」で選択できます。

Sub サンプル4180()
Dim i As Integer
&lt;pre&gt;&lt;code&gt;For i = 1 To Worksheets.Count
    MsgBox &quot;シート名：&quot; &amp;amp; Worksheets(i).Name
Next i&lt;/code&gt;&lt;/pre&gt;
End Sub

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

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

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