[[20160121143334]]　『特定の文字を含むブックをアクティブ』（HAY）　ページの最後に飛ぶ

『特定の文字を含むブックをアクティブ』（HAY）

現在開いている（起動している）ファイルを調べて、ファイル名に「ダンス」という文字の含まれたブックをアクティブにしたいのですが、どのように記述したら良いですか？

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 こんな感じでどうですか？
 Sub Sample()
    Dim Wbk As Workbook
    For Each Wbk In Workbooks
        If InStr(Wbk.Name, "ダンス") Then Wbk.Activate
    Next
 End Sub
（ろっくん） 2016/01/21(木) 14:42

 一例です。(アップ後　ちょこっと変更）

 Sub Sample()
    Dim wb As Workbook

    For Each wb In Workbooks
        If wb.Name Like "*ダンス*" Then
            wb.Activate
            Exit For
        End If
    Next

    If wb Is Nothing Then MsgBox "ダンスを含んだファイル名のブックは開かれていません"

 End Sub

（β） 2016/01/21(木) 14:44

ろっくん様β様
ありがとうございます！！想像通りで感激ですm(__)m
（HAY） 2016/01/21(木) 15:53

コメント返信：

[ 一覧(最新更新順) ]

[[20160121143334]] 『特定の文字を含むブックをアクティブ』（HAY） ページの最後に飛ぶ

[[20160121143334]]　『特定の文字を含むブックをアクティブ』（HAY）　ページの最後に飛ぶ