Jak ukryć lub odkryć określone wiersze lub kolumny po dwukrotnym kliknięciu komórki w programie Excel?

Zwykle wiersze i kolumny można ukrywać lub wyświetlać, klikając prawym przyciskiem myszy i wybierając opcję Ukryj lub odkryj z menu kontekstowego. W tym artykule mówimy o szybkim ukrywaniu lub wyświetlaniu określonych wierszy lub kolumn poprzez dwukrotne kliknięcie komórki w programie Excel.

Ukryj lub odkryj określone wiersze lub kolumny po dwukrotnym kliknięciu komórki z kodem VBA

Ukryj lub odkryj określone wiersze lub kolumny po dwukrotnym kliknięciu komórki z kodem VBA

Niesamowity! Korzystanie z wydajnych zakładek w programie Excel, takich jak Chrome, Edge, Firefox i Safari!
Zaoszczędź 50% swojego czasu i zmniejszaj tysiące kliknięć myszą każdego dnia!

Poniższe kody VBA mogą pomóc w szybkim ukrywaniu lub odkrywaniu określonych wierszy lub kolumn w arkuszu przez dwukrotne kliknięcie określonej komórki. Wykonaj następujące czynności.

1. Otwórz arkusz roboczy, w którym chcesz ukryć wiersze lub kolumny. Kliknij prawym przyciskiem myszy kartę arkusza, a następnie kliknij Wyświetl kod z menu kontekstowego.

2. W otwarciu Microsoft Visual Basic for Applications okno, proszę skopiować następujący kod VBA do okna Code.

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

Note: W kodzie A1: A4, 10:13 i D: E. wskazują, że po dwukrotnym kliknięciu dowolnej komórki z zakresu A1:A4 wiersz 10:13 lub kolumna D:E zostaną automatycznie ukryte.

3. wciśnij inny + F11 klucze do zamknięcia Microsoft Visual Basic for Applications okno.

Od teraz, po dwukrotnym kliknięciu dowolnej komórki z zakresu A1:A4, wiersz 10:13 lub kolumna D:E zostanie automatycznie ukryta. Kliknij ponownie dwukrotnie komórkę, aby natychmiast wyświetlić wszystkie ukryte wiersze lub kolumny.

Podobne artykuły:

• Jak kliknąć lub dwukrotnie kliknąć komórkę, aby otworzyć określony formularz użytkownika w programie Excel?
• Jak dodać znacznik wyboru w komórce za pomocą dwukrotnego kliknięcia w programie Excel?
• Jak automatycznie dodawać / wprowadzać aktualną datę / godzinę w komórce za pomocą dwukrotnego kliknięcia w programie Excel?
• Jak dwukrotnie kliknąć komórkę i dodać 1 do tej wartości komórki w programie Excel?
• Jak wyświetlić kalendarz po kliknięciu określonej komórki w programie Excel?

Najlepsze narzędzia biurowe

🤖	Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
	Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
	Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
	Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
	Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
	Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
	15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Czytaj więcej... Darmowe pobieranie...

---

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

• Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
• Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
• Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

Czytaj więcej... Darmowe pobieranie...