如何在 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 中點擊特定單元格時彈出日曆？