タイマー
Sub TimerTest() ' 5秒待機 Application.Wait( Now + TimeSerial( 0, 0, 5 ) ) MsgBox( "5秒待ちました") ' 1分待機 Application.Wait( Now + TimeValue("00:01:00") ) MsgBox( "1分も待ちました" ) End Sub
Sub TimerTest() ' 5秒待機 Application.Wait( Now + TimeSerial( 0, 0, 5 ) ) MsgBox( "5秒待ちました") ' 1分待機 Application.Wait( Now + TimeValue("00:01:00") ) MsgBox( "1分も待ちました" ) End Sub