码迷,mamicode.com
首页 > 其他好文 > 详细

excel中的goto

时间:2017-10-05 12:15:13      阅读:135      评论:0      收藏:0      [点我收藏+]

标签:excel vba goto

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




excel中的goto

标签:excel vba goto

原文地址:http://gzkhrh.blog.51cto.com/30447/1970419

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!