エクセルでカウントダウンタイマー1

またには、エクセルについても触れておこう。
話のついでにタイマーを作ってみました。
例によって
1.難しいことはしない(避ける)
2.誰でもわかる単純明快なこと
を目指しました。

「ごまかし」はなし、時間も設定し、見えるようにしました。(笑)

関数の考え方はAccessと同じです。タイマーイベントは使えないので、Timer()関数で経過時間を判定します。

コードは以下の通り。

Dim dt As Date

Private Sub CommandButton1_Click()

 Call my_Procedure

End Sub

Private Sub UserForm_Initialize()

 dt = TimeSerial(Range("A1"), Range("B1"), Range("C1"))

 Me.TextBox1 = dt

End Sub

Public Sub my_Procedure()

  Dim t_start As Double 
  Dim t_next As Double 
  Dim t_timer As Double

  t_start = Timer()
  t_next = t_start    
  Do
   If t_next - t_start > Range("A1") * 3600 + Range("B1") * 60 + Range("C1") Then Exit Do

   t_timer = Timer() - t_next
   If t_timer > 1 Then     
       t_next = Timer()    
       dt = DateAdd("s", "-1", dt)
       Me.TextBox1 = dt      
   End If 
   DoEvents  
  Loop

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

開発経緯関連記事は以下をご覧ください。

Excel版タイマー