我试图根据工作簿中一个特定单元格的变化运行一个宏。我已经在单元格上进行了数据验证,以确保输入了正确的数据,但是代码不起作用。
据我了解,此事件不起作用,因为它在ThisWorkbook模块中,或者该单元格需要计算。它应该在工作表中受代码影响。我认为代码中的thisWorkbook不被视为工作簿模块(如果我错了,请纠正我)。如果删除数据验证,则代码有效。下拉菜单中的新选择是否不符合选择更改的条件?是否可以在事件更改中使用数据验证?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B5")) Is Nothing Then
With ThisWorkbook.Worksheets("Team Review")
If Cells(19, "C") = 0 Or Cells(19, "C") = "" Then
Columns("C").EntireColumn.Hidden = True
Else: Columns("C").EntireColumn.Hidden = False
End If
end with
end if