Question

excel vba msgbox问题？

excel msgbox问题，代码一没有问题：
if c.Value Like str1 Then
msg = "实际"
Title = "查询结果"
MsgBox msg, , Title
代码二加了else就有问题了，msgbox一直关不掉了，不知道哪里出了问题
if c.Value Like str1 Then
msg = "实际"
Title = "查询结果"
MsgBox msg, , Title
Else
MsgBox "请输入正确的料号", , "查询结果"

Answer 1

比较你的代码一和代码二，问题很明显，出现了else的情况，你怎么解决c.value重新输入的问题。

有两种解决方法，前提都是你整个代码(这里没明空有激码瞎全部显示出来)设置了循环或跳转，导致一直在检查c.value,每检查一次都不符合自然一直显示后面那个msgbox

---

1. 方法一，在后面那个msgbox下面一句加上exit sub，料号输错情况下强行跳出宏。
2. 方法二，后面那个msgbox不要用，改成c.value=inputbox("请输入正确的料号","查询结果")，再跳转到正确料号后要执行的操作。可能你IF和ELSE IF两部分要交换位置模销。

---

欢迎追问，感谢关注。