VBA-Excel。如何根据 Private Sub Worksheet_Change(ByVal Target As Range) 处理隐藏/取消隐藏行？答案

【问题标题】：VBA-Excel. How can I handle hide/unhide rows based on Private Sub Worksheet_Change(ByVal Target As Range)?VBA-Excel。如何根据 Private Sub Worksheet_Change(ByVal Target As Range) 处理隐藏/取消隐藏行？
【发布时间】：2018-05-01 12:22:15
【问题描述】：

大家早上好，

我是宏和 VBA Excel 的新手。我希望根据 Private Sub Worksheet_Change(ByVal Target As Range) 处理隐藏/取消隐藏行。我有以下代码事件

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="avalon"
If Target.Column = 2 Then
Application.EnableEvents = False
Cells(Target.Row, 5).Value = Date + Time
Application.EnableEvents = True
End If
ActiveSheet.Protect Password:="avalon"
End Sub

这个想法是在我将数据从“B4”输入到“B21”时聚合此事件（隐藏/取消隐藏行）（有时它们会被完全填充，有时会被部分填充。没关系）。也许，单击“B21”或另一个事件，在某些单元格中双击以激活从 22 到 36 的取消隐藏行，以便后续填充这些行。我希望清楚，如果不让我知道，以尝试澄清我需要根据事件发现正确的代码。

提前致谢。我保证学得很快。

【问题讨论】：

那又怎样，你在B4 中输入数据然后整个4 行就被隐藏了？
你好。的确，我忘了评论总是从第 2 行到第 21 行取消隐藏。如果我需要第二个袋子标签，我需要取消隐藏 22 到 36 以填充第二个袋子标签。我希望是具体的和可以理解的。谢谢。
K.戴维斯。我在单元格 B4 中输入了一串字母数字代码来验证标签装运。例如。 190453---1|68|1。谢谢。
仍然不太确定我完全理解你想要什么。填空......当我做 [____] 时，我希望 [____] 发生。
感谢 K. Davis 有兴趣帮助我。我运行了替代解决方案......我实际上从第 22 行到第 51 行隐藏。当我默认从第 2 行到第 21 行填充可见行时，稍后我有必要填写另一个 Bag 标签字段（这将是#2）然后，我需要从第 22 行到第 36 行取消隐藏；可以填充这些行，例如袋子标签 #1 的情况，我需要从第 37 行取消隐藏到第 51 行。想法是保留隐藏袋子标签 #2（第 22 到 36 行）和 #3（第 37 行）到 51) 至少我们需要取消隐藏每一个。谢谢

标签： excel vba

【解决方案1】：

您似乎正在尝试根据选择自动隐藏或显示行。

您可以通过在范围对象上使用 .hidden 来显示或隐藏行（使用 EntireRow）。您只需要某种方式来确定何时隐藏这些行。通过使用 selectionChange 事件，您可以根据当前选择的行显示或隐藏行。

以下代码放在工作表对象上时，将对您有所帮助。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Row
    Case 21
        ActiveSheet.Range("B22:B36").EntireRow.Hidden = False
    Case 22 To 36
        ActiveSheet.UsedRange.EntireRow.Hidden = False
    Case Else
        ActiveSheet.Range("B22:B36").EntireRow.Hidden = True
End Select
End Sub

您可以创建更多案例并给出所选时的行号，将隐藏或显示其他范围。

我希望我正确理解了您的问题。

【讨论】：

非常感谢...我正在尝试...干得好！那就是我一直在寻找的。再一次非常感谢你。我今天学到了新东西。周末愉快，user8205642