excel - Worksheet_Change() 中的 EntireColumn.Hidden

Question

使用 Excel 2010，我正在编辑现有的不 protected 工作簿，并在 Worksheet_Change() 中的命令中创建了 EntireColumn.Hidden 和 EntireRow.Hidden > 当数据验证单元格更改时触发的事件，但它们不起作用。

Private Sub Worksheet_Change(ByVal Target As Range)

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

If Not Intersect(Target, Range("$C$2")) Is Nothing Then
    Select Case Target.Value
        Case "NO"
            MsgBox "You just changed to HIDE"          '<= Proves it fires
            Range("$C$3").Value = "Invisible"          '<= Does change cell
            Columns("N:O").EntireColumn.Hidden = True  '<= Doesn't hide
        Case "YES"
            MsgBox "You just changed to UNHIDE"        '<= Proves it fires
            Range("$C$3").Value = "Visible"            '<= Does change cell
            Columns("N:O").EntireColumn.Hidden = False '<= Doesn't unhide
    End Select
End If

With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With

End Sub

该事件正在触发，因为我有 MsgBoxes 来证明它。我可以更改单元格值等，但不能更改列/行的隐藏/取消隐藏。

我已将代码复制到一本新书中，并且它可以工作。所以我把它复制回原来的书里，但作为一张新的空白纸，它就有效了。它在原始的、相当大的工作表中仍然不起作用。

当我将其复制到一个简单的宏中时，它确实按要求工作，隐藏了正确的列，但只需按一下按钮即可:

Sub HideThem()
    Columns("N:O").EntireColumn.Hidden = True '<= DOES work
End Sub

我需要它根据单个单元格的值自动更新。我什至尝试从 Worksheet_Change() 事件中调用这个迷你 Sub，但这也不起作用。

是否存在与其他命令/事件、工作表按钮、图像、合并单元格等的任何已知冲突，这些冲突可能会阻止列/行隐藏？

我尝试使用 CheckBox 而不是 YES/NO 数据验证单元来触发代码(因为这可以接受)，但是当我尝试插入ActiveX CheckBox 它说无法插入对象，即使在一本全新的空白书中也是如此。这可能是一个相关的问题吗？

Answer 1

我想您在单元格 C3 中有一个下拉列表，其中包含两个项目，即“可见”和“不可见”。当您将范围 C3 的值从空白/“可见”更改为“不可见”时，以下代码将隐藏 N 列和 O 列。在此操作之前，您必须阅读该消息并单击“确定”。从“不可见”更改为“可见”将向您显示一个消息框。单击“确定”，即可看到隐藏的列自行显现。

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C3") = "Invisible" Then
        MsgBox ("You just changed to HIDE")
        Columns(14).Hidden = True
        Columns(15).Hidden = True
    Else
    If Range("C3") = "Visible" Then
        MsgBox ("You just changed to UNHIDE")
        Columns(14).Hidden = False
        Columns(15).Hidden = False
    End If
  End If
End Sub