ThisWorkbook或DataValidation引起了问题

时间:2019-09-13 12:23:34

标签: excel vba

我试图根据工作簿中一个特定单元格的变化运行一个宏。我已经在单元格上进行了数据验证,以确保输入了正确的数据,但是代码不起作用。

据我了解,此事件不起作用,因为它在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

0 个答案:

没有答案