• 虹色ミツバチ
  • 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

 

ページ移動

関連記事

ユーティリティ

新着コメント

2018/06/18|from:あつこ
同人誌在庫・売上管理表配布
2018/06/17|from:ミツ@32877
同人誌在庫・売上管理表配布
2018/06/17|from:あつこ
同人誌在庫・売上管理表配布
2018/03/26|from:コウ
エントリーカテゴリー表示プラグイン
2018/03/26|from:ミツ@32877
エントリーカテゴリー表示プラグイン

Twitter

記事検索

ページ上部へ