Salt la conținutul principal

Cum se elimină toate butoanele sau butoanele de comandă din Excel?

Acest articol vorbește despre eliminarea tuturor butoanelor de control al formularului sau a butoanelor de comandă din foaia activă din Excel.

Eliminați toate butoanele, inclusiv butoanele de control al formularului și butoanele de comandă, selectându-le pe toate
Eliminați toate butoanele, inclusiv butoanele de control al formularului și butoanele de comandă, prin codul VBA
Eliminați toate butoanele de control formular sau butoanele de comandă cu cod VBA


Eliminați toate butoanele, inclusiv butoanele de control al formularului și butoanele de comandă, selectându-le pe toate

Procedați după cum urmează pentru a elimina toate butoanele (inclusiv butoanele de control al formularului și butoanele de comandă) din foaia de lucru activă.

1. Activați modul Design făcând clic pe Dezvoltator > Mod de proiectare. Vedeți captura de ecran:

2. Selectați unul dintre butoanele de comandă și apăsați tasta Ctrl + A tastele pentru a selecta toate butoanele din foaia de lucru curentă.

3. apasă pe Șterge pentru a șterge toate butoanele selectate.

notițe: Dacă există alte obiecte în această foaie de lucru, vor fi selectate și ele.


Eliminați toate butoanele, inclusiv butoanele de control al formularului și butoanele de comandă, prin codul VBA

În plus, puteți aplica mai jos scriptul VBA pentru a elimina toate butoanele din foaia de lucru curentă în Excel.

1. Deschideți foaia de lucru conține butoanele pe care doriți să le eliminați, apoi apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați mai jos codul VBA în fereastra Cod.

Cod VBA: eliminați toate butoanele din foaia activă

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. apasă pe F5 tasta pentru a rula codul. Apoi, toate butoanele, inclusiv butoanele de control al formularului și butoanele de comandă, sunt eliminate imediat din foaia de lucru curentă.


Eliminați toate butoanele de control formular sau butoanele de comandă cu cod VBA

Dacă doriți doar să eliminați toate butoanele de control ale formularului sau toate butoanele de comandă din foaia activă. Puteți încerca codurile VBA de mai jos pentru ao realiza.

1. Deschideți foaia de lucru conține butoanele pe care doriți să le eliminați, apoi apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați mai jos codul VBA în fereastra Cod.

Cod VBA: eliminați toate butoanele de control ale formularului din foaia activă

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

Cod VBA: eliminați toate butoanele de comandă din foaia activă

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. apasă pe F5 tasta pentru a rula codul.

Apoi, toate butoanele de control ale formularului sau toate butoanele de comandă sunt eliminate imediat din foaia de lucru curentă.


Legate de articole:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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