代码如下:
Sub tt() 'tt 过程 Dim myNow As Date, BL As Integer '定义myNow为日期型;定义BL为长整型 myNow = Now '把当前的时间赋给变量myNow Do '开始循环语句Do BL = Second(Now) - Second(myNow) '循环中不断检查变量BL的值 If BL = 30 Then GoTo Cl '当BL=30即跳转到CL DoEvents '转让控制权,以便sheets可继续操作 Loop Until BL > 30 '当BL>30即跳出循环 Exit Sub Cl: Application.EnableEvents = False '避免引起其他事件 ActiveWorkbook.Close True '关闭活动工作簿并保存 Application.EnableEvents = True
End Sub
问题:1、 “ C1:”是什么意思?代表什么意义? 有的代码写的是数字,如:“100:”
2、为什么从“If BL = 30 Then GoTo Cl ” ,到“C1:”要这样写代码?
感谢高手详细解释一下!谢谢!
本帖最后由 jbh121 于 2011-7-26 16:25 编辑
C1,是一个相当于标题的样子。如果符合If BL = 30 Then GoTo C,那么运行CL下的代码。
|