Gå til hovedindhold

Sådan fjernes alle knapper eller kommandoknapper i Excel?

Denne artikel taler om at fjerne alle formkontrolknapper eller kommandoknapper fra det aktive ark i Excel.

Fjern alle knapper inklusive formkontrolknapper og kommandoknapper ved at vælge dem alle
Fjern alle knapper inklusive formkontrolknapper og kommandoknapper efter VBA-kode
Fjern alle formkontrolknapper eller kommandoknapper med VBA-kode


Fjern alle knapper inklusive formkontrolknapper og kommandoknapper ved at vælge dem alle

Gør som følger for at fjerne alle knapper (inklusive formkontrolknapper og kommandoknapper) fra det aktive regneark.

1. Aktivér designtilstand ved at klikke på Udvikler > Design Mode. Se skærmbillede:

2. Vælg en af ​​kommandoknapperne, og tryk på Ctrl + A for at vælge alle knapper i det aktuelle regneark.

3. Tryk på Slette for at slette alle valgte knapper.

Bemærk: Hvis der er andre objekter i dette regneark, vælges de også.


Fjern alle knapper inklusive formkontrolknapper og kommandoknapper efter VBA-kode

Desuden kan du anvende nedenstående VBA-script for at fjerne alle knapper fra det aktuelle regneark i Excel.

1. Åbn regnearket indeholder de knapper, du vil fjerne, og tryk derefter på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, kopier derefter under VBA-koden i vinduet Kode.

VBA-kode: Fjern alle knapper fra det aktive ark

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. Tryk på F5 nøglen til at køre koden. Derefter fjernes alle knapper inklusive formularkontrolknapper og kommandoknapper fra det aktuelle regneark med det samme.


Fjern alle formkontrolknapper eller kommandoknapper med VBA-kode

Hvis du kun ønsker at fjerne alle formularkontrolknapper eller alle kommandoknapper fra det aktive ark. Du kan prøve nedenstående VBA-koder for at opnå det.

1. Åbn regnearket indeholder de knapper, du vil fjerne, og tryk derefter på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, kopier derefter under VBA-koden i vinduet Kode.

VBA-kode: Fjern alle formularkontrolknapper fra det aktive ark

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

VBA-kode: Fjern alle kommandoknapper fra det aktive ark

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. Tryk på F5 nøgle for at køre koden.

Derefter fjernes alle formularkontrolknapper eller alle kommandoknapper fra det aktuelle regneark med det samme.


Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how about if it is in userform? what is the code
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations