【VBA】条件に合ったシートを検索する方法

本記事では「条件に合ったシートを検索をする」を解説していきます。

単純なので、VBA上でシート名を検索したいときなんかの参考程度にしてみてください。

条件に合ったシートを検索をする

ここで使うシート内容は下の通りです。

今回は「シート名が”〇〇〇〇_業績”である」という条件で検索してみます。

※上のシート内容では「〇〇〇〇_〇_業績」というのも混じっているので注意。

そして、シート名で対象のシートを検索するコードは下の通りです。

Sub sample1()

    Dim i As Long

    For i = 1 To Sheets.Count
        If Sheets(i).Name Like "####_業績" Then
            Debug.Print Sheets(i).Name
        End If
    Next i

End Sub

Sub sample1()

Dim i As Long

For i = 1 To Sheets.Count

If Sheets(i).Name Like "####_業績" Then

Debug.Print Sheets(i).Name

End If

Next i

End Sub

5行目のFOR文ではすべてのシートを検索範囲にしたいので「存在するシート分繰り返す」としています。

そして、重要な6行目のIF文の条件では”Like演算子”と”ワイルドカード”を使っています。

その条件は「もしも、対象のシート名が[数字四桁（####）_業績]だった場合」という意味になります。

参考記事：Like演算子の使い方【ワイルドカードであいまい検索】

ちなみに上のコードを実行すると下のような結果が得られます。

おまけシートを検索する際は大抵「シート名」で検索をかけます。

ですが、たまにシート内の特定のセル内容で検索をかけることもあります。

その時には上のコードでいう6行目のIF文の条件に「Sheets(i).Range(“”) = “”」といった感じにすると実現します。

〇おすすめのVBA参考書ランキング！

1位	2位	3位

Excel VBA 脱初心者のための集中講座	パーフェクトExcel VBA	ExcelVBA 実戦のための技術
初心者～中級者	中級者	初心者～中級者
【初心者が手に取るべき参考書】・「書籍＋動画」で圧倒的に理解しやすい入門書になっている。・丁寧で詳しい解説でボリューム感がある。	【より深い理解をしたい方にお勧めな参考書】・テーマに対して丁寧な解説・適度な深さで解説されている。・幅広くテーマを扱っていることから、基礎知識をあらかた網羅できる。	【入門書と一緒に買うべき参考書】・１つ１つのテーマを経験豊富なエンジニア視点で解説してくれている。・実践的で効果的なコードの書き方が理解できる。
【読んでみた一言】正直、入門書はコレ一冊でいいかも。あとは中級者用の参考書に進むべし。	【読んでみた一言】深く書かれているが、少々専門的に書かれていることから、読む前に数冊の入門書を読破したほうが良い。	【読んでみた一言】基礎知識を持っている人が次のレベルに達するきっかけを与えてくれる参考書である。
￥2,794円 amazonで確認!	￥3,608円 amazonで確認!	￥2,640円 amazonで確認!