在嵌套if語句不工作時退出子版

Question

我正在嘗試編寫一些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 

代碼的偉大工程爲止！