Excel如何编制按条件隐藏或显示行的宏？

这个只需要 扩展一下就行了，你说的隐藏和显示功能都有了谈困：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then
If Target.Value = "╳" Then
Rows("7:15").Hidden = True
Else
Rows("7:15"含坦念).Hidden = False
End If
End If
If Target.Address = "$D$5" Then
If Target.Value = "╳"信派 Then
Rows("16:20").Hidden = True
Else
Rows("16:20").Hidden = False
End If
End If

End Sub

改为：念察
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "锋棚$D$5" Then
If Target.Value = "√"银高则 Then
Rows(7:15).Hidden = True
End If
End If
End Sub