サイトについて      連絡先   検索

VBA シートが存在するか確認する

はじめに

Excel VBA のシートが存在するか確認する方法を紹介します。

Sheets か Worksheets をループして、シートが存在するか確認できます。

シートが存在するか確認する

VBA にはシートが存在するか確認するメソッドが用意されていないので、作成します。

Sheets をループして確認したいシートの名前があるかどうかで判定します。

' 指定した名前のシートが存在するか確認します。
Public Function ExistsWorksheet(ByVal name As String)

    Dim ws As Worksheet
    For Each ws In Sheets
        If ws.name = name Then
            ' 存在する
            ExistsWorksheet = True
            Exit Function
        End If
    Next
    
    ' 存在しない
    ExistsWorksheet = False
End Function

ExistsWorksheet が True なら存在します。False なら存在しません。

Dim b As Boolean
b = ExistsWorksheet("名前")
Debug.Print(b)

関連ページ