0
我有一個建立估計系統,我們可以在現場提供報價給客戶,我正在處理的工作表是我收集的所有數據在現場編譯和被風格傳遞給我們的客戶。我有多個估算器來處理這個模板,所以自動化是關鍵。我創建了一個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
一般的結構,它是在這裏一致認爲,[你不應該使用問候或者稱呼在您的文章(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