複数のダブルクリックイベントを同一シートで

質問

以前　質問して回答をいただいたシートで他のダブルクリックイベントを記述したいのですが・・・
単独だと　できるようですが　複数できるようにしたいのですが

エクセル2010です。

＞http://okwave.jp/qa/q7230128.html

A1：N1　のセルをダブルクリックしたら　色が黄色　また　ダブルクリックしたら　色なし

教えをうけたマクロコードが　以下です。
ダブルクリックイベント　その１

Private Sub worksheet_beforedoubleclick(ByVal Target As Excel.Range, cancel As Boolean)
If Application.Intersect(Target, Range("A1:N1")) Is Nothing Then Exit Sub
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.Color = vbYellow
Else
Target.Interior.ColorIndex = xlNone
End If
cancel = True
End Sub

ダブルクリックイベントその２

J8:J9,L8:L9,N8:N9,P8:P9,R8:R9,T8:T9,V8:V9,J29:J30,L29:L30,N29:N30,P29:P30,R29:R30

上の　セルをダブルクリックしたら　現在時刻を表示したい

記述コードは　以下です。

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

If Intersect(Target, Range("J8:J9,L8:L9,N8:N9,P8:P9,R8:R9,T8:T9,V8:V9,J29:J30,L29:L30,N29:N30,P29:P30,R29:R30")) Is Nothing Then Exit Sub

If ActiveCell = "" Then
ActiveCell = Time
Cancel = True
End If

End Sub

2つのコードをうまくまとめたいのですが　知識不足でとまどっております。
詳しいかた、アドバイスお願いいたします。

よろしくお願いします。

回答No.1

keithin · ベストアンサー

同じマクロは「１つしか使えません」ので，１つのそのマクロの中で「どこがＷクリックされたのか」を調べて，作業を仕分けます。

private sub Worksheet_BeforeDoubleclick(ByVal Target as excel.range, Cancel as boolean)

’その１
If not Application.Intersect(Target, Range("A1:N1")) Is Nothing Then
　If Target.Interior.ColorIndex = xlNone Then
　　Target.Interior.Color = vbYellow
　Else
　　Target.Interior.ColorIndex = xlNone
　End If
　cancel = True
end if

’その２
if not application.intersect(target, range("J8:J9,L8:L9,N8:N9,P8:P9,R8:R9,T8:T9,V8:V9,J29:J30,L29:L30,N29:N30,P29:P30,R29:R30")) is nothing then
　if target = "" then
　　target = time
　　cancel = true
　end if
end if

end sub

お礼

keithinさん　いつもありがとうございます。

おもいどおりのものが、できました。

＞同じマクロは「１つしか使えません」ので，１つのそのマクロの中で「どこが　Ｗクリックされたのか」を調べて，作業を仕分けます。

高度な回答で　理解できるかどうか？自信が　ありませんが、いろいろ
検索したりして　理解につとめたいとおもいます。

いつも　すばやい、明確な回答ありがとうございます。