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秒後に自動的に閉じられます。
