Note: The other languages of the website are Google-translated. Back to English
Войти  \/ 
x
or
x
Регистрация  \/ 
x

or

Как скрыть или показать указанные строки или столбцы при двойном щелчке по ячейке в Excel?

Обычно строки и столбцы можно скрыть или отобразить, щелкнув правой кнопкой мыши и выбрав параметр «Скрыть» или «Показать» в контекстном меню. В этой статье мы говорим о быстром скрытии или отображении определенных строк или столбцов двойным щелчком по ячейке в Excel.

Скрыть или отобразить указанные строки или столбцы при двойном щелчке ячейки с кодом VBA

Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу ...
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
  • Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
  • Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
  • Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
  • Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
  • Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
  • Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
  • Более 300 мощных функций; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.

Скрыть или отобразить указанные строки или столбцы при двойном щелчке ячейки с кодом VBA


Следующие коды VBA могут помочь вам быстро скрыть или отобразить указанные строки или столбцы на листе, дважды щелкнув определенную ячейку. Пожалуйста, сделайте следующее.

1. Откройте рабочий лист, внутри которого вы хотите скрыть строки или столбцы. Щелкните вкладку листа правой кнопкой мыши и выберите Просмотреть код из контекстного меню.

2. В дебюте Microsoft Visual Basic для приложений окно, скопируйте следующий код 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 для приложений окно.

С этого момента при двойном щелчке по любой ячейке в диапазоне A1: A4 строка 10:13 или столбец D: E будет автоматически скрыт. И еще раз дважды щелкните ячейку, чтобы сразу отобразить все скрытые строки или столбцы.


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office / Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Donzel Paul · 1 months ago
    This helped a lot but i'm trying to do this but everything starts hidden and hide and unhide isolated cells rather than a range? thanks!
  • To post as a guest, your comment is unpublished.
    Donzel Paul · 1 months ago
    how do you do this but everything starts hidden and how do you hide and unhide isolated cells rather than a range?
  • To post as a guest, your comment is unpublished.
    mjoakim · 8 months ago
    This is very cool and extremely helpful. However, I want to repeat the same code for different sets of rows to hide when clicking on different cells. How can I use the same code multiple times in one sheet so that the code name is not the same? Thank you!
    • To post as a guest, your comment is unpublished.
      crystal · 7 months ago
      Hi,
      If you want to hide different sets of rows when clicking on different cells, please try to modify the cells and row numbers in below code.
      The below code can achieve: when double clicking A1, the row "10:13" will be hidden; when double clicking A2, the row "15:20" will be hidden, and double clicking A3 will hide row "22:23".
      If you want to add more conditions, please copy the code lines from If to End If and modify the cells and row numbers as you need.
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Updateby20210409 Dim xRgHidden As Range If (Not Intersect(Target, Range("A1")) Is Nothing) And (Target.Count = 1) Then Set xRgHidden = Range("10:13") xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden End If If (Not Intersect(Target, Range("A2")) Is Nothing) And (Target.Count = 1) Then Set xRgHidden = Range("15:20") xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden End If If (Not Intersect(Target, Range("A3")) Is Nothing) And (Target.Count = 1) Then Set xRgHidden = Range("22:23") xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden End If End Sub
      • To post as a guest, your comment is unpublished.
        via · 3 months ago
        This is so helpful! I'm wondering if their is anyway to be able to add additional 'hidden' rows over time without having to shift all the numbers in the code to make everything line up properly? Thanks so much!