|
▼かみちゃん さん:
>方法は、いろいろあるかと思いますが、以下のような感じではいかがでしょうか?
>
>0:00:40の部分を0:00:02など短く設定して試してみてください。
>以下のコードは、3回表示したら、終了するようにしています。
>
>Private Sub CommandButton1_Click()
> Dim lngRow As Long
>
> lngRow = 1
> Do
> '40秒待機する
> If Application.Wait(Now + TimeValue("0:00:40")) Then
> Me.Label1.Caption = Range("A1").Offset(lngRow - 1).Value
> DoEvents
> lngRow = lngRow + 1
> End If
> If lngRow > 3 Then Exit Do
> Loop
> MsgBox "終わりました"
>End Sub
返事が遅れてしまいすみません。
Application.Waitで指定時間待機できるんですね。
40秒待機して文字を表示し、次は20秒待機して文字を表示、次は1分待機したら文字を表示と連続してすることもできるのでしょうか?
|
|