VBAのモードレスのユーザーフォームでボタンが押されるまで処理を中断したい

Question

こんばんは。

VBAのモードレス表示でユーザーフォームのコマンドボタンがクリックされるまで処理を中断する方法はありますでしようか。

ざっくり処理内容をかきますと、

public text1 as string
public text2 as string

sub 処理()

'text1を入力してもらう
ユーザーフォーム1.show

'text1を引数にprocess1を実行
call process1(text1)

'text2を入力してもらう
ユーザーフォーム2.show

'text1、text2を引数にprocess2を実行
call process2(text1,text2)

end sub

という感じです。

それでこれをエクセルのボタンに実装して連続する1処理として実装したいです。

モーダル表示だとユーザーフォームに何らかのイベントが発生するまで中断してくれるんですが、モードレスだとうまくいきません。

何かいいアドバイスがありましたら、ご教授お願いします。

Comments

[hatena19]

モーダル表示にすれば解決する話ですが、モーダル表示でダメな理由はなんですか。

[Tetsuya3456]

ユーザーフォーム2を開く直前の処理で text2の情報を入力するために必要なエクセルブックを開く処理があります。 workbooks.open 〜.xlsx ユーザーフォーム2.show という感じです。 ユーザーフォーム2をモーダルにすると、このブックが灰色の画面になって見れない状態になってしまいまして。 これが見れれば、モーダルでも大丈夫です。

[hatena19]

当方のテストでは再現できませんが、新規作成したブックを開くようにしても、同じ状況がが発生しますか。新規ブックでは発生しないなら、開こうとしているブック側の問題かと思います。

[Tetsuya3456]

かしこまりました。 明日会社で試してまた報告いたします。 ありがとうございます！

[thom.jp]

workbooks.openとモーダルフォームの表示の間にDoEvents命令を挟んでみてください。これはOSに一瞬制御を戻す命令で、モーダルフォームで描画系トラブルがでたらこれで解決することがあります。

[Tetsuya3456]

会社で試してみたところ、新規ブックでもだめでした。 ただ、それぞれのプロシージャの最初にApplication.screenupdatingをfalseにしていたのですが、明示的にそれぞれ最後にtrueを入れたら開きたかったエクセルがきちんと見える形でモーダルのユーザーフォームが開きました。 Do eventsも興味があるので試してみたいと思います。 ありがとうございます。

[hatena19]

Application.screenupdatingをfalseにしてるなら、画面更新されないので、当然そうなりますね。
DoEvents のループで待機するのは、コードがずっと実行中になりますので、CPU負荷が大きくなるのでお勧めできません。モーダルがベストの解決法です。

Answer 1

DoEvents のループで待機するのは、コードがずっと実行中になりますので、CPU負荷が大きくなるのでお勧めできません。モーダルにするのがベストの解決法だと思います。（ブックを開く時は、Application.ScreenUpdatingはTrueにして）

Office TANAKA - Excel VBA Tips[CPUの使用率を抑える方法]

どうしてもモードレスにする必要があるなら、
フォームを閉じたときに、次の処理を呼び出すようにします。
例えば、下記のように
VBA - VBAのループ処理途中でシートへ入力したい。(84535)｜teratail

Comments

[Tetsuya3456]

回答ありがとうございます。

ご指示頂いたおかげで無事解決いたしました。

Answer 2

workbooks.openとモーダルフォームの表示の間にDoEvents命令を挟めばモーダルでもうまくいく気はしますが、以下は一応モードレスフォームで実現するコードです。

Public text1 As String
Public text2 As String
Sub 処理()
    'text1を入力してもらう
    ユーザーフォーム1.Show
    WaitFormClose ユーザーフォーム1
    
    Call process1(text1)
    'text2を入力してもらう
    
    ユーザーフォーム2.Show
    WaitFormClose ユーザーフォーム2
    
    'text1、text2を引数にprocess2を実行
    Call process2(text1, text2)
End Sub

Sub WaitFormClose(f As Object)
    Do While f.Visible
        DoEvents
    Loop
End Sub

Comments

[Tetsuya3456]

回答ありがとうございます。
いずれ、要望があればモードレス表示も検討する必要があるので参考にさせて頂きます。
ありがとうございます！