收到一个编译错误 – 没有下一个
我们build立了一个估算系统，当我们向客户发送报价时，我们可以把这些估算系统带到现场，而我正在处理的工作表是我现场收集的所有数据都编译成样式并提供给我们的客户。 我有多个估算人工作这个模板，所以自动化是关键。 我创build了一个HURows（）macros，可以用于另一张表单，但是这次我收到一个编译错误，指出“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 你已经使用没有下一步。
for-next的结构是like-
For i= 1 to 100 ......do something.... Next i
查看此链接 。 在你最后一次End If之后你错过了Next 。
Google是我的朋友。