Note: The other languages of the website are Google-translated. Back to English

Jak używać pola wyboru, aby ukrywać / odkrywać wiersze lub kolumny w programie Excel?

Przypuśćmy, że musisz użyć pola wyboru, aby ukryć lub odkryć określone wiersze lub kolumny. Na przykład, gdy zaznaczone jest pole wyboru Active X Control, określone wiersze lub kolumny są wyświetlane, w przeciwnym razie zostaną ukryte. W tym artykule przedstawiono metodę użycia pola wyboru do ukrywania / odkrywania wierszy lub kolumn w programie Excel ze szczegółami.

Użyj pola wyboru, aby ukryć / odkryć wiersze lub kolumny za pomocą kodu VBA


Użyj pola wyboru, aby ukryć / odkryć wiersze lub kolumny za pomocą kodu VBA

Poniższy kod VBA może pomóc w ukrywaniu / odkrywaniu niektórych wierszy lub kolumn za pomocą pola wyboru.

1. Po wstawieniu pola wyboru Active X Control do arkusza, kliknij prawym przyciskiem myszy pole wyboru, a następnie wybierz Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

2. w Microsoft Visual Basic for Applications okno, skopiuj i wklej następujący kod VBA do okna Code.

Kod VBA: użyj pola wyboru, aby ukryć / odkryć wiersze lub kolumny

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Uwagi:

1. W kodzie VBA [PŁYTA CD]. EntireColumn oznacza, że ​​kolumny C i D zostaną ukryte lub odkryte poprzez zaznaczenie lub odznaczenie odpowiedniego pola wyboru.

2. Aby ukryć lub wyświetlić niektóre wiersze, takie jak wiersz 6: 9, zmień opcję [PŁYTA CD]. EntireColumn do [6: 9]. Cały rząd w kodzie VBA.

3. wciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.

4. Teraz wyłącz Tryb projektowania pod Deweloper Karta, jak pokazano na poniższym zrzucie ekranu:

Od teraz, gdy pole wyboru jest zaznaczone, wyświetlane są określone wiersze lub kolumny. Gdy nie jest zaznaczone, określone wiersze lub kolumny są ukryte.


Podobne artykuły:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (26)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje sposób na użycie pola wyboru „Użyj pola wyboru, aby ukryć/odkryć wiersze lub kolumny z kodem VBA” w chronionym arkuszu?
Ten komentarz został zminimalizowany przez moderatora na stronie
@Wayne:

Private Sub CheckBox1_Click ()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Nie Pole wyboru1
ActiveSheet.Protect hasło:="xxxx"
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Wygląda na to, że ten kod pójdzie tylko w jednym kierunku, tzn. tylko ukryje i nie będzie odkrywał ich po kliknięciu. Czy istnieje sposób, aby to naprawić?
Ten komentarz został zminimalizowany przez moderatora na stronie
Mamy ten sam problem, ale dowiedziałem się, że używamy formantów formularzy, a nie formantów ActiveX. Kod doskonale działa w przycisku wyboru kontrolki ActiveX. Po prostu wyłącz tryb projektowania, aby kliknąć pole wyboru.
Ten komentarz został zminimalizowany przez moderatora na stronie
Mamy ten sam problem, ale znajdujemy sposób, aby to zadziałało. Użyj pola wyboru kontrolki ActiveX, a nie pola wyboru kontrolki formularza. Kod doskonale współpracuje z polem wyboru ActiveX.


Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Nie Pole wyboru1
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,

Próbuję użyć tego kodu, aby ukryć/odkryć na osobnym arkuszu z pola wyboru. Co muszę dodać, aby to zadziałało? Z góry dziękuję.

Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Nie Pole wyboru1
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzień dobry,
Jak pokazano w poniższym kodzie, zastąp „Arkusz4” nazwą osobnego arkusza.

Private Sub CheckBox1_Click ()
[Arkusz4!C:D].EntireColumn.Hidden = Nie Pole wyboru1
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,

Cześć, zrobiłem kod, działa dobrze, ale kiedy próbuję zrobić to samo w więcej niż jednym polu wyboru w tym samym arkuszu, działają one „razem”, ukrywaj lub odkrywaj wiersze tylko wtedy, gdy zaznaczone są wszystkie trzy pola wyboru.
Staram się, aby te trzy pola wyboru działały niezależnie od siebie. I niech użytkownicy zaznaczają tylko jedno pole na raz.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Lou,
Upewnij się, że utworzone pola wyboru są polami wyboru formantów ActiveX. Te pola wyboru działają niezależnie w arkuszu.
Dzięki za komentarz.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,

