Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6533 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【44708】アクティブになったブックの Private Sub Workbook_Activate() 起動させる... 山鳩 06/11/29(水) 16:55 質問[未読]
【44709】Re:アクティブになったブックの Private S... Jaka 06/11/29(水) 17:23 発言[未読]
【44713】Re:アクティブになったブックの Private S... 山鳩 06/11/29(水) 17:47 お礼[未読]
【44708】アクティブになったブックの Private Su...
質問  山鳩  - 06/11/29(水) 16:55 -
引用なし
パスワード
   複数のブックを立ち上げておき当該ブックがアクティブに成った時にマクロを起動させたいのですが

'当該ブックのThisWorkbook
Private Sub Workbook_Activate()
　　'------- Job --------
　　MsgBox "Workbook_Activate"
End Sub

他のブックの Ｘ またはファイルの終了で終了すると正常に起動しますが
他のブック中の終了マクロで終了すると起動しません

'他のブック中の終了マクロ
Sub QuitJob()
　　'------- Job --------
　　ThisWorkbook.Close False
End Sub

他のブックの終了マクロで正常に ThisWorkbook の
Private Sub Workbook_Activate() を起動する方法を教えて欲しいのですが
【44709】Re:アクティブになったブックの Private...
発言  Jaka  - 06/11/29(水) 17:23 -
引用なし
パスワード
   こんな風にしたらどうでしょうか。

Book1

Private Sub Workbook_Activate()
Call まくろ１
End Sub

標準モジュール
Sub まくろ１()
MsgBox ThisWorkbook.Name
End sub

Book2

Sub dmdm()
Application.Run ("Book1!マクロ1")
End Sub
【44713】Re:アクティブになったブックの Private...
お礼  山鳩  - 06/11/29(水) 17:47 -
引用なし
パスワード
   回答ありがとうございました。
私も一番最初に思いついた事項ではありましたが
複数のブックを開いている場合
次に開くのが当該ブックだとは決まらない事

　if ThisWorkbook.Name=xxx Then
で処理すればすむことではありますが

また、起動しそうなブック全てに記入するのは
どうかと思いまして、質問させて頂きました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6533 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free