鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 网络程序脚本 > VBA > >

Excel VBA 循环“我中毒了~”

来源:互联网 作者:佚名 时间:2015-09-27 08:20
Dim Runtime As Date Sub RunTimer() Runtime=Now()+TimeValue( 00:00:01 ) Application.OnTimeRuntime, my_Procedure End Sub Sub my_Procedure() Static count As Integer count=count+1 For i=1 To 10 For j=1 To 20 Cells(i+(count-1)*10,j)= 我 中毒 了
  1. Dim Runtime As Date 
  2.  
  3. Sub RunTimer() 
  4.     Runtime = Now() + TimeValue("00:00:01"
  5.     Application.OnTime Runtime, "my_Procedure" 
  6. End Sub 
  7.  
  8. Sub my_Procedure() 
  9.     Static count As Integer 
  10.     count = count + 1 
  11.     For i = 1 To 10 
  12.         For j = 1 To 20 
  13.             Cells(i + (count - 1) * 10, j) = "我中毒了~~~~" 
  14.             Cells(i + (count - 1) * 10, j).Font.Color = vbRed 
  15.             Cells(i + (count - 1) * 10, j).Font.Size = 10 
  16.         Next 
  17.     Next 
  18.     If count = 10 Then 
  19.         Exit Sub 
  20.     End If 
  21.  
  22.     RunTimer 
  23. End Sub 

就是一个在单元格中的循环,按时间来循环,每过1秒钟进行一个循环~

为了不让其无限循环下去,设置了循环10次即退出~

 

 

吃饭倒计时:

  1. Dim Runtime As Date 
  2.  
  3. Sub RunTimer() 
  4.     Runtime = Now() + TimeValue("00:00:01"
  5.     Application.OnTime Runtime, "my_Procedure" 
  6. End Sub 
  7.  
  8. Sub my_Procedure() 
  9.     Cells(1, 2) = Format(Now(), "h:mm:ss"
  10.     Cells(2, 2) = "18:00:00" 
  11.     Cells(3, 2) = Format(Cells(2, 2) - Cells(1, 2), "h:mm:ss"
  12.     Cells(4, 2) = Format(TimeValue("18:00:00") - TimeValue(Now()), "h:mm:ss"
  13.     RunTimer 
  14. End Sub 

 

网友评论
<