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

 Hoe een knop toepassen om specifieke cellen in Excel te wissen?

Normaal gesproken kunt u de Ctrl -toets om meerdere specifieke cellen te selecteren en vervolgens de celinhoud naar behoefte te wissen. Als u deze specifieke cellen altijd van tijd tot tijd moet wissen, kunt u een duidelijke knop maken om ze met slechts één klik te wissen. In dit artikel zal ik het hebben over het maken van een knop Alles wissen om een ​​aantal specifieke celinhoud te wissen.

Pas een knop toe om specifieke celinhoud te wissen met VBA-code


pijl blauw rechts bel Pas een knop toe om specifieke celinhoud te wissen met VBA-code

Eerst moet u een vormknop maken en vervolgens een code toepassen, en ten slotte de code aan de vormknop koppelen. Ga als volgt te werk:

1. Klikken Invoegen > Vormen > rechthoeken om de vorm Rechthoek te selecteren en sleep vervolgens de muis om een ​​rechthoekige knop ergens op het blad te tekenen zoals je nodig hebt, zie screenshot:

doc-knop cellen wissen 1

2. Voer vervolgens de tekst in en formatteer de vormknop zoals je nodig hebt, zie screenshot:

doc-knop cellen wissen 2

3. En dan moet u de VBA-code invoeren, houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster. Klik Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: celinhoud wissen uit specifieke cellen:

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

Opmerking:: In de bovenstaande code: A2, A5 geef aan dat het de cellen in het bereik zal wissen A2: A5, niet alleen de twee cellen afzonderlijk, u kunt meerdere bereiken toevoegen, zoals Bereik ("B8", "B12"). Wissen script in de code om te wissen.

4. Sla vervolgens het codevenster op en sluit het, en koppel de code vervolgens aan de vormknop, klik met de rechtermuisknop op de knop en selecteer Wijs macro toe, in de Wijs macro toe dialoogvenster, kies het Clearcells codenaam van de Macronaam keuzelijst en klik op OK knop om dit dialoogvenster te verlaten. Zie screenshot:

doc-knop cellen wissen 3

5. En nu, wanneer u op het Wis alles knop, worden de specifieke cellen die je hebt gedefinieerd in één keer gewist, zie screenshot:

doc-knop cellen wissen 4


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (51)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
GEEF FORMULES VOOR OPSLAAN EN WISSEN
anand
Deze opmerking is gemaakt door de moderator op de site
Hiermee wordt ook elke opmaak van de cel gewist. Hoe doe ik dit als ik formules en opmaak wil behouden, zoals arcering of randen?
ken besse
Deze opmerking is gemaakt door de moderator op de site
verander het commando van "clear" naar "clearcontents" om gewoon de tekstinvoer te wissen
Adam
Deze opmerking is gemaakt door de moderator op de site
hoe zit het met de kleur?
dsnyan
Deze opmerking is gemaakt door de moderator op de site
dank je!
Steph
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt voor deze informatie!!

Nog een tip: ik heb een tekstvak toegevoegd. Om het tekstvak met de vorm te combineren, selecteerde ik het tekstvak, hield SHIFT ingedrukt en selecteerde vervolgens de vorm. Met die beide geselecteerd, klikte ik met de rechtermuisknop en selecteerde GROUP en vervolgens GROUP, opnieuw.

Wanneer deze zijn gegroepeerd, kunt u nog steeds de tekst en andere opmaak wijzigen.

