VBA投擲「其他沒有，如果」錯誤

Question

我正在嘗試下面的代碼，它反覆拋出'如果沒有如果'和類似的錯誤。我只是不知道錯誤在哪裏，因爲每個if都被正確終止。

下面是代碼：

Sub hra_macro() 

Dim city As Boolean 
Dim salary As Integer 
Dim varHRA As Integer 
Dim mimHRA As Integer 
Dim maxHRA As Integer 
Dim A As Integer 
Dim B As Integer 
Dim Rent As Integer 

city = Range("b1").Value 
salary = Range("b2").Value 
Rent = Range("b3").Value 

If city = True Then 

varHRA = 0 

    A = Rent - (salary/10) 
    B = salary * 0.5 
    Do While varHRA < salary 
     varHRA = varHRA + 1 
      If (varHRA < A And varHRA < B) Then 
      minHRA = varHRA 
      End If 
      If (A < varHRA And A < B) Then 
      minHRA = A 
      End If 
      If (B < varHRA And B < A) Then 
      minHRA = B 
      End If 
      If minHRA > maxHRA Then 
      maxHRA = minHRA 
      End If 
    Exit Do 
Else '<<<<<<<<<<<<<<<<<<<< PROBLEM AREA 

varHRA = 0 

    A = Rent - (salary/10) 
    B = salary * 0.4 
    Do While varHRA < salary 
     varHRA = varHRA + 1 
     If (varHRA < A And varHRA < B) Then 
     minHRA = varHRA 
     End If 
     If (A < varHRA And A < B) Then 
     minHRA = A 
     End If 
     If (B < varHRA And B < A) Then 
     minHRA = B 
     End If 
    If minHRA > maxHRA Then 
    maxHRA = minHRA 
    End If 
    Exit Do 
End If 

Range("b4").Value = maxHRA 

End Sub 

Answer 1

的If看看行不行給我的第一眼，但我注意到，這兩個Do s的缺少Loop。

它應該是這樣的：

Do While varHRA < salary 
    'Do Stuff 
Loop 

Exit Do用來退出循環前的While背後的情況是真實的，但你總是需要Loop關鍵字。

如果問題仍然存在，請發佈您收到的確切錯誤消息。

---

編輯：

我只是想重現您的問題在VBA在MS Access（我沒有安裝這臺機器上的Excel，僅接入）：

Public Function Test() 

    If 1 = 0 Then 

     Do While 1 = 0 

      Stop 

     Exit Do 

    Else 

     Stop 

    End If 

End Function 

這段簡單的代碼給了我你得到的完全相同的錯誤信息：

Compile error: Else without If

當我將Exit Do替換爲Loop時，錯誤消失，編譯代碼。

所以，你應該在代碼中用Loop代替Exit Do。

Answer 2

看起來像使用'Exit Do'而不是'Loop'。 '退出'將退出Do循環，這是你想要這樣做的方式嗎？