Question

请教大神怎么将两个判断的sub连接起来

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" And Target.Value <> "" Then
Sheet6.Visible = 1
Else
Sheet6.Visible = 0
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$7" And Target.Value <> "" Then
Sheet7.Visible = 1
Else
Sheet7.Visible = 0
End If
End Sub
请教大神要怎么把这两个sub连接起来，两个执行的时候互不影响

Answer 1

调用时候直接把这两个函数写上就行 或者也可以合并成一个

追问

不行 会出现这个

追答

把函数的名字一个改一下，两个重复了。

改一下就没有问题了

追问

但是我是分别要判断两次的，写成一个的话不是会互相干扰

追答

单次调用，但是他还是分两次执行。因为你是两个函数调用的。

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)

If (Target.Address = "$F$6" And Target.Value <> "") or (Target.Address = "$F$7" And Target.Value <> "") Then
Sheet7.Visible = 1
Else
Sheet7.Visible = 0
End If
End Sub