| |
▼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ですか...恥ずかしながら初めて知りました。
ヘルプを調べて、使ってみようと思います＾＾
|
|
yama
- 05/10/4(火) 18:17 -
