メニュー

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

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

2016/05/23 15:04|タグ:For Eachステートメントワークシートグッジョブ表示 0

ブック内の全てのワークシートの名前を取得し、任意の文字列と一致するかどうか確認するマクロは以下の通りです。
今回は、「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

 

ページ移動

関連エントリー

コメント

  • コメントはまだありません。

コメント登録

登録フォーム
名前
メールアドレス
URL
コメント
投稿キー(スパム対策に、投稿キー を半角で入力してください。)

ユーティリティ

新着コメント

Twitter

サイト内検索

ページ上部へ