あるシート内で、ボタンのクリックによって開始する関数があります。
その関数は、別のボタンのクリックによって停止しない限り無限に終了しない関数です。
上記のシートを複数用意して、複数の無限ループをシートごとに動かしたいです。
シートをコピーすれば関数(VBE)もコピーされるのでそれも1つの手ですが、変更があった時に同じ変更を全てに適用しなければならなくなるので、関数をモジュールに移動して、どのシートのボタンを押しても同じ関数が呼び出されるようにしました。
短時間で終わる処理であれば共通の関数を全シートから呼び出す方法で良いのですが、今回の関数は無限ループがあるため、うまく動きません。
(シートAから呼び出されて無限ループ実行中にシートBから呼び出されると、無限ループを最初からやり直す事となりシートAで実行していた処理が停止される)
無限ループを持つ関数の実装を一箇所のみとして、独立して実行する方法がありましたら教えてください。
無限ループを含む関数の概略を以下に記します。
Private Sub btn_Click()
'(前略)
Do
'(中略)
Do
'(中略)
If FlgStop = True Then '停止ボタンが押されたら
Exit Do '終了する
End If
DoEvents '他の処理を実行する
Loop While (1周待ち) '送信間隔に達するまで継続する
If FlgStop = True Then '停止ボタンが押されたら
Exit Do '終了する
End If
Loop While True
'(後略)
End Sub