Excel VBA ---之go to 语句使用

1、龅歧仲半打开VBE，编写代码：实现功能：在限制次数内，输入正确的数字；Sub goToLine()Dim i%Dim str$line:i 租涫疼迟= i + 1If i > 3 Then Exit Substr = InputBox("请输入!")If str <> "123" Then GoTo line '指定跳转到的行；End Sub

2、点击插入--形状，选择一个形状；4、选择形状，右键指定宏，选择刚刚定义的宏goToLine；

3、运行结果如下图所示，当未超过3次时，要求重复输入字符；当超过3次时，将退出程序。