Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

Jak usunąć wszystkie przyciski lub przyciski poleceń w programie Excel?

W tym artykule mowa jest o usunięciu wszystkich przycisków sterujących formularzem lub przycisków poleceń z aktywnego arkusza w programie Excel.

Usuń wszystkie przyciski, w tym przyciski sterujące formularza i przyciski poleceń, zaznaczając je wszystkie
Usuń wszystkie przyciski, w tym przyciski sterujące formularzem i przyciski poleceń według kodu VBA
Usuń wszystkie przyciski sterujące formularzem lub przyciski poleceń z kodem VBA


Usuń wszystkie przyciski, w tym przyciski sterujące formularza i przyciski poleceń, zaznaczając je wszystkie


Wykonaj następujące czynności, aby usunąć wszystkie przyciski (w tym przyciski sterujące formularzem i przyciski poleceń) z aktywnego arkusza.

1. Włącz tryb projektowania, klikając Deweloper > Tryb projektowania. Zobacz zrzut ekranu:

2. Wybierz jeden z przycisków poleceń i naciśnij Ctrl + A klawisze, aby zaznaczyć wszystkie przyciski w bieżącym arkuszu.

3. wciśnij Kasować klawisz, aby usunąć wszystkie wybrane przyciski.

Uwagi: Jeśli w tym arkuszu znajdują się inne obiekty, zostaną one również wybrane.


Usuń wszystkie przyciski, w tym przyciski sterujące formularzem i przyciski poleceń według kodu VBA

Poza tym możesz zastosować poniższy skrypt VBA, aby usunąć wszystkie przyciski z bieżącego arkusza roboczego w programie Excel.

1. Otwórz arkusz zawierający przyciski, które chcesz usunąć, a następnie naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj poniższy kod VBA do okna Code.

Kod VBA: Usuń wszystkie przyciski z aktywnego arkusza

Sub Clear_ButtonsActiveSheet()
    Dim I As Long
    Dim xOLE As Object
    On Error Resume Next
    ActiveSheet.Buttons.Delete
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3. wciśnij F5 klucz do uruchomienia kodu. Następnie wszystkie przyciski, w tym przyciski sterujące formularzem i przyciski poleceń, są natychmiast usuwane z bieżącego arkusza roboczego.


Usuń wszystkie przyciski sterujące formularzem lub przyciski poleceń z kodem VBA

Jeśli chcesz tylko usunąć wszystkie przyciski sterujące formularzem lub wszystkie przyciski poleceń z aktywnego arkusza. Aby to osiągnąć, możesz wypróbować poniższe kody VBA.

1. Otwórz arkusz zawierający przyciski, które chcesz usunąć, a następnie naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj poniższy kod VBA do okna Code.

Kod VBA: Usuń wszystkie przyciski sterujące formularzem z aktywnego arkusza

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

Kod VBA: Usuń wszystkie przyciski poleceń z aktywnego arkusza

Sub Clear_ButtonsActiveSheet()
    Dim xOLE As Object
    On Error Resume Next
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3. wciśnij F5 klucz do uruchomienia kodu.

Następnie wszystkie przyciski sterujące formularzem lub wszystkie przyciski poleceń są natychmiast usuwane z bieżącego arkusza roboczego.


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-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 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ęć myszą każdego dnia!
officetab dół
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.
    renzo88 · 1 years ago
    how about if it is in userform? what is the code