Question

If T = Empty Or SGg = Empty Or mugi = Empty Or Bgi = Empty Or xe = Empty Or _
   Area = Empty Or hres = Empty Or phires = Empty Or Sgi = Empty Or _
   kres = Empty Or pbari = Empty Or zi = Empty Or xf = Empty Or wf = Empty Or _
   Hf = Empty Or tauyhb = Empty Or nhb = Empty Or khb = Empty Or Tsc = Empty _
   Or psc = Empty Or Tsurf = Empty Or psurf = Empty Then _
   MsgBox ("Provide all the missing data on 'INPUT' sheet and in field units")
       Exit Sub
End If

问题：我收到上面代码行End if without block if的错误消息。我在代码中没有看到任何问题。

Answer 1

这里有两个选择。像你一样把它全部放在一行上，但删除end if（单行版本的VBA的IF / THEN语句不接受它）。或者，您可以在Then关键字之前添加换行符，在End If之前添加换行符。

Answer 2

显然你需要在“然后”

之后换一个新行

如果声明＆＃34;错误消息如果没有阻止则结束如果＆＃34;

2 个答案: