msgboxについて (ID:77308)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 調べてみたら、ExcelにはOnTimeというメソッドがあるようですね。 先のWshShell.Popupを使わず、自作のフォームで実装するのであれば、 こんな感じでいけるかも。 '--- 標準モジュール --- Option Explicit Public Sub CloseForm() UserForm1.CloseTime = Empty Unload UserForm1 End Sub '--- UserForm --- Option Explicit Public CloseTime As Variant Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Initialize() CloseTime = DateAdd("s", 2, Now) Application.OnTime CloseTime, "CloseForm" End Sub Private Sub UserForm_Terminate() If Not IsEmpty(CloseTime) Then Application.OnTime CloseTime, "CloseForm", , False End If End Sub