Om de groepering op te heffen, klikt u met de rechtermuisknop op uw nieuwe knop en selecteert u GROUP > UNGROUP.
Ashleigh Bonner
Deze opmerking is gemaakt door de moderator op de site
Of door met de rechtermuisknop op de vorm te klikken, kunt u de opmaak en tekst wijzigen.
Calvin Hodgson
Deze opmerking is gemaakt door de moderator op de site
Thx voor deze code. Hoe celinhoud wissen of idealiter vullen met 0-waarde in een beveiligd blad met slechts enkele bewerkbare cellen? Thx voor hulp bij ot.
Piotr
Deze opmerking is gemaakt door de moderator op de site
In plaats van de opdracht clear zou een voorbeeldregel van boven er als volgt uitzien:
Bereik ("A2:A5") = 0
Robert
Deze opmerking is gemaakt door de moderator op de site
kun je dit over meerdere vellen laten werken?
Januari
Deze opmerking is gemaakt door de moderator op de site
Dit is ook de grens vrijmaken, wat kan ik doen?
Basil Rubberfabriek
Deze opmerking is gemaakt door de moderator op de site
verander clear naar clearcontents, dan blijft de opmaak hetzelfde na het wissen. alleen tekst is verdwenen, geen randen en kleuren enz.
Vlaamse gaai
Deze opmerking is gemaakt door de moderator op de site
Hoi. Wat is de beste manier om aparte knoppen te maken om de inhoud van elke rij afzonderlijk te wissen? bv data capturer is tevreden met de invoer van elke andere rij, maar moet dan rijen 3, rij 6 en rij 7 wissen. Wat is de meest efficiënte manier om knoppen te maken om op deze manier te wissen, dwz alleen rij?
Adnandos
Deze opmerking is gemaakt door de moderator op de site
Hoi, Zet een knop bovenaan rij 3,6,7. Wijs dezelfde marco als hierboven toe aan elke knop om alleen die specifieke rij te wissen.
OS
Deze opmerking is gemaakt door de moderator op de site
Ik heb een werkmap met 11 tabbladen, plus één aan het begin gemarkeerd als "Begin hier". Ik wil één knop op dat tabblad maken die tot 9 afzonderlijke cellen van de inhoud zal wissen, of ik wil er een "0" in invoeren binnen elk van deze tabbladen. De cellen die ik wil wissen, bevinden zich niet noodzakelijkerwijs op dezelfde plek op elke pagina. Is dit mogelijk en hoe wordt dit gedaan? Ik neem aan dat dit in VisualBasic kan worden gedaan, maar zou het voor een beginner gemakkelijker zijn om het te maken met behulp van macro's?
Stan
Deze opmerking is gemaakt door de moderator op de site
ik heb dezelfde vraag
Nate
Deze opmerking is gemaakt door de moderator op de site
Gebruik dit als een scriptsjabloon:
Sub Clearcells()
'Bijwerken door' Extendoffice 20161008
Range("b11:d22").ClearContents 'deze regel verwijst naar de pagina met de macroknop.
Range("'Eval Score Entry'!D2:AA2").ClearContents 'deze regel verwijst naar een ander tabblad en bereik.
End Sub


Christopher
Deze opmerking is gemaakt door de moderator op de site
ik deed gewoon hetzelfde in het werkblad, het werkte toen ik het blad beveiligde, het toont fout 1004, enige suggestie in dit geval?
Radheshjam
Deze opmerking is gemaakt door de moderator op de site
Hallo, Radheshyam,
Om bovenstaande code in een beschermend werkblad uit te voeren, past u de onderstaande code toe: (Opmerking: verander de tekst "wachtwoord" in het wachtwoord dat uw blad beschermt)
Sub ClearcellsAsProtect()
Dim xWS als werkblad
Dim xPsw als string
Stel xWS = ActiveSheet in
xPsw = "wachtwoord"
On Error Resume Next
xWS.Unprotect wachtwoord:=xPsw
Bereik ("A2", "A5"). Wissen
Bereik ("C10", "D18"). Wissen
Bereik ("B8", "B12"). Wissen
xWS.Bescherm wachtwoord:=xPsw
End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
skyyang
Deze opmerking is gemaakt door de moderator op de site
Hoi,

Welke code gebruik ik als ik maar één cel hoef te wissen in plaats van een reeks cellen?
Jennifer
Deze opmerking is gemaakt door de moderator op de site
Hallo, Jennifer,
Om slechts één cel te wissen, hoeft u alleen de VBA-code als volgt te wijzigen: (Opmerking: verander de cel A2 in de cel die u wilt wissen)

