excel 複数のセル範囲を指定したイベント

excelのVBAにて、ダブルクリック時のイベントを作成しております。

任意のセルをダブルクリックした時に、イベントが起こるようにしているのですが、
HPに載っていた方法を参考に


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)

If Intersect(Target, Range("Q24:U24")) Is Nothing Then Exit Sub

--以下、省略--

End Sub


このように作成してみました。

現在、範囲がQ24:U24でのイベントとなっておりますが、これが複数のセル範囲
（例えば、Q24:U24のほかに、O40:U40も範囲に含める）とした場合、上記の記載については
どのようにすればうまくいきますでしょうか？

よろしくお願いします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2012/05/03 09:54

こんんちは！

If Intersect(Target, Range("Q24:U24,O40:U40")) Is Nothing Then Exit Sub

のように「カンマ」で範囲を続けてみてください。m(_ _)m

この回答へのお礼

回答ありがとうございました。
無事解決しました。

お礼日時：2012/05/03 12:55