|
すみません。質問ついでにもう一点教えてください。
下記の記述では、一度ThisWorkbook.設定を実行すると、それ以降マクロが
有効になりますよね。それを解除する方法はありませんか?
つまり、「ダブルクリックした場合にセルを黄色にする」ことと、「その
マクロを解除する」ことを任意のタイミングで切り替えたいのです。
すみませんが、ご教授お願いいたします。
>▼ichinose さん:
>朝早くから回答ありがとうございます。
>教えていただいた記述を使用することで、
>意図したとおりのことが出来ました。
>
>ありがとうございました。
>
>
>>▼kuni さん:
>>おはようございます。再送です
>>これはApplicationのイベントを利用します。
>>
>>>ダブルクリックをするとセルに色をつけたりする方法は知っているのですが、
>>>マクロが組み込まれていないファイルでも同様のことができないでしょうか?
>>>例えば、
>>> FileA:ダブルクリックでセルを黄色にするマクロを含む。
>>> FileB:マクロを含まない任意のファイル。
>>> としたときに、FileB中でダブルクリックをすることでFileB中の任意のセルを
>>> 黄色にする。ということをしたいと考えています。
>>> ただし、FileAとFileBは同時に開いています。
>>FileAというよりBookAの
>>
>>Thisworkbookのモジュールに
>>'=============================================================
>>Option Explicit
>>Private WithEvents app As Application
>>Sub 設定()
>> Set app = Application
>>End Sub
>>'========================================================================
>>Private Sub app_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
>> MsgBox Sh.Parent.Name & "の" & Sh.Name & "の" & Target.Address & "でダブルクリックされました"
>>End Sub
>>
>>として、一度だけ
>>ThisWorkbook.設定を実行後、FileBというよりBookBの適当なセルにて
>>ダブルクリックしてみてください。
>>
>>勿論、BookAの任意のセルでもダブルクリックしてみてください。
>>
>>イベントが発生します。
|
|