Worksheet_Change(ByVal Target As Range)の下に複数範囲

Question

始めまして

Private Sub Worksheet_Change(ByVal Target As Range)が全然整理できないので
アドバイスいただけますか
私の能力は
１、N88 BASIC を少しかじりました
2、エクセルで式の入力は少しできます（ロータス123も少しやりました）
3、昔、クイックベーシックはギブアップしました

最近ずっと、知恵袋やここのｇｏｏのエクセルの掲示板から、やりたいことを
可能にしてくれるマクロを探しているのですが、いろいろな表現があって、全然整理できません
例えば下記のマクロなどです（行には自分でメモを書いています）

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Count > 1 Then Exit Sub
　　'複数個所同時入力を拒否する？　　
　　If ActiveSheet.AutoFilterMode Then Exit Sub
　　'AutoFilterModeだったら拒否する
　　If Not Intersect(Target, Range("A1:D4")) Is Nothing Then
　　MsgBox Target.Address　'実際の処理
　　End If
End Sub

さらには
Private Sub Worksheet_Change(ByVal Target As Range)
　　If Not Intersect(Target, Range("A1")) Is Nothing Then
　　'A1の値が変わった
　　　　MsgBox "セル A1 が変更になりました。" '　<--- A1変更時の処理
　　End If
　　If Not Intersect(Target, Range("B1")) Is Nothing Then
　　　　MsgBox "セル B1 が変更になりました。" '　<--- B1変更時の処理
　　End If
　　If Not Intersect(Target, Range("C1")) Is Nothing Then
　　　　MsgBox "セル C1 が変更になりました。" '　<--- C1変更時の処理
　　End If
End Sub

など・・・
他にも
Dim myRng As Range
Dim r As Range
を使いなさいとか

さらには、

Application.EnableEvents = False
Application.EnableEvents = TRUE
を使いなさい

そのマクロ自体が、別のセルを代入したりすると、もうひとつのイベントを発生させてしまい、プロシージャの中で、無限ループに近い形になっています。（ただし、完全な無限ループではないので、1万回程度で止まります。）そこで、その無限ループをとめなくてはならないので、そうした、
Application.EnableEvents = False
ということをします。

などです

===================================================

そこで、さっぱり整理できないので、自分がやりたいことはマクロでどう書けば良いのかを
教えていただければと思います
教えていただいてから、ひとつ、ひとつ検索して勉強します

下記がマクロでやりたいことです

