如何在Excel中双击单元格时隐藏或取消隐藏指定的行或列？

通常，可以通过右键单击并从上下文菜单中选择“隐藏”或“取消隐藏”选项来隐藏或显示行和列。在本文中，我们将讨论通过在Excel中双击单元格快速隐藏或显示指定的行或列。

使用VBA代码双击单元格时隐藏或取消隐藏指定的行或列

使用VBA代码双击单元格时隐藏或取消隐藏指定的行或列

以下VBA代码可以帮助您通过双击某个单元格快速隐藏或取消隐藏工作表中的指定行或列。请按照以下步骤操作。

1. 打开要隐藏行或列的工作表。右键单击工作表标签，然后从上下文菜单中点击“查看代码”。

2. 在打开的Microsoft Visual Basic for Applications窗口中，请将以下所需的VBA代码之一复制到代码窗口中。

VBA：通过双击工作表中的单元格隐藏/取消隐藏指定的行：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("10:13")
        xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
    End If
End Sub

VBA：通过双击工作表中的单元格隐藏/取消隐藏指定的列：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("D:E")
        xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
    End If
End Sub

注意：在代码中，A1:A4、10:13和D:E表示当双击范围A1:A4中的任何单元格时，第10至13行或D至E列将自动隐藏。

3. 按Alt + F11键关闭 Microsoft Visual Basic for Applications窗口。

从现在开始，当双击范围A1:A4中的任何单元格时，第10至13行或D至E列将自动隐藏。再次双击该单元格即可立即显示所有隐藏的行或列。

相关文章：

• 如何在Excel中单击或双击单元格以打开指定的用户窗体？
• 如何在Excel中通过双击单元格添加对勾？
• 如何在Excel中通过双击单元格自动添加/输入当前日期/时间？
• 如何在Excel中双击单元格并将该单元格值加1？
• 如何在Excel中单击特定单元格时弹出日历？