[已解决]简单VBA代码完善

蓝雨清

大家好，我想要的结果是：如果输入框输入的答案是错的话就一直停在输入框输入状态，
直到输入框输入的答案是对的时候才退出输入对话框，请问怎么样能实现

vba代码练习.rar (6.72 KB, 下载次数: 10)

2013-8-7 18:17 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

youfang

2013-8-7 18:25

就加两句代码就可以完成
Sub 输入对话框()
继续: iresult = Application.InputBox(prompt:="请输入5+3的计算结果", Title:="www.excelpx.com")
If iresult = 8 Then
MsgBox "你答对了，真了不起！"
Else
MsgBox "你答错了，再试一次，相信你一定行！"
GoTo 继续
End If
End Sub

跳转到最佳答案楼层

youfang

加个跳转语句

youfang

继续:


goto 继续

蓝雨清

youfang 发表于 2013-8-7 18:21
继续:

不懂，麻烦你老人家帮我写下代码了

youfang

就加两句代码就可以完成
Sub 输入对话框()
继续: iresult = Application.InputBox(prompt:="请输入5+3的计算结果", Title:="www.excelpx.com")
If iresult = 8 Then
MsgBox "你答对了，真了不起！"
Else
MsgBox "你答错了，再试一次，相信你一定行！"
GoTo 继续
End If
End Sub

蓝雨清

youfang 发表于 2013-8-7 18:25
就加两句代码就可以完成
Sub 输入对话框()
继续: iresult = Application.InputBox(prompt:="请输入5+3的计 ...

这么简单你让我发帖？真是的

sliang28

把inputbox写在do循环里面也能实现