@634

VBA TIPS - シートの存在確認

Advertisement

シートの存在確認

ワークシートをオブジェクトとして使う時などに有効
Dim flg As Boolean    ' シートの存在有無フラグ
Dim cnt As Long       ' ループカウンタ

For cnt = 1 To ThisWorkbook.Worksheets.Count
    ' シートが見つかったらフラグ設定
    If ThisWorkbook.Worksheets(cnt).Name = "シート名" Then
        flg = True
    End If
Next
If flg = False Then
    'シートが見つからなかった場合の処理
End If

Advertisement

ショートカット

634
634ブログ
このカテゴリのトップページに戻る
Incubator(Pukiwiki)
634ラボ
   UIコレクションギャラリー
   ZO-3ジェネレーター

サイト検索


Y!ログール