EXCEL VBA:Return语句

2013-09-20 16:34 阅读 754 次 评论关闭

excel中也常使用Return语句,下面是其使用示例。

Sub GosubNext()

Dim Num

' 输入一个数字。

Num = InputBox("请输入一个正整形的数?")

' 如果输入是一个正整型,则使用子程序。

If Num > 0 Then GoSub MyNext

Debug.Print Num

Exit Sub    ' 使用 Exit 命令来避免错误发生。

MyNext:

Num = Num/3    ' 将数除以3。

Return

' 将控制返回 GoSub 之后的语句。

End Sub

代码解释:

本示例使用 GoSub 来调用子过程里的一段子程序。Return 语句则将执行返回到 GoSub 的下一个语句。Exit Sub 语句则是用来避免控制意外进入该子程序的情形发生。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:EXCEL VBA:Return语句 | 猎微网
分类:Excel VBA 标签:, ,

评论已关闭!