• 虹色ミツバチ
  • freoカスタマイズメモ、テンプレート・プラグイン配布/officeTIPS
検索プラグイン

> Entry >MOS>Microsoft Office Excel>マクロ/VBA> ブック内の全てのワークシートの名前を確認するマクロ

【MOS】【Microsoft Office Excel】【マクロ/VBA】ブック内の全てのワークシートの名前を確認するマクロ

ブック内の全てのワークシートの名前を取得し、任意の文字列と一致するかどうか確認するマクロは以下の通りです。
今回は、「test」というシートが存在するか確認します。

Sub Get_wsName()
'===========================================================
'   ブック内のワークシートの名前を確認するマクロ
'===========================================================
    Dim wsName As String
    wsName = "test"
    
    Dim ShOne As Worksheet
    Dim wsFlg As Boolean
    
    For Each ShOne In Worksheets
        If wsName = ShOne.Name Then
            wsFlg = True
        End If
    Next ShOne
    
    If wsFlg = True Then
        MsgBox (wsName & "シートは存在します。")
    Else
        MsgBox (wsName & "シートは存在しません。")
    End If

End Sub

 

ページ移動

関連記事

ユーティリティ

Twitter

記事検索

ページ上部へ