Question

VBA中过程与函数调用问题

大家好，自学VBA编程有些时间了，但是VBA中过程（函数）的调用用Exit sub或Exit function无法退出调用原调用的整个过程！！如：sub a() \ c=inputbox("请输入数c") \ call b \ d=c+2 \end sub\ sub b() \ if c>0 then \ exit sub \ else \ c=2*c \end if \end sub ,以上中的\表示回车换行符，我想实现的功能是在调用Call b过程中，如果c>0,我不仅要退出b过程还要退出a过程!!这个功能也就是想实现VBA中某些单元格的输入判定，比如单元格只能是数字或者不能是空等，然后在所要计算的程序中用调用过程！！我做过调用的，但是效果不理想，只能退出调用过程，调用后面的程序会继续运行！！请高手不吝赐教，我没分了，以后我会补上的，谢谢！！
一楼的朋友谢谢，你的功能虽然能满足，但不是那样的，我希望的是在b过程中就跳出所有过程，就像VB中的公共函数，避免调用后的语句运行，可以用End语句结束，，VBA中好像不能用End语句吧！！朋友，还是谢谢你的热心帮助！

Answer 1

sub a()
c=inputbox("请输入数c")
call b
if c<>2*c then exit sub //加上这句就可以了，因为你b过程修改的是c值，如果c没变就推出
d=c+2
end sub

sub b()
if c>0 then exit sub
else c=2*c
end if
end sub ,

Answer 2

end
强迫中止程序
---------------------试试下面的代码---------------------
Sub a()
c = InputBox("请输入数c")
Call b(c)
MsgBox c
End Sub

Sub b(c)
If c > 0 Then End
c = 2 * c
End Sub

Answer 3

VBA中能用End语句

End 语句示例
本示例使用 End 语句，在用户输入错误密码时结束代码执行。

Sub Form_Load
Dim Password, Pword
PassWord = "Swordfish"
Pword = InputBox("Type in your password")
If Pword <> PassWord Then
MsgBox "Sorry, incorrect password"
End
End If
End Sub

Answer 4

可以用END