如何在Excel中創建一個消息框計時器，以便在特定時間後自動關閉消息框？

在使用Excel工作簿時，您可能經常會使用VBA腳本來解決問題。在腳本運行期間，可能會彈出一些消息框。在某些情況下，您可能希望某些指定的消息框在特定時間後自動關閉，而不是手動關閉。本文將向您展示如何創建一個消息框計時器，在特定時間後自動關閉消息框的方法。

創建一個消息框計時器，以便在特定時間後自動關閉消息框

創建一個消息框計時器，以便在特定時間後自動關閉消息框

這裡提供了一個VBA腳本模板，供您創建消息框計時器。

假設您正在運行VBA腳本以根據單元格值移動行。完成移動後，您需要一個消息框彈出，告訴您操作成功，並且此消息框需要在4秒鐘後自動關閉（見下面的截圖）。請按照以下步驟操作。

1. 打開Microsoft Visual Basic for Applications窗口，點擊插入 > 模塊，然後插入您要用於根據單元格值移動行的VBA代碼。

2. 複製以下VBA代碼1並將其放在您要操作的代碼之前。見下面的截圖：

VBA代碼1：

Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
            ByVal xHwnd As LongPtr, _
            ByVal xText As String, _
            ByVal xCaption As String, _
            ByVal xMsgBoxStyle As VbMsgBoxStyle, _
            ByVal xwlange As Long, _
            ByVal xTimeOut As Long) _
    As Long

3. 複製以下VBA代碼2並將其放在您要操作的代碼的“End Sub”行之前。

VBA代碼2：

 Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)

備註：您可以根據需要更改消息框的內容和對話框的顯示時間。

4. 運行代碼執行操作後，消息框將彈出並在特定時間後自動關閉（在此情況下為4秒）。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章：

• 如何在Excel中點擊某個單元格時彈出消息框？
• 如何在Excel中複製消息框中的文字？
• 如何在Excel中激活/打開指定的工作表時彈出消息框？
• 如何在Excel中彈出消息框以顯示單元格區域或單元格值？
• 如何在Excel中當單元格值在某個範圍內發生變化時彈出消息框？