求教inputbox和msgbox的问题
我用inputbox输入内容,判断值是否为空,若空,则msgbox警告不能为空值。接下来的步骤是我想msgboxresult为retry,则返回到inputbox,若为cancel则exit sub程序代码:
dim input as string input= inputbox("请输入内容") if input ="" then msgbox("内容不能为空",5) .......... end if
......省略号部分我再网上找了个select case的语句,
case 0 msgboxresult.retry=true
input= inputbox("请输入内容")
case 1 msgboxresult.cancle=true
exit sub
请高手帮我看看能不能改进下,总感觉比较繁琐。特别是红字的部分不能用什么函数直接返回到inputbox界面。虚心请教各位,谢谢