人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAについて質問です。
2つのブックが開かれていたとします。その内、片方のブック名を「はてな」とします。「はてな」じゃない方のブックをアクティブにするというマクロを作ってください。

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:VBA はてな アクティブ エクセル マクロ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● llusall
●35ポイント

こちらでいかがでしょうか?

Option Explicit

Sub test2()

    Const WB_NAME = "はてな.xls"

    Dim wb As Workbook

    'すべてのワークブックを調べます。

    For Each wb In Workbooks

''        Debug.Print wb.Name

        If wb.Name <> WB_NAME Then

            'ワークブックの名前が指定の名前で無い場合は、アクティブ

            wb.Activate

        End If

    Next

End Sub

◎質問者からの返答

いつもご回答ありがとうございます。

完璧です。


2 ● tikirou
●35ポイント

作成してみました。

動作確認して見て下さい。

Sub Hatena()
 Dim wkbook As Workbook

 For Each wkbook In Workbooks
 
 If WBK.Name <> "はてな.xls" Then
 
 wkbook.Activate
 
 Exit For
 
 End If
 Next wkbook
 
End Sub

URLはダミーです。

http://www.yahoo.co.jp

◎質問者からの返答

ご回答ありがとうございます。

参考になりました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