プロが教えるわが家の防犯対策術!

いつもお世話になります。
WINDWS7 EXCELL2010 です。

下記の1 2のマクロを同じシート内にイベントプロシージャを二つ挿入したところ、
※1 ※2のような現象が起きました。

この現象を解決したくご指導を仰ぎたいです。
宜しくお願いします。

※1 エラー表示
コンパイルエラー:
名前が適切ではありません; Worksheet_BeforeDoubleClick
※2 下記の構文が青色に反転
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)




Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:A51")) Is Nothing Then Exit Sub
Cancel = True
Sheets(CStr(Target.Value)).Select
End Sub


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

Set myRange = Intersect(Target, Range("B2:B51"))
If Not myRange Is Nothing Then
Select Case Target.Value
Case ""
Target.Value = "○"
Case Else
Target.ClearContents
End Select
Cancel = True
End If
End Sub

A 回答 (1件)

同じイベントを複数並べるのはダメです。




Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If not Intersect(Target, Range("A2:A51")) Is Nothing Then
’この範囲がWクリックされた時
 Cancel = True
 Sheets(CStr(Target.Value)).Select

elseif not application.intersect(target, range("B2:B51")) is nothing then
’この範囲がWクリックされた時
 Cancel = True
 target = iif(target = "", "○", "")
End If
End Sub


#実際にはtarget.columnで仕分けるのでも十分そうに見えます。
    • good
    • 0
この回答へのお礼

お礼を申し上げる前に下記の時は大変ご迷惑をおかけしました。

不特定のシートをマクロで削除を
http://oshiete.goo.ne.jp/qa/8813466.html

早速の御指導に有難うございます。
上手くできました。


少しずつ進歩しています。
頑張りますので今後とも暖かく見守っていただけたら幸甚の至りに存じます。

お礼日時:2014/11/08 12:38

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A