![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になります。
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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
複数条件でのダブルクリック
Excel(エクセル)
-
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
-
4
エクセルVBA シートモジュールにチェンジイベントを複数設定する方法を教えて下さい。 例えば、B列に
Visual Basic(VBA)
-
5
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
6
ダブルクリック 条件 分岐
Visual Basic(VBA)
-
7
EXCEL マクロで2つの作業を行いたいです
Excel(エクセル)
-
8
VBA セルをダブルクリック→違うセルに値をコピー
Excel(エクセル)
-
9
Excel VBA イベントプロシージャを2つ記述する(基本です)
Excel(エクセル)
-
10
エクセルマクロPrivate Subを複数にする方法
Excel(エクセル)
-
11
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
-
12
シングルクリックとダブルクリックのイベントについて
Access(アクセス)
-
13
EXCEL VBA 選択範囲をTargetに
会計ソフト・業務用ソフト
-
14
エクセルVBAでダブルクリックをしたらA列のデータが別シートに転記されるにはどうしたらよいですか?
Visual Basic(VBA)
-
15
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
16
EXCEL VBA 複数のシートに同じイベントプロシジャを書く場合
Excel(エクセル)
-
17
エクセル マクロ クリックしたセルの内容を貼り付け
Excel(エクセル)
-
18
Private Sub Worksheet_Change が複数
Excel(エクセル)
-
19
画像を削除したい(VBA)
Word(ワード)
-
20
1つのシートで2つ目のマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
黒い文字のみの最大および最小...
-
同じシート内にイベントプロシ...
-
VBAで保存しないで閉じると空の...
-
Excel マクロの編集がグレーに...
-
【Excel VBA】マクロでExcel自...
-
WPSOffice_マクロの有効化について
-
エクセルで、「いいね」のよう...
-
Excelのマクロでボタンを押すと...
-
【Excel】マクロの保存先について
-
エクセル ボタンに設定したマク...
-
エクセル マクロ名にブック名...
-
マクロの保存先、開いてるすべ...
-
エクセル関数>参照ファイル名...
-
エクセルマクロで、別のブック...
-
エクセル;相対パスを絶対パスへ...
-
複数のExcelファイルの印刷設定...
-
マクロで最終行を取得してコピ...
-
複数のマクロボタンをまとめて...
-
マクロをマクロを使ってコピー...
-
数値に見えるものはすべて数値...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
同じシート内にイベントプロシ...
-
リストボックスで選択したexcel...
-
VBAで保存しないで閉じると空の...
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
エクセル関数>参照ファイル名...
-
Excelのマクロでボタンを押すと...
-
エクセル ボタンに設定したマク...
-
エクセルで、「いいね」のよう...
-
エクセルの表を複数枚印刷した...
-
エクセル マクロ名にブック名...
-
【Excel VBA】マクロでExcel自...
-
エクセルの、記録を終了したマ...
-
マクロの保存先、開いてるすべ...
-
エクセル;相対パスを絶対パスへ...
-
複数のマクロボタンをまとめて...
-
VBAについての質問です
-
エクセルで空白行を削除する ...
-
エクセルマクロで、別のブック...
-
VBA Shapes コピーと名前
おすすめ情報