求救隐藏与展开的VBA语言

ggl5431

一个条件可以满足，多个就不行，求指教

Private Sub Worksheet_Change(ByVal Target As Range)
    Rows("13:19").Hidden = 0
    If Target.Address <> "$B$3" Then Exit Sub
    If Target = "系统设置" Then Rows("13:19").Hidden = 1
End Sub

tyxvba7529

如代码

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3.     If Target.Address = "$B$3" Then
   
4.         If Target = "系统设置" Then
   
5.         Rows("13:19").Hidden = 1
   
6.         Else
   
7.         Rows("13:19").Hidden = 0
   
8.         End If
   
9.     End If
   
10.    
    
11.     If Target.Address = "$E$3" Then
    
12.         If Target = "系统设置" Then
    
13.         Rows("20:26").Hidden = 1
    
14.         Else
    
15.         Rows("20:26").Hidden = 0
    
16.         End If
    
17.     End If
    
18.     If Target.Address = "$H$3" Then
    
19.         If Target = "系统设置" Then
    
20.         Rows("27:32").Hidden = 1
    
21.         Else
    
22.         Rows("27:32").Hidden = 0
    
23.         End If
    
24.     End If
    
25.     If Target.Address = "$K$3" Then
    
26.         If Target = "系统设置" Then
    
27.         Rows("33:37").Hidden = 1
    
28.         Else
    
29.         Rows("33:37").Hidden = 0
    
30.         End If
    
31.     End If
    
32. End Sub
    
33. 
    

复制代码

MOY838840554

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a As Boolean
    If Target.Value = "系统设置" Then a = True Else a = False
   
    If Target.Address = "$B$3" Then
        Rows("13:19").Hidden = a
    ElseIf Target.Address = "$E$3" Then
        Rows("20:26").Hidden = a
    ElseIf Target.Address = "$H$3" Then
        Rows("27:32").Hidden = a
    ElseIf Target.Address = "$K$3" Then
        Rows("33:37").Hidden = a
    End If
End Sub

huanglicheng

供参考

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim mDress$, Rng As Range
   
3.     mDress = Target.Address
   
4.     Select Case mDress
   
5.         Case "$B$3": Set Rng = Rows("13:19")
   
6.         Case "$E$3": Set Rng = Rows("20:26")
   
7.         Case "$H$3": Set Rng = Rows("27:32")
   
8.         Case "$K$3": Set Rng = Rows("33:37")
   
9.     End Select
   
10.     If Not Rng Is Nothing Then Rng.Hidden = Target.Value = "系统设置"
    
11. End Sub
    

复制代码

ggl5431

非常的谢谢各位，可以了，真的谢谢

ggl5431

huanglicheng 发表于 2019-1-15 12:39
供参考

非常谢谢，老铁