Sub Clearcells()
Bereik ("A2"). Wissen
End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
skyyang
Deze opmerking is gemaakt door de moderator op de site
Is er een manier voor mij om de gegevensvalidatielijst op de cellen te laten vallen. Mijn drop-lijst bevat bijvoorbeeld Ja of Nee en ik wil de cellen opnieuw instellen op leeg, maar mijn gegevensvalidatie op de achtergrond houden
LJ Majik
Deze opmerking is gemaakt door de moderator op de site
je kunt gebruiken = duidelijk.


voor bijv.

Bereik ("A2", "A5") = Wissen
Don
Deze opmerking is gemaakt door de moderator op de site
Het werkt niet op samengevoegde cellen. :(
Fabricio
Deze opmerking is gemaakt door de moderator op de site
vervang .Wissen door = ""
Octavio Junqueira.
Deze opmerking is gemaakt door de moderator op de site
Bedoel je voor samengevoegde cellen dat de opmaak bijvoorbeeld Range("A25","B25","C25")="" is?
Kean Miller
Deze opmerking is gemaakt door de moderator op de site
Probeer dit,

Bijvoorbeeld: De samengevoegde cellen zijn de kolommen A en B. U wilt rijen 2 tot en met 5 wissen. Het ziet er als volgt uit.

Sub Clearcells()
Bereik ("A2:B2", "A5:B5").ClearContents
End Sub
Cent
Deze opmerking is gemaakt door de moderator op de site
Hoe te doen op Google Spreadsheets alstublieft?
NOCKTYS
Deze opmerking is gemaakt door de moderator op de site
Het bevat alles, inclusief de randlijnen en het Cellen-formaat, ik wil alleen de gegevens wissen.
Karam Hanna
Deze opmerking is gemaakt door de moderator op de site
Hallo, Karam,
Om alleen de gegevens te wissen en de celopmaak te behouden, past u de onderstaande code toe:

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

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
skyyang
Deze opmerking is gemaakt door de moderator op de site
Bedankt skyyang
Nu werkt het naar behoren
Karam Hanna
Deze opmerking is gemaakt door de moderator op de site
Dank U
jordi garcia
Deze opmerking is gemaakt door de moderator op de site
Deze opmaak lijkt niet te werken voor mij, ik krijg steeds "compileerfout: verwacht: einde van instructie"
Garrett
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt Skyyang. Dat was precies wat ik zocht, om de inhoud te verwijderen, maar NIET de opmaak. Nogmaals bedankt.
Oleg
Deze opmerking is gemaakt door de moderator op de site
Bedankt hiervoor. Is er een manier om meer dan één duidelijke knop op één werkblad te plaatsen? Bedankt!
Michael
Deze opmerking is gemaakt door de moderator op de site
het werkt niet
Arshpreet
Deze opmerking is gemaakt door de moderator op de site
wanneer ik op de opdrachtknop druk verwijder het ook de doorlopende cellen en ik heb al een formule erin en ik wil die niet verwijderen
jorge
Deze opmerking is gemaakt door de moderator op de site
Geef a.u.b. marco voor duidelijk als celinhoud minder dan 4 digitale nummers. Bedankt
hk Walasey
Deze opmerking is gemaakt door de moderator op de site
Hoi! Werkt prima voor mij met deze code zoals je zei:

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

Ik wil echter voor bepaalde cellen het cijfer "0" of het percentage "0" behouden. Behoud ook de eerder geselecteerde kleur. De reden hiervoor is dat ik deze cellen als invoercellen gebruik en de knop wil gebruiken om bepaalde invoercellen te wissen.


Dank bij voorbaat!
roodborstje
Deze opmerking is gemaakt door de moderator op de site
ik probeer bepaalde cellen op verschillende tabbladen te wissen. Hoe kan ik dit bereiken? Ik heb een checklist gemaakt die ongeveer 100 vragen lang is op verschillende tabbladen, en het is moeilijk om terug te gaan en de feedback uit elke cel te verwijderen.
nate
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties