雙擊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。 按 其他 + F11 關閉鍵 Microsoft Visual Basic for Applications 窗口。

從現在開始，當雙擊 A1:A4 範圍內的任何儲存格時，第 10:13 行或 D:E 列將自動隱藏。 再次雙擊該儲存格即可立即顯示所有隱藏的行或列。

相關文章：

• 如何單擊或雙擊單元格以在Excel中打開指定的用戶表單？
• 如何在Excel中雙擊在單元格中添加複選標記？
• 如何在Excel中雙擊自動在單元格中添加/輸入當前日期/時間？
• 如何雙擊單元格並在Excel中將該單元格值添加1？
• 單擊Excel中的特定單元格時如何彈出日曆？