Czy istnieje sposób na ukrycie tylko jednego rzędu. Jeśli postawię 6:9, wszystkie wiersze są ukryte, ale jeśli wstawię tylko 6, wyjdzie to jako błąd. Byłbym wdzięczny za pomoc, dziękuję!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Zmień drugi wiersz w kodzie na:
[6:6].EntireRow.Hidden = Nie Pole wyboru1.
Dziękuję za Twój komentarz.
Ten komentarz został zminimalizowany przez moderatora na stronie
Próbowałem odkryć pierwsze trzy role, ale to nie zadziałało. Jak mogę to zrobić, wiem, że osoba, która wysłała mi ten plik, chce poznać moje umiejętności, mogę to rozwiązać lub nie.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć maj,
Przepraszam, że nie zrozumiałem twojego punktu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Udało się, ale po zapisaniu pliku i ponownym otwarciu nie działa. Próbowałem zapisać go jako arkusz Excela Macro i jako zwykły skoroszyt. Co zrobiłem źle? Chcę dać go komuś innemu do użycia i nie chcę, żeby się pomylił.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć angela, Po dodaniu kodu do skoroszytu kliknij Plik > Zapisz jako, wybierz miejsce zapisania pliku, w oknie dialogowym Zapisz jako wybierz Skoroszyt programu Excel z obsługą makr (* .xlsm) z listy rozwijanej Zapisz jako typ , a na koniec kliknij Zapisz. Następnie wyślij ten skoroszyt programu Excel z obsługą makr do innych osób.
Ten komentarz został zminimalizowany przez moderatora na stronie
Bardzo przydatne, ale jak mogę go użyć, aby ukryć tylko część arkusza kalkulacyjnego? Mam na myśli np. komórki B2:B11, jak połączyć te dwie funkcje? Dzięki.
Ten komentarz został zminimalizowany przez moderatora na stronie
A gdybym chciał użyć 3 różnych pól wyboru i chciałem, aby każdy z nich przełączał ukrywanie różnych grup wierszy? Próbowałem i oglądałem wszystko. Kiedy próbuję zmodyfikować ten kod, pola wyboru wydają się ze sobą kolidować.
Ten komentarz został zminimalizowany przez moderatora na stronie
A gdybym chciał użyć 3 różnych pól wyboru i chciałem, aby każdy z nich przełączał ukrywanie różnych grup wierszy? Próbowałem i oglądałem wszystko. Kiedy próbuję zmodyfikować ten kod, pola wyboru wydają się ze sobą kolidować.
Ten komentarz został zminimalizowany przez moderatora na stronie
Esse código oculta, mas não executa a reexibição quando desmarcar.

Alguém pode uzupełniające por favor? Preciso de um código para ocultar e reexibir colunas indicadas.

Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Nie Pole wyboru1
End Sub

Dziękuję
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Welington Mesquita,
Ten kod VBA może osiągnąć:
Gdy pole wyboru 1 jest zaznaczone, wyświetlana jest kolumna C:D;
Gdy nie jest zaznaczone, kolumny C:D są ukryte.
Kod działa dobrze w moim przypadku. Z której wersji programu Excel korzystasz?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzień dobry!
Espero que todos estejam bem!

Tenho uma sytuacji onde precyzyjnych okulistycznych / reexibir i koluna utylizowana lub Control ActiveX sklada sie z pozycji.

Przykład: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) e Variação (%), no entanto, que poder selecionar individual as colunas intercalando se necessário. Wybierz somente coluna Realizado e Variação, mesmo não estando na sequencia.

Desde já agradeço,
Wellington
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Przepraszam, nie rozumiem, co masz na myśli. Czy mógłbyś przesłać zrzut ekranu swoich danych?
Aby dokładniej opisać napotkany problem, konieczne może być załączenie zrzutu ekranu lub przykładowego pliku.
Ten komentarz został zminimalizowany przez moderatora na stronie
E para ocultar colunas não sequencias?
Przykład: A e C

Esta situação seria aplicado de que forma para A e C ?

"Sub CheckBox1_Click privada ()
[C:D].EntireColumn.Hidden = Brak pola wyboru1
Napis końcowy"
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Poniższy kod VBA może ci wyświadczyć przysługę. Proszę spróbować.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Bei mir werden die Zellen nicht ausgeblendet, wenn das Kontrollkästchen wieder in aktiv ist.

Mein Ziel ist es mit dem aktiveren des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Pomóc ....
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Rose,
Poniższy kod VBA może pomóc.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL