Как скрыть или отобразить указанные строки или столбцы при двойном щелчке по ячейке в 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 SubVBA: Скрыть/отобразить указанные столбцы при двойном щелчке по ячейкам на листе:
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?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек