Excel VBAでデータの追加処理中にイベントが連続発生してしまうエラーの解決方法
- Excel VBAを使ってデータの追加処理を行っている時に、イベントが連続発生してしまいエラーが発生します。解決方法として、処理ルーチンの先頭に「Application.EnableEvents = False」という構文を入れることで、一時的にイベント発生を受け付けなくすることができます。
- また、特定の処理である「セル挿入」と「データ投入」の間に「Application.Wait(Now() + TimeValue('00:00:01'))」を入れることで、タイミングを遅らせる方法もありますが、効果は限定的です。
- この問題の解決には他にも様々な方法が存在しますが、詳細は不明です。
- ベストアンサー
Excel VBA でイベント"Worksheet_Change"を使
Excel VBA でイベント"Worksheet_Change"を使って，データの追加処理中に，イベントが連続発生してしまい，エラー発生となります。解決方法のヒントがありませんか？ １）イベント発生を一時的に受け付けない構文の "Application.EnableEvents = False" を処理ルーチンの先頭に入れています。 ２）データテーブル表の特定処理「データを追加のため，"セル挿入"→"データ投入"」を行うとイベントの連続発生があるので，"セル挿入"と"データ投入"との間に "Application.Wait (Now() + TimeValue("00:00:01"))" を入れて，タイミングを遅らせていますが効果ありません。
- createtim
- お礼率41% (5/12)
- Visual Basic
- 回答数2
- ありがとう数4
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
Private Sub Worksheet_Change(ByVal Target As Range) Static blnChangeCancel As Boolean If blnChangeCancel Then Exit Sub blnChangeCancel = True '目的の処理..... blnChangeCancel = False End Sub
その他の回答 (1)
- Wendy02
- ベストアンサー率57% (3570/6232)
今の段階では唐突で正確なところは分かりません。Application.EnableEvents = False これは、実行している段階で、再イベントを読み込まないためのものです。だから、そのままでは、それが有効になるのかどうかは分かりません。 おそらくは、Target で、何がイベントで拾っているのか調べて、それが不要である場合は、除外項目を設けなくてはならないのです。Wait は関係ありません。 >データテーブル表の特定処理「データを追加のため，"セル挿入"→"データ投入"」を行うとイベントの連続発生があるので， ふつう、テーブルをSelect している時には、除外するとか、いくつか方法は考えますが、もう少し、具体的な情報がないと手が付けられないと思います。Static のBoolean 値を確保する方法では、Boolean値が解除されるまでは、1回だけマクロは可能です。果たしてそれでよいのなら、こちらの話は無視してくださってよいです。
お礼
どうもお手をわずわせて仕舞い，ありがとう御座いました。 回答前者の方の"Boolean 値を確定"で成功しました。 ご心配ありがとう御座います。 今後とも，よろしくお願いします。
関連するQ&A
- エクセルVBAのChangeイベント時の再計算
掲題の件ですが、VBAにて、 あるセルの値を変更したときに処理を行うChangeイベントについて困っております。 処理速度向上の為、この処理を行う際、再計算の処理を行わないようにしたいのですが、 Application.Calculation = xlCalculationManual を処理の頭に入れても、 Changeイベント発生→再計算処理→再計算を手動にする処理→本処理 となってしまうため、上手くいきません。 何かいい手立てはないものでしょうか。 エクセル2010です。
- ベストアンサー
- Visual Basic
- VBA ユーザーフォームのChangeイベントを停止したい
ユーザーフォームのChangeイベントは Application.EnableEvents = Falseで停止できないのですか？ シート上のChangeイベントの停止はできましたが、ユーザーフォーム上のテキストボックス等のChangeイベントは停止できませんでした。 ユーザーフォームのChangeイベントを停止する方法があれば教えてください。
- ベストアンサー
- オフィス系ソフト
- Worksheet_changeイベント
Worksheet_Changeのイベントに下記のような処理を書きました。 内容はI8～I1000までの間のセルで、入力された、変更された場合に、ある処 理（例ではメッセージにしています）をするということをしたいのですが、セ ルの値を変えても全くうごきません。 どこか記述がおかしいでしょうか。 よろしくお願いします。 '◆◆C列にデータ入力（変更された）ときの処理◆◆ If Not Application.Intersect(Target, Range("c8:c1000")) Is Nothing The n MsgBox "変わりました" Else Exit Sub End If
- 締切済み
- オフィス系ソフト
- イベント（Worksheet_Change(ByVal Target As Range)に詳しい方お願いします。
こんにちわ。 エクセルで経理関係の表を作っているのですが、イベントプロシージャにて、特定の列のセルに入力された数値に対して、許容範囲か否かサインを出して（IF関数）、そのサインがでれば音を出すマクロを組もうとしているのですが、なかなかうまく行きません。 商品 商品 A B C -------- L M N O | P Q--------AA 1 ○ | ▲ 2 | 3 | | この表で注意すべき赤字は▲、伸ばすべき黒字は○。 A1～N1が商品種別や単価などの情報です。 ○▲サインはIF関数にて表示出来るようにしたのですが、このサインが表示された時にマクロを実行するイベントとして、 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 14 Then Application.EnableEvents = False Target.Value = s If s <> "" Then Call サイン発生通知 End If Application.EnableEvents = True End If If Target.Column = 28 Then Application.EnableEvents = False Target.Value = s If s <> "" Then call サイン発生通知 End If Application.EnableEvents = True End If End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ としています。 音を出すマクロ自体は単体で（call サイン発生通知で）確認出来ているので、イベントプロシージャの記述に問題があると思うのですが・・・ 記述しているところは、Excelobject Sheet1（この表があるところ）です。 どなたか詳しい方おられましたら、ご教授の程お願い致します。<(_ _)>ペコリ
- 締切済み
- その他（プログラミング・開発）
- エクセル： Changeイベントが発生しないのはなぜ？
エクセルでChangeイベントが発生しないので以下の方法で確認してみました。 やはり駄目でした。 なぜでしょうか。 条件：Excel2000 エクセルのセル に楽天証券から株価データをRSSでもらっています。 書いたコード Private Sub Worksheet(ByVal Target As Range) If Target.Address <> "" Then MsgBox "イベント確認" End if End Sub これで駄目なのですがセルをいじるとイベントは発生しているようです。 Intersectプロシージャも試しましたが駄目でした。 Case文で拾うことも試しましたが駄目でした。 RSSで信号を受けた場合イベントは発生しないものでしょうか？ よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル： Changeイベントが発生しないのはなぜ？
エクセルでChangeイベントが発生しないので以下の方法で確認してみました。 やはり駄目でした。 なぜでしょうか。 条件：Excel2000 セル"A1" に楽天証券から株価データをRSSでもらっています。 書いたコード Private Sub Worksheet(ByVal Target As Range) If Target.Address <> "" Then MsgBox "イベント確認" End if End Sub これで駄目なのでセルにをいじるとイベントは発生しているようです。 Intersectプロシージャも試しましたが駄目でした。 Case文で拾うことも試しましたが駄目でした。 RSSで信号を受けた場合イベントは発生しないものでしょうか？ よろしくお願いいたします。
- 締切済み
- Windows XP
- VBA Changeイベントのエラー
エクセルで簡単な計算書を作成しています。（マクロ初心者） ちなみにこのコードは自分で作成したものではなく、人から聞いていじってみました。 Private Sub Worksheet_Change(ByVal Target As Range) '一度に複数セルの値が変更された場合は終了 '（A5:C5を選択しDeleteも含みます。） If Target.Count > 1 Then Exit Sub If Intersect(Target, Me.Range("H170:K170", "H171:K171","C76")) Is Nothing Then Exit Sub Application.EnableEvents = False '数値かつ空白以外の場合 If IsNumeric(Target.Value) And Target.Value <> "" Then Me.Range("M170").Formula = "=if(iserror(H170*I170*J170*K170),""-"",H170*I170*J170*K170)" '空白の場合 ElseIf Target.Value = "" Then Me.Range("H170:K170,M170").Value = "-" End If Application.EnableEvents = True Application.EnableEvents = False '数値かつ空白以外の場合 If IsNumeric(Target.Value) And Target.Value <> "" Then Me.Range("M171").Formula = "=if(iserror(H171*I171*J171*K171),""-"",H171*I171*J171*K171)" '空白の場合 ElseIf Target.Value = "" Then Me.Range("H171:K171,M171").Value = "-" End If Application.EnableEvents = True Application.EnableEvents = False '空白の場合 If Target.Value = "" Then Me.Range("D76:K76","C76").Value = "-" End If Application.EnableEvents = True End Sub H170、I170、J170、K170のどれかに数値の入力があった場合、M170に計算式を入力。 H170、I170、J170、K170のどれかの値をDELETEキーでクリアした場合、H170、I170、J170、K170、M170に"-"を入力。 その他に似たような処理がたくさん出てくるので、H171の処理とC76をDELETEキーでクリアした場合の処理を自分で考えて作ってみたのですが、うまく実行されません。H171～の処理はうまくいったので単純にコードをどんどん追加していけば動くと思ったんですが、いろいろ調べてもどうも方法がわからず進みません・・・ 解決してもらえるでしょうか・・
- ベストアンサー
- オフィス系ソフト
- Changeイベントの途中にユーザー定義関数が入る
Excel VBA勉強中のものです ○"A1"に数字を入力する →Worksheet_Changeイベント →"B1"～"B5"にそれぞれ結果が入る →"C1"にユーザー定義関数 =A(B5)がある みたいなことをしようとしているのですが、 やってみると、 ○"A1"に数字を入力する →Worksheet_Changeイベント →Worksheet_Changeイベントの"B1"(１つ目の結果）がでるところで →ユーザー定義関数 Function Aにとぶ →普通にEnd Function →そのまま終了(End subに行かない) となるのですが、Worksheet_Changeに戻って来ないものなのでしょうか？ また、Worksheet_Changeの最初のところに Application.EnableEvents = Falseで他のイベントを発生させないように？はしているのですが、終わるまでユーザー定義関数を発生させない命令みたいなのってあるのでしょうか？ 上には少なく書いてありますが、実際はたくさんのセルを使用しておりWorksheet_Changeだけだとかなりの長文になりそうで、後半はユーザー定義関数にしたのですが 根本的に考え方が間違っているのでしょうか？ なにかいいアドバイスをお願いします。
- 締切済み
- オフィス系ソフト
- エクセル2013VBA Changeイベント 選択
お世話になります。一度質問を締め切ったのですが、色々やっているうちに問題がでてきたので再投稿いたしました。Excel2013です。 計画のファイルがあります。 例えば、"テーブル"シートのA列に品物A、品物B、品物C・・・、と入力されていて、B列にはA列の品物に対応して、付属A、付属B、付属Aなどと入力されているとします。実際は、品物数は数千種類あります。（この例の場合は、品物Aと品物Cは同じ付属を使う） "計画"シートには、A列にデータの入力規則のリストより、A社やB社・・・を選択し、 さらにB列は入力規則のリストより、=INDIRECT(B2)などといれて、A列の入力規則に対して品物Aや品物B・・・などを選択します。選択するようにしています。 それで、品物Aを選んだら、その下の行に付属Aとか自動ででるようにしたいと思っています。 （列は増やしたくありません） 入力範囲のどこでも選択をできるようにしておきたいので、入力範囲にはすべてリストが設定されており、数式を入れることはできません。 とりあえず、品物を入力する範囲は、C2:C25,G2:G25範囲です。 その状態で、 とりあえずご教授いただいて下記コードまでたどりついていき通常は大丈夫なのですが、B列とC列をまとめて選択コピーして貼り付けると、付属Aと出るべきところが何も起こりません。アクティブセルが隣の列を選択しているためだと思われますが、どうすればよいか分かりません。 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = True On Error GoTo mExit Application.EnableEvents = False If Intersect(Target, Range("C2:C25,G2:G25")) Is Nothing Then Application.EnableEvents = True Exit Sub Else If Target.Offset(1, 0).Value = "" Then Target.Offset(1, 0).Value = Application.WorksheetFunction.VLookup(Target.Value, Sheets("テーブル").Range("B:C"), 2, False) Application.EnableEvents = True End If End If Application.EnableEvents = True Exit Sub mExit: Application.EnableEvents = True End Sub 度々お手数をおかけいたしますが、ご教授ください。
- ベストアンサー
- Excel（エクセル）
- ExcelマクロのApplication.EnableEvents
Sub AAA() Application.EnableEvents = False If a = 0 then 処理A End If Application.EnableEvents = True End Sub このようなコードを組んでいます。 処理Aは、他シートへの書込みを行っており、 他シートのWorksheet_Changeイベントが動いて欲しくないので、 上記の位置にApplication.EnableEventsのFalseとTrueを入れたのですが、 （FalseとTrueを入れた位置は「If文の前後」ではなく、「コードの最初と最後」です） 処理Aによって他シートのWorksheet_Changeイベントも動きました。 ここで、 Application.EnableEvents = False 処理A Application.EnableEvents = True のように記述したら、処理Aによる他シートのWorksheet_Changeイベントは止められました。 動かしたくない処理がある場合は、 その処理を行っている部分をピンポイントでFalseとTrueで挟まないといけないのでしょうか。 （最初と最後に宣言するのではダメなのでしょうか） それとも今回のような動作をした要因は別にあるのでしょうか。
- ベストアンサー
- オフィス系ソフト
お礼
早速の回答，ありがとう御座います。 バルーンを使用する手は思いつきませんでした。 早速やってみます。 ありがとう御座いました。 また，ありましたら教授方よろしくお願い致します。