Excel VBA質問箱 IV

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

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


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

【43347】マクロが含まれていないファイルでマクロを実行したい kuni 06/10/10(火) 20:54 質問[未読]
【43352】Re:マクロが含まれていないファイルでマク... ichinose 06/10/11(水) 6:20 発言[未読]
【43354】Re:マクロが含まれていないファイルでマク... kuni 06/10/11(水) 10:22 お礼[未読]
【43358】Re:マクロが含まれていないファイルでマク... kuni 06/10/11(水) 13:53 質問[未読]
【43359】Re:マクロが含まれていないファイルでマク... Jaka 06/10/11(水) 16:02 発言[未読]

【43347】マクロが含まれていないファイルでマクロ...
質問  kuni  - 06/10/10(火) 20:54 -

引用なし
パスワード
   ダブルクリックをするとセルに色をつけたりする方法は知っているのですが、
マクロが組み込まれていないファイルでも同様のことができないでしょうか?
例えば、
 FileA:ダブルクリックでセルを黄色にするマクロを含む。
 FileB:マクロを含まない任意のファイル。
 としたときに、FileB中でダブルクリックをすることでFileB中の任意のセルを
 黄色にする。ということをしたいと考えています。
 ただし、FileAとFileBは同時に開いています。

【43352】Re:マクロが含まれていないファイルでマ...
発言  ichinose  - 06/10/11(水) 6:20 -

引用なし
パスワード
   ▼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の任意のセルでもダブルクリックしてみてください。

イベントが発生します。

【43354】Re:マクロが含まれていないファイルでマ...
お礼  kuni  - 06/10/11(水) 10:22 -

引用なし
パスワード
   ▼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の任意のセルでもダブルクリックしてみてください。
>
>イベントが発生します。

【43358】Re:マクロが含まれていないファイルでマ...
質問  kuni  - 06/10/11(水) 13:53 -

引用なし
パスワード
   すみません。質問ついでにもう一点教えてください。
下記の記述では、一度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の任意のセルでもダブルクリックしてみてください。
>>
>>イベントが発生します。

【43359】Re:マクロが含まれていないファイルでマ...
発言  Jaka  - 06/10/11(水) 16:02 -

引用なし
パスワード
   同じモジュールに書いて実行。

Sub 解除()
  Set app = Nothing
End Sub

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