关于if和msgbox一起用出错

12111683 · 发表于 2019-12-21 00:02

If a+b>10
Then MsgBox "请输入正确范围！"
End sub
Else
...
...
End If

我的意思是a+b>10结束程序，<10的时候继续往下运行，但是总出错，不知道哪里有问题了。加end就不往下运行，不加就提示没 if

abc123281 · 发表于 2019-12-21 09:15

以后建议上传附件和完整代码，这样老师们看了才知道你的错误在哪儿
以下代码仅供参考
Sub test()
Dim a%, b%
a = InputBox("请输入a值")
b = InputBox("请输入b值")
If a + b > 10 Then
MsgBox "请输入正确范围！"
Else
'写入执行代码
End If
End Sub

12111683 · 发表于 2019-12-21 10:37

abc123281 发表于 2019-12-21 09:15
以后建议上传附件和完整代码，这样老师们看了才知道你的错误在哪儿
以下代码仅供参考
Sub test()

谢谢老师，我找到原因了 then和msgbox不能在同一行

		自动登录	找回密码
密码			免费注册