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

 Cum se aplică un buton pentru a șterge anumite celule din Excel?

În mod normal, puteți deține Ctrl tasta pentru a selecta mai multe celule specifice, apoi ștergeți conținutul celulei după cum aveți nevoie. Dacă trebuie întotdeauna să ștergeți din când în când aceste celule specifice, puteți crea un buton de ștergere pentru a le șterge cu un singur clic. În acest articol, voi vorbi despre cum să creați un buton de ștergere a tuturor pentru a șterge anumite conținuturi de celule specifice.

Aplicați un buton pentru a șterge conținutul specific al celulei cu cod VBA


săgeată albastru dreapta balon Aplicați un buton pentru a șterge conținutul specific al celulei cu cod VBA

În primul rând, ar trebui să creați un buton de formă și apoi să aplicați un cod, în cele din urmă, să legați codul de butonul de formă. Vă rugăm să faceți următoarele:

1. Clic Insera > Forme > Dreptunghiuri pentru a selecta forma dreptunghiulară, apoi glisați mouse-ul pentru a desena un buton dreptunghiular în orice parte a foii, după cum doriți, vedeți captura de ecran:

butonul doc șterge celulele 1

2. Apoi introduceți textul și formatați butonul de formă după cum doriți, consultați captura de ecran:

butonul doc șterge celulele 2

3. Și atunci ar trebui să introduceți codul VBA, vă rugăm să țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: ștergeți conținutul celulei din celule specifice:

Sub Clearcells()
'Updateby Extendoffice
Range("A2", "A5").Clear
Range("C10", "D18").Clear
Range("B8", "B12").Clear
End Sub

notițe: În codul de mai sus: A2, A5 indicați că va șterge celulele din interval A2: A5, nu doar cele două celule în mod individual, puteți adăuga intervale multiple, cum ar fi Gama ("B8", "B12"). Clear script din cod pentru a șterge.

4. Apoi salvați și închideți fereastra de cod, apoi legați codul la butonul de formă, faceți clic dreapta pe buton și selectați Atribuiți macro, În Atribuiți macro caseta de dialog, alegeți Celule clare numele de cod din Numele macro casetă de listă și faceți clic pe OK pentru a ieși din acest dialog. Vedeți captura de ecran:

butonul doc șterge celulele 3

5. Și acum, când faceți clic pe Goliți toate butonul, celulele specifice pe care le-ați definit sunt șterse simultan, vedeți captura de ecran:

butonul doc șterge celulele 4


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

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!
fundul officetab
Comentarii (65)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
DĂ FORMULE PENTRU SALVARE ȘI ȘTERGE
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru șterge, de asemenea, orice formatare a celulei. Cum fac asta dacă vreau să păstrez formulele și formatarea, cum ar fi umbrirea sau chenarele
Acest comentariu a fost redus la minimum de moderatorul de pe site
schimbați comanda de la „clear” la „clearcontents” pentru a șterge doar textul introdus
Acest comentariu a fost redus la minimum de moderatorul de pe site
ce zici de culoare?
Acest comentariu a fost redus la minimum de moderatorul de pe site
multumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc mult pentru aceasta informatie!!

Un alt sfat: am adăugat o casetă de text. Pentru a combina caseta de text cu forma, am selectat caseta de text, am apăsat SHIFT și apoi am selectat forma. Cu ambele selectate, am făcut clic dreapta și am selectat GROUP, apoi GROUP, din nou.

Când acestea sunt grupate, puteți modifica în continuare textul și alte formatări.

Pentru a degrupa, faceți clic dreapta pe noul dvs. buton și selectați GROUP > UNGROUP.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sau, pur și simplu, făcând clic dreapta pe formă, vă permite să schimbați formatarea și textul.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc pentru acest cod. Cum să ștergeți conținutul celulei sau, în mod ideal, să o umpleți cu valoarea 0 într-o foaie protejată cu doar câteva celule editabile? Mulțumesc pentru ajutor pe ot.
Acest comentariu a fost redus la minimum de moderatorul de pe site
În loc de comanda clară, un exemplu de linie de mai sus ar arăta astfel:
Interval("A2:A5") = 0
Acest comentariu a fost redus la minimum de moderatorul de pe site
poți face asta să funcționeze pe mai multe foi?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Asta înseamnă și eliberarea graniței, ce pot face?
Acest comentariu a fost redus la minimum de moderatorul de pe site
schimbați clear to clear contents, apoi formatarea va rămâne aceeași după ștergere. numai textul va fi dispărut, nu chenarele și colorarea etc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut. Care este cea mai bună modalitate de a crea butoane separate pentru a șterge conținutul fiecărui rând separat? de exemplu, data capturer este mulțumit de intrările de pe fiecare alt rând, dar apoi trebuie să șterge rândurile 3, rândul 6 și rândul 7. Care este cel mai eficient mod de a crea butoane pentru a șterge în acest fel, adică numai rândul?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, puneți un buton deasupra rândului 3,6,7. Atribuiți același cadru ca mai sus pe fiecare buton pentru a șterge numai acel rând.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am un registru de lucru cu 11 file, plus una la început marcată ca „Începe aici”. Vreau să creez un buton în acea filă care va șterge până la 9 celule individuale din conținutul său sau să introduc un „0” în el în fiecare dintre aceste file. Celulele pe care vreau să le șterg nu se află neapărat în același loc pe fiecare pagină. Este posibil acest lucru și cum se face? Presupun că acest lucru se poate face în VisualBasic, dar ar fi mai ușor pentru un neofit să-l creeze folosind Macro-uri?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am aceeași întrebare
Acest comentariu a fost redus la minimum de moderatorul de pe site
Utilizați acesta ca șablon de script:
Sub Clearcells()
'Actualizare de Extendoffice 20161008
Range("b11:d22").ClearContents „această linie se referă la pagina cu butonul macro.
Interval(„„Intrare pentru scorul de evaluare”!D2:AA2”).ClearContents „acest rând se referă la o filă și un interval diferit.
End Sub


