有没有一种方法可以使用宏在两个不同的行之间切换

Question

我正在尝试使用切换开关在隐藏两行之间进行切换。我想按下按钮以显示一行并且隐藏另一行，然后当不按下按钮时显示另一行并且隐藏第一行。

我创建了两个切换按钮以分别隐藏行，但我真的很想只有一个切换按钮来完成任务。

Private Sub ShowHideNexgenRent_Click()
Dim MyR As String
MyR = "17"

If ShowHideNexgenRent.Value Then
Application.ActiveSheet.Rows(MyR).Hidden = True
Else
Application.ActiveSheet.Rows(MyR).Hidden = False
End If
End Sub


Private Sub ShowHideNexgen_Click()
Dim MyR As String
MyR = "18"

If ShowHideNexgen.Value Then
Application.ActiveSheet.Rows(MyR).Hidden = True
Else
Application.ActiveSheet.Rows(MyR).Hidden = False
End If
End Sub

获得此代码后，我无法同时隐藏两行。