語法在VBA中的錯誤

Question

我不斷收到錯誤（要麼沒有if或沒有做循環），我真的不知道爲什麼......任何人都可以幫忙？！謝謝！

Do Until (Range("I4").Value = 0) 

    For i = 2 To lLastrow 

       If Range("G" & i).Value = 0 Then 
        i = i + 1 

       ElseIf Range("G" & i).Value < 0 Then 
         Do Until (Range("G" & i).Value = 0) 
         For j = 0 To i 
         If Range("F" & i - j).Value < 0 Then 
           Range("F" & i - j).Value = Range("F" & i - j).Value + 1 
           Else: j = j + 1 
           End If 
          Application.Calculate 
         Loop 
        ElseIf Range("G" & i).Value > 0 Then 
         Do Until (Range("G" & i).Value = 0) 
          For k = 0 To i 
          If Range("F" & i - k).Value > 0 Then 
           Range("F" & i - k).Value = Range("F" & i - k).Value - 1 
            Else: k = k + 1 
            End If 
           Application.Calculate 
         Loop 
       End If 


      Application.Calculate 
Loop 

Answer 1

你缺少Next語句你For循環

試試下面的代碼

Do Until (Range("I4").Value = 0) 

    For i = 2 To lLastrow 
     If Range("G" & i).Value = 0 Then 
     i = i + 1 
     ElseIf Range("G" & i).Value < 0 Then 
     Do Until (Range("G" & i).Value = 0) 
      For j = 0 To i 
      If Range("F" & i - j).Value < 0 Then 
       Range("F" & i - j).Value = Range("F" & i - j).Value + 1 
      Else 
       j = j + 1 
      End If 
      Application.Calculate 
      Next'You missed this 
     Loop 
     ElseIf Range("G" & i).Value > 0 Then 
      Do Until (Range("G" & i).Value = 0) 
      For k = 0 To i 
       If Range("F" & i - k).Value > 0 Then 
       Range("F" & i - k).Value = Range("F" & i - k).Value - 1 
       Else 
       k = k + 1 
      End If 
      Application.Calculate 
      Next 'You missed this 
      Loop 
     End If 

     Application.Calculate 
    Next 'You missed this 
Loop 

Answer 2

嘗試與你有什麼替換下面的代碼。您的For循環中的每一個都缺少Next。 Do和Loop走在一起，類似地For和Next走在一起（他們形成循環的基礎）。

下面是代碼，我已經清除了它，以便更容易地遵循。

Do Until (Range("I4").Value = 0) 
    For i = 2 To lLastrow 
     If Range("G" & i).Value = 0 Then 
      i = i + 1 
     ElseIf Range("G" & i).Value < 0 Then 
      Do Until (Range("G" & i).Value = 0) 
       For j = 0 To i 
        If Range("F" & i - j).Value < 0 Then 
         Range("F" & i - j).Value = Range("F" & i - j).Value + 1 
        Else 
         j = j + 1 
        End If 
        Application.Calculate 
       Next j 
      Loop 
     ElseIf Range("G" & i).Value > 0 Then 
      Do Until (Range("G" & i).Value = 0) 
       For k = 0 To i 
        If Range("F" & i - k).Value > 0 Then 
         Range("F" & i - k).Value = Range("F" & i - k).Value - 1 
        Else 
         k = k + 1 
        End If 
        Application.Calculate 
       Next k 
      Loop 
     End If 
    Next i 
    Application.Calculate 
Loop 

Answer 3

這就是爲什麼適當和一致壓痕事項：

Do Until (Range("I4").Value = 0) 
| For i = 2 To lLastrow 
| | If Range("G" & i).Value = 0 Then 
| | | i = i + 1 
| | ElseIf Range("G" & i).Value < 0 Then 
| | | Do Until (Range("G" & i).Value = 0) 
| | | | For j = 0 To i 
| | | | | If Range("F" & i - j).Value < 0 Then 
| | | | | | Range("F" & i - j).Value = Range("F" & i - j).Value + 1 
| | | | | Else 
| | | | | | j = j + 1 
| | | | | End If 
| | | | | Application.Calculate 
| | | | Next '<<<<<<< MISSING!! 
| | | Loop 
| | ElseIf Range("G" & i).Value > 0 Then 
| | | Do Until (Range("G" & i).Value = 0) 
| | | | For k = 0 To i 
| | | | | If Range("F" & i - k).Value > 0 Then 
| | | | | | Range("F" & i - k).Value = Range("F" & i - k).Value - 1 
| | | | | Else 
| | | | | | k = k + 1 
| | | | | End If 
| | | | | Application.Calculate 
| | | | Next '<<<<<<< MISSING!! 
| | | Loop 
| | End If 
| | Application.Calculate 
| Next '<<<<<<< MISSING!! 
Loop 

現在，你有6級嵌套在這裏，和頗多重複。這就是你需要重構和提取物的過程從內嵌套的代碼，以消除冗餘，提高了代碼的可讀性和可維護性的標誌（一個修改應該意味着一個位置更改代碼）。

如果您的代碼按預期工作，我建議您將它（整個過程，甚至整個模塊！）帶到Code Review進行清理，並提示如何提高和強化您的代碼（例如， t經常需要Calculate，而且不合格的Range調用隱式引用活動工作表 - 這可能會在以後引發意外的錯誤！）。