Acest comentariu a fost redus la minimum de moderatorul de pe site
pur și simplu am făcut același lucru în foaia de lucru, a funcționat când protejez foaia, arată eroarea 1004, vreo sugestie în acest caz?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Radheshyam,
Pentru a rula codul de mai sus într-o foaie de lucru protejată, vă rugăm să aplicați codul de mai jos: (Notă: schimbați textul „parolă” cu parola care vă protejează foaia)
Sub ClearcellsAsProtect()
Dim xWS ca fișă de lucru
Dim xPsw ca șir
Setați xWS = ActiveSheet
xPsw = „parolă”
La data de eroare CV următoare
xWS.Unprotect Password:=xPsw
Interval ("A2", "A5").Clear
Interval ("C10", "D18").Clear
Gama ("B8", "B12"). Clear
xWS.Protect Password:=xPsw
End Sub

Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,

Ce cod folosesc dacă trebuie să șterg doar o singură celulă în loc de o serie de celule?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, Jennifer,
Pentru a șterge o singură celulă, trebuie doar să modificați codul VBA astfel: (Notă: schimbați celula A2 în celula pe care doriți să o ștergeți)

Sub Clearcells()
Interval("A2").Clear
End Sub

Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există vreo modalitate de a păstra lista de validare a datelor pe celule. De exemplu, lista mea include Da sau Nu și aș dori să resetați celulele la gol, dar să păstrez validarea datelor în fundal
Acest comentariu a fost redus la minimum de moderatorul de pe site
poti folosi = clar.


pentru ex.

Interval("A2", "A5") = Șterge
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu funcționează pe celulele îmbinate. :(
Acest comentariu a fost redus la minimum de moderatorul de pe site
înlocuiți .Clear by = ""
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pentru celulele îmbinate, vrei să spui că formatarea, de exemplu, să fie Range("A25","B25","C25")=""?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Incearca asta,

De exemplu: celulele îmbinate sunt coloanele A și B. Doriți să ștergeți rândurile de la 2 la 5. Ar arăta ca cel de mai jos.

Sub Clearcells()
Interval ("A2:B2", "A5:B5").ClearContents
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum să faci pe Google Sheets, te rog?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Înțelege totul, inclusiv liniile de margine și formatul celulelor, vreau să șterg numai datele.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Karam,
Pentru a șterge numai datele și a păstra formatarea celulei, vă rugăm să aplicați codul de mai jos:

Sub Clearcells()
Interval ("A2", "A5").ClearContents
Interval ("C10", "D18").ClearContents
Interval("B8", "B12").ClearContents
End Sub

Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc Skyyang
Acum funcționează corect
Acest comentariu a fost redus la minimum de moderatorul de pe site
îţi mulţumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Această formatare pare să nu funcționeze pentru mine, îmi spune „eroare de compilare: așteptat: sfârșitul declarației”
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc mult Skyyang. Exact asta căutam, să șterg conținutul, dar NU formatarea. Mulțumesc din nou.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc pentru asta. Există o modalitate de a pune mai mult de un buton clar pe o singură foaie de lucru? Mulțumiri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu functioneaza
Acest comentariu a fost redus la minimum de moderatorul de pe site
cand butonul de comanda apes delete sterge si celulele continue si am deja o formula in ele si nu vreau sa le sterg.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă rugăm să dați marco pentru clar dacă conținutul celulei este mai mic de 4 numere digitale. Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut! Funcționează grozav pentru mine cu acest cod așa cum ați menționat:

Sub Clearcells()
Interval ("A2", "A5").ClearContents
Interval ("C10", "D18").ClearContents
Interval("B8", "B12").ClearContents
End Sub

Cu toate acestea, vreau să păstrez numărul „0” sau procentul „0” pentru anumite celule. De asemenea, păstrați culoarea selectată anterior. Rezonul pentru aceasta este că folosesc aceste celule ca celule de intrare și vreau să folosesc butonul pentru a șterge celulele de intrare certin.


Multumesc in avans!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Încerc să șterg anumite celule din mai multe file. Cum pot realiza asta? Am construit o listă de verificare care are aproximativ 100 de întrebări pe mai multe file și este greu să mă întorc și să șterg feedback-ul din fiecare celulă.
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL