Excel VBA質問箱 IV

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

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


9086 / 13646 ツリー ←次へ | 前へ→

【29417】開いファイルに既存のマクロ(イベント)を? yama 05/10/4(火) 16:26 質問[未読]
【29427】Re:開いファイルに既存のマクロ(イベント)... ichinose 05/10/4(火) 17:42 発言[未読]
【29428】Re:開いファイルに既存のマクロ(イベント)... yama 05/10/4(火) 18:17 お礼[未読]

【29417】開いファイルに既存のマクロ(イベント)を...
質問  yama  - 05/10/4(火) 16:26 -

引用なし
パスワード
   はじめまして、質問です。
(Excel2000)

ワークシートのセルがクリックされたとき、
条件を満たしていればメッセージボックスを
表示するマクロを作りました。
(Worksheet_SelectionChangeに作成)

当然、このマクロを含むブック上で動くのですが、
他のブックやCSV形式ファイルをExcelで開いたときにも
有効にするにはどのような方法がありますでしょうか?

テンプレートにはして見ましたが、
これは、新しいブックに適用されるので
既存ファイルを開いた場合がダメでした。

できればこのマクロの適用/非適用を選択できると良いのですが
開かれる全てのファイルが対象でもいいかと思っています。

初歩的質問かもしれませんがご教授ください。
よろしくお願いします。

【29427】Re:開いファイルに既存のマクロ(イベント...
発言  ichinose  - 05/10/4(火) 17:42 -

引用なし
パスワード
   ▼yama さん:
こんばんは。

>はじめまして、質問です。
>(Excel2000)
>
>ワークシートのセルがクリックされたとき、
>条件を満たしていればメッセージボックスを
>表示するマクロを作りました。
>(Worksheet_SelectionChangeに作成)
>
>当然、このマクロを含むブック上で動くのですが、
>他のブックやCSV形式ファイルをExcelで開いたときにも
>有効にするにはどのような方法がありますでしょうか?
>
>テンプレートにはして見ましたが、
>これは、新しいブックに適用されるので
>既存ファイルを開いた場合がダメでした。
>
>できればこのマクロの適用/非適用を選択できると良いのですが
>開かれる全てのファイルが対象でもいいかと思っています。
>
>初歩的質問かもしれませんがご教授ください。
>よろしくお願いします。
Thisworkbookのモジュールに

'================================================================
Private WithEvents app As Application
'================================================================
Sub test()
  Set app = Application
End Sub
'================================================================
Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  MsgBox Target.Address(, , , True) & "を選択"
  
End Sub


上記のtestを実行後、新規ブックや読み込んだ別ブックの適当なシートのセルを
選択してみてください。

選択したセルアドレスを表示します。

【29428】Re:開いファイルに既存のマクロ(イベント...
お礼  yama  - 05/10/4(火) 18:17 -

引用なし
パスワード
   ▼ichinose さん:
>▼yama さん:
>こんばんは。
>
>>はじめまして、質問です。
>>(Excel2000)
>>
>>ワークシートのセルがクリックされたとき、
>>条件を満たしていればメッセージボックスを
>>表示するマクロを作りました。
>>(Worksheet_SelectionChangeに作成)
>>
>>当然、このマクロを含むブック上で動くのですが、
>>他のブックやCSV形式ファイルをExcelで開いたときにも
>>有効にするにはどのような方法がありますでしょうか?
>>
>>テンプレートにはして見ましたが、
>>これは、新しいブックに適用されるので
>>既存ファイルを開いた場合がダメでした。
>>
>>できればこのマクロの適用/非適用を選択できると良いのですが
>>開かれる全てのファイルが対象でもいいかと思っています。
>>
>>初歩的質問かもしれませんがご教授ください。
>>よろしくお願いします。
>Thisworkbookのモジュールに
>
>'================================================================
>Private WithEvents app As Application
>'================================================================
>Sub test()
>  Set app = Application
>End Sub
>'================================================================
>Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
>  MsgBox Target.Address(, , , True) & "を選択"
>  
>End Sub
>
>
>上記のtestを実行後、新規ブックや読み込んだ別ブックの適当なシートのセルを
>選択してみてください。
>
>選択したセルアドレスを表示します。

ichinoseさん、アドバイスありがとうございます。
WithEventsですか...恥ずかしながら初めて知りました。
ヘルプを調べて、使ってみようと思います^^

9086 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free