快表VBA倒计时

显示倒计时的一个VBA

效果：





VBA代码：

1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                 If String.Equals(e.Shape.Name,"Button 1") = True Then
   
3.                         e.Shape.Visible = False
   
4.                         Range("C2").Value = 0
   
5. 
   
6.                         ''计时器(避免造成大频率循环造成资源占用)
   
7.                         Dim XHTimer As DispatcherTimer = New DispatcherTimer
   
8.                         XHTimer.Interval = New TimeSpan(0, 0, 0, 1, 0)'60秒
   
9.                         AddHandler XHTimer.Tick, Sub(s1, e1)
   
10. 
    
11.                                 ActiveWorkBook.WorkbookSet.getlock()
    
12.                                 If Range("C2").Value >= 5 Then
    
13.                                         C1MessageBox.Show("时间到！", "快表提示", OK, Information)
    
14.                                         XHTimer.Stop()'停止计时器
    
15.                                         e.Shape.Visible = True
    
16.                                 Else
    
17.                                         Range("C2").Value = Range("C2").Value + 1
    
18.                                     End If
    
19.                                 ActiveWorkBook.WorkbookSet.ReleaseLock()
    
20.                         End Sub
    
21.                
    
22.                         XHTimer.Start()'开始计时器
    
23.                 End If
    
24. 
    
25.        End Sub'按钮/标签点击事件

复制代码

快表VBA倒计时

显示倒计时的一个VBA

效果：





VBA代码：

1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                 If String.Equals(e.Shape.Name,"Button 1") = True Then
   
3.                         e.Shape.Visible = False
   
4.                         Range("C2").Value = 0
   
5. 
   
6.                         ''计时器(避免造成大频率循环造成资源占用)
   
7.                         Dim XHTimer As DispatcherTimer = New DispatcherTimer
   
8.                         XHTimer.Interval = New TimeSpan(0, 0, 0, 1, 0)'60秒
   
9.                         AddHandler XHTimer.Tick, Sub(s1, e1)
   
10. 
    
11.                                 ActiveWorkBook.WorkbookSet.getlock()
    
12.                                 If Range("C2").Value >= 5 Then
    
13.                                         C1MessageBox.Show("时间到！", "快表提示", OK, Information)
    
14.                                         XHTimer.Stop()'停止计时器
    
15.                                         e.Shape.Visible = True
    
16.                                 Else
    
17.                                         Range("C2").Value = Range("C2").Value + 1
    
18.                                     End If
    
19.                                 ActiveWorkBook.WorkbookSet.ReleaseLock()
    
20.                         End Sub
    
21.                
    
22.                         XHTimer.Start()'开始计时器
    
23.                 End If
    
24. 
    
25.        End Sub'按钮/标签点击事件

复制代码