第1个回答 2021-09-28
'按ALT+F11-粘贴代码-将表格另存为启用宏的格式
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b2") = "Y" Then
Rows("6:6").Hidden = True
Rows("10:10").Hidden = True
Rows("4:4").Hidden = False
Else
If Range("a2") = "X" Or Range("a2") = "Y" Or Range("a2") = "Z" Then
Rows("4:4").Hidden = True
Rows("6:6").Hidden = False
Rows("10:10").Hidden = False
Else
Rows("4:10").Hidden = False
End If
End If
End Sub