【MOS】【Microsoft Office Excel】【マクロ/VBA】ブック内の全てのワークシートの名前を確認するマクロ
- 2016/05/23 15:04
- For Eachステートメント
- ワークシート
- 2
ブック内の全てのワークシートの名前を取得し、任意の文字列と一致するかどうか確認するマクロは以下の通りです。
今回は、「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