收到一個編譯錯誤 - 對於沒有下一個

我有一個建立估計系統，我們可以在現場提供報價給客戶，我正在處理的工作表是我收集的所有數據在現場編譯和被風格傳遞給我們的客戶。我有多個估算器來處理這個模板，所以自動化是關鍵。我創建了一個HURows（）宏，它可以用於我的另一張表單，但是這次我收到一個編譯錯誤，指出「For Without Next」。收到一個編譯錯誤 - 對於沒有下一個

Sub HURows() 
    BeginRow = 192 
    EndRow = 277 
    ChkCol = 22 

    For RowCnt = 192 To 196 
     If Cells(193, 22).Value = 0 Then 
      Cells(192, 22).EntireRow.Hidden = True 
      Cells(193, 22).EntireRow.Hidden = True 
      Cells(194, 22).EntireRow.Hidden = True 
      Cells(195, 22).EntireRow.Hidden = True 
      Cells(196, 22).EntireRow.Hidden = True 
      Cells(242, 22).EntireRow.Hidden = False 
      Cells(243, 22).EntireRow.Hidden = False 
      Cells(244, 22).EntireRow.Hidden = False 
      Cells(245, 22).EntireRow.Hidden = False 
     Else 
      Cells(192, 22).EntireRow.Hidden = False 
      Cells(193, 22).EntireRow.Hidden = False 
      Cells(194, 22).EntireRow.Hidden = False 
      Cells(195, 22).EntireRow.Hidden = False 
      Cells(196, 22).EntireRow.Hidden = False 
      Cells(242, 22).EntireRow.Hidden = True 
      Cells(243, 22).EntireRow.Hidden = True 
      Cells(244, 22).EntireRow.Hidden = True 
      Cells(245, 22).EntireRow.Hidden = True 
     End If 
     If Cells(194, 22).Value = 0 Then 
      Cells(194, 22).EntireRow.Hidden = True 
      Cells(195, 22).EntireRow.Hidden = True 
      Cells(243, 22).EntireRow.Hidden = False 
      Cells(244, 22).EntireRow.Hidden = False 
     Else 
      Cells(194, 22).EntireRow.Hidden = False 
      Cells(195, 22).EntireRow.Hidden = False 
      Cells(243, 22).EntireRow.Hidden = True 
      Cells(244, 22).EntireRow.Hidden = True 
     End If 
     If Cells(195, 22).Value = 0 Then 
      Cells(195, 22).EntireRow.Hidden = True 
      Cells(245, 22).EntireRow.Hidden = False 
     Else 
      Cells(195, 22).EntireRow.Hidden = False 
      Cells(245, 22).EntireRow.Hidden = True 
     End If 
     If Cells(198, 22).Value = 0 Then 
      Cells(197, 22).EntireRow.Hidden = True 
      Cells(198, 22).EntireRow.Hidden = True 
      Cells(199, 22).EntireRow.Hidden = True 
      Cells(246, 22).EntireRow.Hidden = False 
      Cells(247, 22).EntireRow.Hidden = False 
     Else 
      Cells(197, 22).EntireRow.Hidden = False 
      Cells(198, 22).EntireRow.Hidden = False 
      Cells(199, 22).EntireRow.Hidden = False 
      Cells(246, 22).EntireRow.Hidden = True 
      Cells(247, 22).EntireRow.Hidden = True 
     End If 
     If Cells(201, 22).Value = 0 Then 
      Cells(200, 22).EntireRow.Hidden = True 
      Cells(201, 22).EntireRow.Hidden = True 
      Cells(202, 22).EntireRow.Hidden = True 
      Cells(203, 22).EntireRow.Hidden = True 
      Cells(204, 22).EntireRow.Hidden = True 
      Cells(248, 22).EntireRow.Hidden = False 
      Cells(249, 22).EntireRow.Hidden = False 
      Cells(250, 22).EntireRow.Hidden = False 
      Cells(251, 22).EntireRow.Hidden = False 
     Else 
      Cells(200, 22).EntireRow.Hidden = False 
      Cells(201, 22).EntireRow.Hidden = False 
      Cells(202, 22).EntireRow.Hidden = False 
      Cells(203, 22).EntireRow.Hidden = False 
      Cells(204, 22).EntireRow.Hidden = False 
      Cells(248, 22).EntireRow.Hidden = True 
      Cells(249, 22).EntireRow.Hidden = True 
      Cells(250, 22).EntireRow.Hidden = True 
      Cells(251, 22).EntireRow.Hidden = True 
     End If 
     If Cells(202, 22).Value = 0 Then 
      Cells(202, 22).EntireRow.Hidden = True 
      Cells(250, 22).EntireRow.Hidden = False 
     Else 
      Cells(200, 22).EntireRow.Hidden = False 
      Cells(202, 22).EntireRow.Hidden = False 
      Cells(248, 22).EntireRow.Hidden = True 
      Cells(250, 22).EntireRow.Hidden = True 
      Cells(204, 22).EntireRow.Hidden = False 
     End If 
     If Cells(203, 22).Value = 0 Then 
      Cells(203, 22).EntireRow.Hidden = True 
      Cells(251, 22).EntireRow.Hidden = False 
     Else 
      Cells(200, 22).EntireRow.Hidden = False 
      Cells(203, 22).EntireRow.Hidden = False 
      Cells(248, 22).EntireRow.Hidden = True 
      Cells(251, 22).EntireRow.Hidden = True 
      Cells(204, 22).EntireRow.Hidden = False 
     End If 

End Sub

來源

2014-11-05 Matthew Smith

一般的結構，它是在這裏一致認爲，[你不應該使用問候或者稱呼在您的文章（http://meta.stackoverflow.com /問題/ 276033 /毫無意義的，問題編輯/ 276037＃276037）。他們妨礙我們讀者找出真正的問題。這次我爲你編輯了它們。 – 2014-11-05 17:01:22

閱讀錯誤信息中的**字樣**。他們正確地告訴你*你有什麼問題。 – 2014-11-05 17:01:59

這甚至不是一個不匹配的'If'，你實際上只是缺少一個'Next' - 亞歷克斯K的這一切。 – 2014-11-05 17:06:01

查看這個link。您在最後的End If後缺少Next。

Google is my friend.

來源

2014-11-05 17:15:23

您已經使用對於沒有未來。

的換接下來就是喜歡 -

For i= 1 to 100 

......do something.... 

Next i

來源

2014-11-05 17:17:21

收到一個編譯錯誤 - 對於沒有下一個

回答

相關問題