![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になります。
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
これ何て呼びますか Part2
あなたのお住いの地域で、これ、何て呼びますか?
-
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
-
4
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
-
5
複数条件でのダブルクリック
Excel(エクセル)
-
6
エクセルマクロPrivate Subを複数にする方法
Excel(エクセル)
-
7
エクセルVBA シートモジュールにチェンジイベントを複数設定する方法を教えて下さい。 例えば、B列に
Visual Basic(VBA)
-
8
ダブルクリック 条件 分岐
Visual Basic(VBA)
-
9
Excel VBA イベントプロシージャを2つ記述する(基本です)
Excel(エクセル)
-
10
EXCEL VBA 複数のシートに同じイベントプロシジャを書く場合
Excel(エクセル)
-
11
EXCEL VBA 選択範囲をTargetに
会計ソフト・業務用ソフト
-
12
エクセルVBAでダブルクリックをしたらA列のデータが別シートに転記されるにはどうしたらよいですか?
Visual Basic(VBA)
-
13
VBA セルをダブルクリック→違うセルに値をコピー
Excel(エクセル)
-
14
Private Sub Worksheet_Change が複数
Excel(エクセル)
-
15
エクセル マクロ クリックしたセルの内容を貼り付け
Excel(エクセル)
-
16
シートモジュールを複数作成することはできるのでしょうか?
Visual Basic(VBA)
-
17
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
18
シングルクリックとダブルクリックのイベントについて
Access(アクセス)
-
19
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
20
1つのシートで2つ目のマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの条件付き書式について
-
Excelの警告について
-
GoogleスプレッドシートでA1に...
-
Excelで数値を時間数に変換する...
-
【Excel】版が同じ事を示す番号...
-
エクセルでファイルの最終更新...
-
エクセルまたはGoogleスプレッ...
-
Excelシートに画像を貼る時
-
エクセルの数式バーのフォント...
-
Excelについて
-
【マクロ】functionプロシージ...
-
EXCELの散布図で日付が1900年に...
-
【マクロ】for nest について ...
-
お世話になります。 Excelを使...
-
googleのスプレッドシート
-
セルの数を求めたい
-
Excel関数-文字列で自動作成さ...
-
EXCELで数値が異なった数字を足...
-
EXCELのような表を使っています...
-
エクセルで「ページレイアウト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
同じシート内にイベントプロシ...
-
マクロ初心者(;◔ิд◔ิ) 条件一...
-
リストボックスで選択したexcel...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル ボタンに設定したマク...
-
エクセル関数>参照ファイル名...
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
-
【Excel VBA】マクロでExcel自...
-
エクセルの表を複数枚印刷した...
-
エクセルの、記録を終了したマ...
-
マクロの保存先、開いてるすべ...
-
エクセル マクロ名にブック名...
-
エクセル;相対パスを絶対パスへ...
-
【Excel】マクロの保存先について
-
複数のマクロボタンをまとめて...
-
エクセルVBAで作成した別ブック...
-
エクセルでマクロ(Excel 4.0)...
おすすめ情報