===================================================
入力を監視するセルは下記の範囲で、範囲ごとにやること（処理）は違います
入力は全て整数です（整数が入力されたらその値に応じてマクロで処理します）
入力値のチェックは「入力規則」でやります(IF文書くのがたいへんそうなので）

入力範囲は

Range("B2,D2,H2,J2")
Range("B3,D3,H3,J3")
Range("B5:B100")　
この範囲に値の貼り付けで入力は禁止です、というか、禁止しないと
だめなようです（Worksheet_Changeは）

Range("H5:H100")
この範囲に値の貼り付けで入力は禁止です、というか、禁止しないと
だめなようです（Worksheet_Changeは）

もっと増えるかもしれませんが、その時はなんとか教えていただいた例を参考にやってみます
いきなりの長文の質問ですみません

用語に不慣れで表現が分かりにくかったら指摘してください
よろしくお願いします
エクセルはバージョン２０１３を使っています
最後まで読んでいただきましてありがとうございました

WindFaller · Accepted Answer

こんにちは。

>Application.EnableEvents = False　の効果を知るには、無限ループになるようなコードが
書けないとだめということですね
>「そんなコードが書けないのだから、効果を実感できるわけがない」という話ですね
>やっと合点しました

私は、そこまで言うつもりはありません。最初は形式的に書いていて、そのうちに分かるようになるということです。実際に、今、「そんなコード」を本当に書ける人がいるのでしょうか？

らしきコードを書いてみましたが、これでも、実証はできません。途中でエラーがでてしまいます。止める場合は、ESCキーを押します。

'A2に値をいれるマクロ
Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Count > 1 Then Exit Sub
　If Target.Value = "" Then Exit Sub
　If Target.Address(0, 0) <> "A2" Then Exit Sub
  '以上除外設定
  Application.EnableEvents = False
  Target.Value = Target.Value + 1　　'値に値を入れるから保護する必要があります。
  Application.EnableEvents = True
 If Target.Value > 10 Then Exit Sub　　'再帰になって場合の気休め。実際は働かない
　Exit Sub
End Sub

最近は、PCそのものの性能がよいせいか、忘れてしまう人がいます。無限ループにならないのは、一回のイベントにわずかなタイムラグが出来て、そのタイムラグが、イベントをキャッチする時間の範囲から外れてしまうから、イベントが終了するわけです。

以下の場合は、EnableEvents =False は、不要です。
マクロで値を入れた時に、再イベントが発生するのです。だから、それを防ぐわけです。
-----------------
　If Not Intersect(Target, Range("B2,D2")) Is Nothing Then
MsgBox Target.Value
MsgBox Target.Address
MsgBox Target.Column
MsgBox Target.Row
End If

If Not Intersect(Target, Range("B5:B10,D5:D10")) Is Nothing Then
MsgBox Target.Value
MsgBox Target.Address
MsgBox Target.Column
MsgBox Target.Row
End If
-----------------

>マクロがエラーで止まって、エラーの行が黄色くなって
>コードが示されるようなことでは、逆にマクロなんか使わない方がよさそうです

問題は、そういう所ではないのです。
最初は、プログラムそのものを体得していくことだと思います。
上達のポイントは、なんとか、何年掛かってもよいからと思いつつ、完成を目指すことです。

その都度、覚えた技術を反映しながら、自分のコレクションに加えていきます。

また、ネットで勉強するにしても、なるべく一定の人のものを追いかけて、その人がどう考えて、そのコードになったのか考えながらでもよいと思います。ある程度の内容になると、その人の人柄がコードに出てきます。

マクロで、自分がやりたいことができるようになるには、なかなか時間が掛かります。でも、それ以上に、相手の期待に沿うというのは、もっと大変なことです。

最近、質問した人は、私の説明を読んで、すぐに諦めてしまって質問を閉じてしまいました。こちらも事情があって、その人のために、大掛かりなプログラムを簡単に公開したくはありません。人にやる気を起こさせるのも技術かもしれません。中には、長いコードをみただけで、自分の質問とは違います、と断ってしまう人。せっかく作っても、予定に間に合わなかったので、ボツ。エラー処理したコードは、内容が複雑になっているから、それはダメ。

他人のためにマクロを書くと考えていたら、とてもやっていられるものではありません。

WindFaller · Answer

#1の回答者です。

>>Application.EnableEvents = False
>>　マクロで書き込みがある場合は、これで挟む
>>Application.EnableEvents = True
>上の2行もエラー処理のひとつかと思いますが
>まだエラーを実体験できません

それは、ご自身がおっしゃっていた話ではありませんか？
>もうひとつのイベントを発生させてしまい、プロシージャの中で、無限ループに近い形になっています。

つまり、再帰(recursive)してしまうので、それを防ぐようにしてもよいのですが、それだけのことを書くのなら、EnableEvens の方が楽だと思います。

なお、Excel 2013 以降は、ヘルプがほとんど使い物になりません。たぶん、ユーザーの追い出しだと思います。この先に、記録マクロがなくなるはずです。また、メソッドのオブジェクト化が進んでいくと思います。例えば、すでにソートメソッドは、オブジェクト化しています。
その辺りの対策を取っておかないといけないようです。やがてヘルプが有償で売られるようになるかもしれません。英語版はすでに有償のヘルプがあります。

WindFaller · Answer

ご質問者さんは、もう十二分に心得があるようで、いわゆる帰納的学習（経験を積むこと）で上達する以外はありえませんね。
ただ、ご質問がよく分からない部分がいくつかあります。

コードにならない部分は、言葉で説明しないと分からないとは、回答者としては言えるものの、なかなか、難しいことを考えていらっしゃるようです。

例えば、
>Range("H5:H100")
>この範囲に値の貼り付けで入力は禁止です、というか、禁止しないと
この範囲に値の貼り付けによる、入力は禁止という意味ですか？
でも、貼り付けはダメだということですね。でも、そのプログラムは、セルに2つ入れることを禁止すれば済むことですよね。一個のセルに対して、一個の値を入れることに関して、貼り付けはダメというプログラムも、可能ですが、わざわざそんな仕掛けを作る必要はありませんね。

質問内容から、サルルベージできたのは、以下のぐらいです。

Application.EnableEvents = False
　マクロで書き込みがある場合は、これで挟む
Application.EnableEvents = True

'///
Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Count > 1 Then Exit Sub
　　'複数個所同時入力を拒否する？
　　If ActiveSheet.AutoFilterMode Then Exit Sub
　　'AutoFilterModeだったら拒否する
　　If Not Intersect(Target, Range("B2:B3,D2:D3,H2:H3,J2:J3,H5:H100")) Is Nothing Then
　　　If VarType(Target.Value) <> vbLong Then MsgBox "整数のみしか入れられません", vbInformation: Exit Sub
　　End If
End Sub

Worksheet_Change(ByVal Target As Range)の下に複数範囲

こんにちは。

#1の回答者です。

ご質問者さんは、もう十二分に心得があるようで、いわゆる帰納的学習（経験を積むこと）で上達する以外はありえませんね。

似たような質問が見つかりました

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

関連するカテゴリからQ&Aを探す

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

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング