Як приховати або показати вказані рядки або стовпці при подвійному клацанні клітинки в Excel?

Зазвичай рядки та стовпці можна приховати або відобразити, клацнувши правою кнопкою миші та вибравши в контекстному меню опцію Приховати або Показати. У цій статті ми говоримо про швидке приховування або відображення вказаних рядків або стовпців подвійним клацанням клітинки в Excel.

Приховати або показати вказані рядки або стовпці при подвійному клацанні комірки з кодом VBA

Приховати або показати вказані рядки або стовпці при подвійному клацанні комірки з кодом VBA

Дивовижний! Використання ефективних вкладок у Excel, таких як Chrome, Edge, Firefox і Safari!
Заощаджуйте 50% свого часу та зменшуйте тисячі клацань миші щодня!

Наступні коди VBA можуть допомогти вам швидко приховати або показати вказані рядки або стовпці на аркуші, двічі клацнувши певну комірку. Будь ласка, виконайте наступне.

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

2. На відкритті Microsoft Visual Basic для додатків вікно, скопіюйте наступний код 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

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 та Д: Е вказують, що при подвійному клацанні на будь-якій комірці діапазону A1: A4 рядок 10:13 або стовпець D: E буде автоматично приховано.

3 Натисніть кнопку інший + F11 клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.

Відтепер, при подвійному клацанні будь-якої комірки в діапазоні A1: A4, рядка 10:13 або стовпця D: E буде автоматично приховано. І двічі клацніть клітинку ще раз, щоб негайно відобразити всі приховані рядки або стовпці.

Статті по темі:

• Як клацнути або двічі клацнути клітинку, щоб відкрити вказану форму користувача в Excel?
• Як додати галочку в клітинку подвійним клацанням в Excel?
• Як автоматично додавати / вводити поточну дату / час у клітинку подвійним клацанням у програмі Excel?
• Як двічі клацнути клітинку та додати 1 до цього значення комірки в Excel?
• Як спливати календар при натисканні певної комірки в Excel?

Найкращі інструменти продуктивності офісу

🤖	Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
	Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
	Супер пошук: VLookup за кількома критеріями  |   Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
	Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
	Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
	Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул   |  Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок   |  Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
	Топ-15 наборів інструментів:  12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Детальніше ... Завантажити безкоштовно...

---

Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно...