Как скрыть или отобразить указанные строки или столбцы при двойном щелчке по ячейке в 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?
• Как дважды щелкнуть ячейку и добавить 1 к значению этой ячейки в Excel?
• Как вызвать календарь при нажатии на определенную ячейку в Excel?