[已解决]如果先解决一个IF后再让程序检查下一个IF。

silenthunter

判断和解决.rar (8.28 KB, 下载次数: 1)

2012-12-29 11:56 上传

点击文件名下载附件

Private Sub ok_Click()

'  用trim函数判断文本框的内容是否只有空格或者没输入内容。
If Trim(TextBox_name) = "" Then
MsgBox "姓名不允许只输入空格或者无内容。   ", vbCritical + vbOKOnly
TextBox_name = "": TextBox_name.SetFocus
End If

'  判断文本框输入的是否为数字以及数字范围。
If TextBox_age < 18 Or TextBox_age > 65 Then
MsgBox "年龄不允许小于18岁或者大于65岁。", vbCritical + vbOKOnly
TextBox_age = "": TextBox_age.SetFocus
End If

End Sub

如果没按要求输入第1个文本框的内容程序会提示，我希望程序此时会留在第1个文本框里直到用户解决问题。但程序按从上到下的顺序继续检查下一个文本框。我尝试用DO LOOP如下，结果就一直提示msgbox，没机会让用户修改。
DO
If Trim(TextBox_name) = "" Then
MsgBox "姓名不允许只输入空格或者无内容。   ", vbCritical + vbOKOnly
TextBox_name = "": TextBox_name.SetFocus
End If
LOOP unitl not Trim(TextBox_name) = ""

最佳答案

月排行榜 / 总排行榜

490540970

2012-12-29 12:18

END IF 前加一句：EXIT SUB 即可

跳转到最佳答案楼层

490540970

END IF 前加一句：EXIT SUB 即可

无聊的疯子

除了2楼上的方法还可以把你的第二个 if 改为

elseif

这样就成了一句代码了!!

silenthunter

无聊的疯子 发表于 2012-12-29 17:07
除了2楼上的方法还可以把你的第二个 if 改为

elseif

谢谢指导。这个方法我也知道，但你不说我也忘了。

从理论上讲，一个if elseif运行速度会不会比多个单独的if运行得快？

无聊的疯子

silenthunter 发表于 2012-12-29 17:13
谢谢指导。这个方法我也知道，但你不说我也忘了。

从理论上讲，一个if elseif运行速度会不会比多个单独 ...

如果是像这种关系的,相对来说,用 elseif 就将条件分段组合成一个组,
依次运行到一个条件满足的以后,后面的判断就不会在继续了

如果是分开的,则需要添加 退出 代码来终止代码继续运行!!