シートが存在するかどうか調べる

せれ。 (2014年8月 3日 21:26) | コメント(0)

すべてのワークシートを表す Worksheets コレクションからひとつずつ Worksheet を取り出して名前を調べる。

次のサンプルでは、[合計]という名前のワークシートが存在するかどうかを調べます。

 

 

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

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

 

カテゴリ:

コメントする