Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

Excelで一定時間後にメッセージボックスを自動的に閉じるメッセージボックスタイマーを作成するにはどうすればよいですか?

Excelブックを使用しているときに、VBAスクリプトを頻繁に使用して問題を解決できます。 また、スクリプトの実行中にメッセージボックスがポップアップ表示されます。 場合によっては、指定したメッセージボックスを手動で閉じるのではなく、特定の時間が経過すると自動的に閉じるようにします。 この記事では、Excelで一定時間後にメッセージボックスを自動的に閉じるメッセージボックスタイマーを作成する方法を紹介します。

メッセージボックスタイマーを作成して、一定時間後にメッセージボックスを自動的に閉じる


メッセージボックスタイマーを作成して、一定時間後にメッセージボックスを自動的に閉じる


ここでは、メッセージボックスタイマーを作成するためのVBAスクリプトテンプレートを提供します。

VBAスクリプトを実行して、指定した数式セルのすべてのセル参照を絶対に変換するとします。 正常に変換した後、変換が成功したことを通知するメッセージボックスがポップアップ表示されます。このメッセージボックスは、4秒後に自動的に閉じられます(下のスクリーンショットを参照)。 次のようにしてください。

1。 開く Microsoft Visual Basic for Applications ウィンドウをクリックし、使用したVBAスクリプトを対応するモジュールに挿入します。

2.次に、次のメッセージボックスタイマーテンプレートスクリプトをスクリプトに追加します。

VBAスクリプト:メッセージボックスタイマーを作成して、特定の時間が経過するとメッセージボックスを自動的に閉じます

'The first part
#If Win64 Then '64?
    Private Declare PtrSafe Function MsgBoxTimeout _
        Lib "user32" _
        Alias "MessageBoxTimeoutA" ( _
            ByVal hwnd As LongPtr, _
            ByVal lpText As String, _
            ByVal lpCaption As String, _
            ByVal wType As VbMsgBoxStyle, _
            ByVal wlange As Long, _
            ByVal dwTimeout As Long) _
    As Long
#Else
    Private Declare Function MsgBoxTimeout _
        Lib "user32" _
        Alias "MessageBoxTimeoutA" ( _
            ByVal hwnd As Long, _
            ByVal lpText As String, _
            ByVal lpCaption As String, _
            ByVal wType As VbMsgBoxStyle, _
            ByVal wlange As Long, _
            ByVal dwTimeout As Long) _
    As Long
#End If
'The second part
Sub btnMsgbox()
    Call MsgBoxTimeout(0, "This message box will be closed after 4 seconds ", "Kutools for Excel", vbInformation, 0, 4000)
End Sub

3.上記のVBAコードの最初の部分をコピーして、コードの前に貼り付けます。 次に、XNUMX番目の部分の以下のスクリプトをコピーして貼り付け、メッセージボックスのポップアップが必要なコード内の元のスクリプトを置き換えます。

MsgBoxTimeout 0、 "変換が完了しました(このメッセージボックスは4秒後に閉じられます)"、 "Kutools for Excel"、vbInformation、0、4000

ノート:この場合、変換が成功した後、最終的にメッセージボックスがポップアップする必要があります。 したがって、スクリプトのこの部分をコードの最後に配置します。 スクリーンショットを参照してください:

メッセージボックスの内容は、必要に応じて変更できます。

4。 プレス F5 コードを実行するためのキー。 変換後、指定したメッセージボックスがポップアップ表示されます。 そして、このメッセージボックスは4秒後に自動的に閉じられます。


関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性が50%向上し、毎日何百ものマウスクリックが減ります。
officetab下部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    dangcab · 1 months ago
    It is really nice, but on my codes I'm using the "GetAsyncKeyState" function to recognize the entry status for my data (using an scan gun) and the "MsgBoxTimeout" function is affecting the "GetAsyncKeyState" function. Without the "MsgBoxTimeOut" everything is working normal, when I include it, is like disactivate the "GetAsyncKeyState" function, but both not want to work together. Have you any suggestion?
  • To post as a guest, your comment is unpublished.
    bsacheri@gmail.com · 1 years ago
    This is a clean solution and much better than the wscript.shell popup method. I shared your idea on Stack Overflow with an example showing how to get the user response.
    https://stackoverflow.com/questions/54253640/how-to-insert-a-break-line-in-mshta-exe-pop-up-vba-macro/57512186#57512186
  • To post as a guest, your comment is unpublished.
    Fatih · 4 years ago
    You are just perfect... :lol: :lol: :lol: 8) 8) 8)