goto
1.goto 行标签:vba跳转语句:过程内跳转并执行语句(示例3)
2.application.goto reference :=“语句或者过程名” 一种application方法
执行引用的语句(示例1)或跳转到过程名指定的过程中(并不执行该过程)(示例2)
3.二者不能用混了,否则会出现语法错误
示例1
Sub mm()
Application.Goto Reference:=Sheets("sheet1").Range("b5:e10"), scroll:=True
End Sub
选择指定区域并转到该工作表(不需要先用代码激活该表),scroll决定是否选择的区域滚动显示在
左上角
示例2
Sub RngGoto()
Application.Goto Reference:="mm"
End Sub
光标跳转到指定的过程mm中(并不执行)
****************
示例3(来自excelhome网的网友)
本过程中跳转执行
Sub GotoStatementDemo()
Dim Number, MyString
Number = 1 ‘ 设置变量初始值。
‘ 判断 Number 的值以决定要完成那一个程序区段(以“程序标签”来表式)。
If Number = 1 Then GoTo Line1 Else GoTo Line2
Line1:
MyString = "Number equals 1"
GoTo LastLine ‘ 完成最后一行。
Line2:
‘ 下列的语句根本不会被完成。
MyString = "Number equals 2"
LastLine:
Debug.Print MyString ‘ 将“"Number equals 1"”显示在“立即”窗口。
End Sub
原文地址:http://gzkhrh.blog.51cto.com/30447/1970419