VBAProject --> 標準モジュール --> ModuleXX
Sub Sample()
Sub Sample()
UserForm1.Show
End Sub
VBAProject --> フォーム --> UserFormXX
Private Sub UserForm_Activate()
VBAProject --> フォーム --> UserFormXX
Private Sub UserForm_Activate()
Dim 指定時刻 As String
'現在時刻より3秒
指定時刻 = Now + TimeValue("00:00:03")
Application.Wait (指定時刻)
Unload Me