WorksheetイベントCalculate実行時の多重起動禁止設定方法について。

質問

はじめまして。VBA勉強中の初心者です。

WorksheetイベントCalculateについて教えて下さい。

外部からDDEやRSS等でデータを受信した際にイベントCalculateにより、プロシージャが自動実行されるかと思いますが、イベントプロシージャの処理が完了する前に、同様のイベントにより同じプロシージャを実行しようとした場合、多重起動となってしまいます。

ここで、やりたい事としては、

１．イベントCalculateより動いているプロシージャがある場合は、次のイベントプロシージャを終了する。
※元々動いているイベントプロシージャはそのまま実行。
※新規イベントプロシージャのみ終了と言う意味です。

もしくは、

２．イベントCalculateより動いているプロシージャがある場合は、前の処理が完了するまで待機し、処理が完了してから、次のイベントプロシージャ（同内容）を実行する。

のいずれかを実現したいと考えております。

もし、ヒントやサンプルソース等があるようであれば、教えて頂ければと思います。

よろしくお願いいたします。

言語：VBA
OS:WinXP

回答No.1

1050 円（@1050YEN） · ベストアンサー

回答ではありません。

どういう動きをしているのかが、よくわかりませんが、、、一般的にだと、、、

※同一プロセスでの多重起動は
→プロシージャ単位での同時起動破棄は、Static変数で処理中フラグを立てる
→プロシージャ単位での同時起動時待機は、同様にStatic変数を利用とDoEventsの組み合わせ

※別プロセスでの起動時は
→同時起動破棄/待機共に、ファイルや共有メモリ（お勧めしない）を利用し、複数のプロセスか特定のメソッドが起動中の判定を参照できる
ようにする

というような感じだと思います。

それと
＞もし、ヒントやサンプルソース等があるようであれば、教えて頂ければと思います

いきなりヒントやサンプルを求めるより、
＞外部からDDEや・・・多重起動となってしまいます
その多重起動となるサンプルを公開すると、ヒントが得られやすくなると思いますよ。

お礼

アドバイスありがとうございます。

同一プロセスでの多重起動であった為、【プロシージャ単位での同時起動破棄は、Static変数で処理中フラグを立てる】が私のプログラムの場合、最適かと思いますが、投稿以降色々調べまして、本日、終に、【Application.OnTime】を使用する事で１秒単位での処理をする事に成功致しました。

それに伴い、誠に勝手で申し訳ありませんが、掲載させて頂いております質問に関しましては、クローズさせて頂きたいと思います。

アドバイスして頂いた、1050YENさんはじめ、本質問に関して考えて頂いたみなさまありがとうございましたｍ（＿＿）ｍ。