触发事件如何写成循环语句

lcfj008

如果A1内容为“下岗”则隐藏第2、3行，否则不隐藏，如果A4内容为“下岗”则隐藏第5、6行，否则不隐藏***依次类推
代码如下，但不知如何写成循环语句，请高手指点一下。谢谢！

1. Private Sub Worksheet_Change(ByVal target As Range)
   
2. Select Case target.Address
   
3. 
   
4. Case Is = "$A$1"
   
5. If target = "下岗" Then
   
6. ActiveSheet.Range(Rows(2), Rows(3)).Hidden = True
   
7. Else
   
8. ActiveSheet.Range(Rows(2), Rows(3)).Hidden = False
   
9. End If
   
10. 
    
11. Case Is = "$A$4"
    
12. If target = "下岗" Then
    
13. ActiveSheet.Range(Rows(5), Rows(6)).Hidden = True
    
14. Else
    
15. ActiveSheet.Range(Rows(5), Rows(6)).Hidden = False
    
16. End If
    
17. 
    
18. End Select
    
19. End Sub

复制代码

lcfj008

当判断需执行很多条时，如需判断100条。那么循环语句应该怎么写。

燕雀安知

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count > 1 Then Exit Sub
        If .Column <> 1 Then Exit Sub
        If (.Row + 2) Mod 3 = 0 Then
            If .Value = "下岗" Then
                .Offset(1).Resize(2).EntireRow.Hidden = True
            Else
                .Offset(1).Resize(2).EntireRow.Hidden = False
            End If
        End If
    End With
End Sub

lcfj008

非常感谢！受教了！

lcfj008

鸿鹄！
这句话不明白说明意思，谢谢！
If (.Row + 2) Mod 3 = 0 Then