|
▼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を実行後、新規ブックや読み込んだ別ブックの適当なシートのセルを
選択してみてください。
選択したセルアドレスを表示します。
|
|