いつもお世話になります。
WINDWS7 EXCELL2010 です。
下記の1 2のマクロを同じシート内にイベントプロシージャを二つ挿入したところ、
※1 ※2のような現象が起きました。
この現象を解決したくご指導を仰ぎたいです。
宜しくお願いします。
※1 エラー表示
コンパイルエラー:
名前が適切ではありません; Worksheet_BeforeDoubleClick
※2 下記の構文が青色に反転
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
1
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
2
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
No.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で仕分けるのでも十分そうに見えます。
お礼を申し上げる前に下記の時は大変ご迷惑をおかけしました。
不特定のシートをマクロで削除を
http://oshiete.goo.ne.jp/qa/8813466.html
早速の御指導に有難うございます。
上手くできました。
少しずつ進歩しています。
頑張りますので今後とも暖かく見守っていただけたら幸甚の至りに存じます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
複数条件でのダブルクリック
Excel(エクセル)
-
エクセルVBA シートモジュールにチェンジイベントを複数設定する方法を教えて下さい。 例えば、B列に
Visual Basic(VBA)
-
-
4
Excel VBA イベントプロシージャを2つ記述する(基本です)
Excel(エクセル)
-
5
ダブルクリック 条件 分岐
Visual Basic(VBA)
-
6
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
7
EXCEL マクロで2つの作業を行いたいです
Excel(エクセル)
-
8
Excelにて、セルをダブルクリックすると、数字や日付が入る。又、ユーザーフォームを表示する
Excel(エクセル)
-
9
シングルクリックとダブルクリックのイベントについて
Access(アクセス)
-
10
VBA セルをダブルクリック→違うセルに値をコピー
Excel(エクセル)
-
11
1つのシートで2つ目のマクロ
Excel(エクセル)
-
12
EXCEL VBA 選択範囲をTargetに
会計ソフト・業務用ソフト
-
13
セルをクリック⇒そのセルに入力された文字を○で囲む
Excel(エクセル)
-
14
EXCEL VBA 複数のシートに同じイベントプロシジャを書く場合
Excel(エクセル)
-
15
XL:BeforeDoubleClickが動かない
その他(プログラミング・Web制作)
-
16
Private Sub Worksheet_Change が複数
Excel(エクセル)
-
17
エクセルのダブルクリックで
Excel(エクセル)
-
18
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
19
セルの値が変ると自動でマクロが実行される。
その他(Microsoft Office)
-
20
VBA ダブルクリックするたびにセルの色が順番に変わる
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同じシート内にイベントプロシ...
-
VBAで保存しないで閉じると空の...
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
エクセルの表を複数枚印刷した...
-
エクセル関数>参照ファイル名...
-
excelで直前に参照していたブッ...
-
マクロの保存先、開いてるすべ...
-
複数のマクロボタンをまとめて...
-
エクセルマクロで、別のブック...
-
Excelのマクロでボタンを押すと...
-
複数のExcelファイルの印刷設定...
-
【Excel VBA】マクロでExcel自...
-
エクセルの、記録を終了したマ...
-
Excelでマクロ実行中に画面を固...
-
エクセル ボタンに設定したマク...
-
エクセルで空白行を削除する ...
-
エクセルで、「いいね」のよう...
-
エクセルファイルを値でのみし...
-
エクセルで明日の日付を表示す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
同じシート内にイベントプロシ...
-
リストボックスで選択したexcel...
-
エクセルVBAのイベントで質問です
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル関数>参照ファイル名...
-
Excelのマクロでボタンを押すと...
-
エクセル マクロ名にブック名...
-
マクロの保存先、開いてるすべ...
-
エクセルの、記録を終了したマ...
-
エクセルの表を複数枚印刷した...
-
エクセルで、「いいね」のよう...
-
エクセル;相対パスを絶対パスへ...
-
【Excel】マクロの保存先について
-
【Excel VBA】マクロでExcel自...
-
エクセルマクロで、別のブック...
-
エクセルでマクロ(Excel 4.0)...
-
EXcelのマクロで相対パスでファ...
-
複数のExcelファイルの印刷設定...
おすすめ情報