4

VBScript を使用して、Excel で自動化をコーディングしています。コード内に があり、人間の介入なしで自動的にMsgBox()作成されたポップアップ ウィンドウを閉じる方法を探しています。MsgBox()そこからプログラムの実行が続行されます。

4

2 に答える 2

6

純粋なVBScriptソリューションは.PopUpメソッドです。

于 2012-12-31T20:20:49.823 に答える
4

私のコメントは、実行可能な答えを検索して見つけるためのヒントを提供してくれました。ただし、時間を節約するために、いくつかの洞察を示します。

  • この投稿では、VB で MSGBOX を操作する方法を示します。

  • これは、VBA に関して誰もが考えることができる最良の方法です。

    1. フォームを作成する
    2. MSGBOXとして使う
    3. タイマーを追加する
    4. 経過時間 (アイドル状態) を指定して、フォームを閉じます。

--

  • 別の方法参照。これはPop-Upボックスを MSGBOX として使用します。

コード：

Sub Test1()
 Dim AckTime As Integer, InfoBox As Object

 Set InfoBox = CreateObject("WScript.Shell")
 AckTime = 3
 Select Case InfoBox.Popup("Click OK or do nothing within 3 seconds.", _
 AckTime, "This is your Message Box", 0)

 Case 1, -1
  Exit Sub
 End Select
End Sub
于 2012-12-31T19:07:53.887 に答える