シートの検索・抽出方法を覚えよう!【VBA入門講座#18】

Sub シート検索()

'String型の変数を宣言します。
Dim 検索シート As String

'Worksheet型の変数を宣言します。
Dim シート As Worksheet

'"入力フォーム"シートをアクティブにします。
Sheets("入力フォーム").Select

'"検索シート"の変数にB2セルの文字を代入します。
検索シート = Range("B2").Value

'検索シートにシートの名前を1つずつ格納し、対象になるシートがなくなるまで、下記の処理を繰り返します。
For Each シート In Worksheets

’もし検索シートが見つかったら
If シート.Name = 検索シート Then

'検索シートで見つかったシートを選択します。
Worksheets(検索シート).Select

’(検索シートが見つかった場合)マクロ処理を抜けます。
Exit Sub

’If　処理を抜けます。
End If

'次のシート検索にうつる
Next

’変数(検索シート)が見つからなかった場合、下記のメッセージを表示させます。
MsgBox 検索シート & "シートは存在しません。"

’マクロを終了します。
End Sub

Sub シート名抽出()

'Worksheet型の変数を宣言します。
Dim mySheet As Worksheet

'Long型の変数を宣言します。
Dim i As Long

'iを2と設定します。行の設定(A1セルには"シート名"と入力されているので、2列目から格納していく)
i = 2

'”検索シート”にシートの名前を1つずつ格納し、シートがなくなるまで、下記の処理を繰り返します。
For Each mySheet In Worksheets

’"シート抽出"シートのA2セルから下方向のセルにシート名を順次格納していきます。
Sheets("シート抽出").Cells(i, 1).Value = mySheet.Name

'iに1を加算することにより、次に見つかったシート名を1行下(A3⇨A4⇨A5⇨・･・･に入力するようにします。
i = i + 1

’繰り返します。
Next

’シート名の抽出が終わったら、下記のメッセージを表示させます。
MsgBox ”シート名の抽出が完了しました。"

’マクロを終了します。
End Sub