VBA代码无法使用Private Sub Worksheet_Change Function工作

我正试图使用单元格E73中的选择来隐藏或显示两个不同选项卡上的行。我下面的vba代码只适用于一个选项卡，不能同时适用于两个选项卡。你能指出我的问题在哪里吗？感谢您的帮助。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.CountLarge > 1 Then Exit Sub
Select Case Target.Address(0, 0)
Case "E73"
Set rng1 = Sheets("Proposal").Rows("349:403")
Set rng2 = Sheets("Binder").Rows("350:404")
Case "E128"
Set rng1 = Sheets("Proposal").Rows("404:462")
Set rng2 = Sheets("Binder").Rows("405:463")
End Select
If rng Is Nothing Then Exit Sub
Select Case Target.Value
Case "Included"
rng1.Hidden = False
rng2.Hidden = False
Case "Excluded"
rng1.Hidden = True
rng2.Hidden = True
End Select
End Sub

If rng Is Nothing Then Exit Sub

这是始终True，因为rng从来都不是Set。

关于你想要什么的猜测：

Select Case Target.Address(0, 0)
Case "E73"
Set rng1 = Sheets("Proposal").Rows("349:403")
Set rng2 = Sheets("Binder").Rows("350:404")
Case "E128"
Set rng1 = Sheets("Proposal").Rows("404:462")
Set rng2 = Sheets("Binder").Rows("405:463")
Case Else
Exit Sub
End Select
Select Case Target.Value
Case "Included"
rng1.Hidden = False
rng2.Hidden = False
Case "Excluded"
rng1.Hidden = True
rng2.Hidden = True
End Select
End Sub

相关内容

最新更新

热门标签：