在嵌套的if语句不工作的情况下退出Sub

我试图写一些VBA代码，我几乎所有的工作都很好。 我只需要一点帮助。

这是我的代码：

'input if supervisor=fill in supervisor missing If UserForm1.superbox.Text = "Fill In Supervisor" Then If UserForm1.fillbox.Text = "(Fill In Supervisor)" or UserForm1.fillbox.Text = "" Then MsgBox ("Please Enter a Fill In Supervisor.") Exit Sub End If End If 

在这些条件下运行后， Exit Sub失败。

Answer 1

我搞砸了一段时间，我想出了：

  'input if supervisor=fill in supervisor missing Dim fis As Boolean fis = False If UserForm1.superbox.Text = "Fill In Supervisor" Then While Not fis If UserForm1.fillbox.Text = "(Fill In Supervisor)" Or UserForm1.fillbox.Text = "" Then MsgBox ("Please Enter a Fill In Supervisor.") Exit Sub ElseIf UserForm1.fillbox.Text <> "(Fill In Supervisor)" Or UserForm1.fillbox.Text <> "" Then fis = True End If Wend End If 

代码工作到目前为止！