[已解决][求助]代码的疑惑

hxgfkfb

代码如下：

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:24

C1,是一个相当于标题的样子。如果符合If BL = 30 Then GoTo C，那么运行CL下的代码。

跳转到最佳答案楼层

jbh121

C1,是一个相当于标题的样子。如果符合If BL = 30 Then GoTo C，那么运行CL下的代码。

hxgfkfb

回复 jbh121 的帖子

谢谢，学习了！！                 

那么的帅

回复 hxgfkfb 的帖子

1. '问题：1、 “ C1：”是什么意思？代表什么意义？有的代码写的是数字，如：“100：”
   
2. '解答： C1 在这里是 行标签或行号的意思。通过这个标签或者行号来决定代码所在的位置。C1 和100 只是不同的表示方法。
   
3. '2、为什么从“If BL = 30 Then GoTo Cl ” ，到“C1：”要这样写代码？
   
4. '解答：当BL=30时，过程 转到 C1 标签处开始继续往下执行
   
5. '注意 太多的 GoTo 语句，会使程序代码不容易阅读及调试。尽可能使用结构化控制语句(Do...Loop、For...Next、If...Then...Else、Select Case)。
   
6. 
   

复制代码

hxgfkfb

回复 那么的帅 的帖子

十分感谢那么的帅老师详细的讲解，让我在VBA学习中又前进了一步。可惜不能再多设一个“最佳答案”了