新しい電子メールメッセージを受信するたびに実行されるVBAコードがあります。Excelスプレッドシートの作成を含むいくつかの処理ステップがあるため、実行に1〜2分かかる場合があります。
電子メールの処理が進むにつれて更新されたステータスメッセージを表示するモードレスダイアログボックスを表示したいと思います。UserForm1を作成しましたが、VBAコードからインスタンス化する方法がわかりません。
@ AnalystCave.comから情報を受け取った後のテストコードの最終バージョンは次のとおりです。ユーザーフォームを他のウィンドウの上に表示するように強制する方法については、まだ作業中です。
Public Sub TestForm()
Dim uf As UserForm1
Set uf = New UserForm1
Load uf
uf.Show vbModeless
uf.msgStatus.Text = "11111111111111111"
uf.msgStatus.Text = "22222222222222222"
uf.msgStatus.Text = "33333333333333333"
uf.Hide
Unload uf
End Sub
私の特定のアプリケーションでは、デスクトップに表示される内容は予測可能です。この場合、問題を解決する1つの方法は次のとおりです。
''' execute something that you know will show on top of the userform then
uf.Show vbModeless ' this will put the userform back on top
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加