Excelマクロでシートの存在を確認する

http://officetanaka.net/excel/vba/tips/tips10.htm

Excelマクロでシートの存在を確認する場合、具体的には以下のようなコードになります。

Sub Sample03()
Dim ws As Worksheet, flag As Boolean
For Each ws In Worksheets
If ws.Name = “合計” Then flag = True
Next ws
If flag = True Then
MsgBox “[合計]シートがあります”, vbInformation
Else
MsgBox “[合計]シートはありません”, vbInformation
End If
End Sub

 



コメントを残す

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください