VBAProject --> 標準モジュール --> ModuleXX

Sub Sample()

    UserForm1.Show
    
End Sub


VBAProject --> フォーム --> UserFormXX

Private Sub UserForm_Activate()
    
    Dim 指定時刻 As String

    '現在時刻より3秒
    指定時刻 = Now + TimeValue("00:00:03")
    
    Application.Wait (指定時刻)
    
    Unload Me

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