【コード】タイマーを設定するWordマクロ


Option Explicit
Public intTime As String
Public varTime As Variant
Sub timer()

Dim Message As String
Dim Title As String
Dim Default As String

Message = "インターバル時間(1~60分)を入力してください"
Title = "タイマー時間の設定"
Default = 60

Do
  varTime = InputBox(Message, Title, Default)
  If varTime = "" Then End
  If varTime >= 1 And varTime <= 60 Then Exit Do
Loop

If varTime < 10 Then
  intTime = "00:0" & varTime & ":00"
Else: intTime = "00:" & varTime & ":00"
End If

Application.OnTime When:=Now + TimeValue(intTime), _
  Name:="alert"

End Sub

Sub alert()

Dim intMB As Integer

intMB = MsgBox(varTime & "分が経過しました。" & vbCr _
      & "タイマーを続けますか?", vbYesNo + vbExclamation)

If intMB = vbNo Then
  End
Else: Application.OnTime When:=Now + TimeValue(intTime) _
  , Name:="alert"
End If

End Sub

トップへ戻る