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

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

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
3、运行结果如下图所示,当未超过3次时,要求重复输入字符;当超过3次时,将退出程序。