複数のダブルクリックイベントを同一シートで
以前 質問して回答をいただいたシートで他のダブルクリックイベントを記述したいのですが・・・
単独だと できるようですが 複数できるようにしたいのですが
エクセル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つのコードをうまくまとめたいのですが 知識不足でとまどっております。
詳しいかた、アドバイスお願いいたします。
よろしくお願いします。
お礼
非常に感謝いたします。 貴方のおかげで問題が解決いたしました。そして気がつかなかった自分も反省いたします。 ありがとうございました。