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

 Jak použít tlačítko k vymazání konkrétních buněk v aplikaci Excel?

Normálně můžete držet Ctrl klávesu pro výběr více konkrétních buněk a poté podle potřeby vymažte obsah buněk. Pokud vždy potřebujete čas od času tyto konkrétní buňky vymazat, můžete vytvořit jasné tlačítko, které je vymaže jediným kliknutím. V tomto článku budu hovořit o tom, jak vytvořit tlačítko vymazat vše pro vymazání určitého obsahu buňky.

Použijte tlačítko k vymazání konkrétního obsahu buňky pomocí kódu VBA


šipka modrá pravá bublina Použijte tlačítko k vymazání konkrétního obsahu buňky pomocí kódu VBA

Nejprve byste měli vytvořit tlačítko tvaru a poté použít kód, nakonec svázat kód s tlačítkem tvaru. Postupujte prosím následovně:

1, klikněte Vložit > Tvary > Obdélníky vyberte tvar Obdélník a potom tažením myši nakreslete tlačítko obdélníku kdekoli na listu, jak potřebujete, viz screenshot:

tlačítko doc vymazat buňky 1

2. Poté zadejte text a naformátujte tlačítko tvaru, jak potřebujete, viz screenshot:

tlačítko doc vymazat buňky 2

3. A pak byste měli vložit kód VBA, podržte prosím ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno. Klikněte na tlačítko Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Vymazání obsahu buněk ze specifických buněk:

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

Poznámka: Ve výše uvedeném kódu: A2, A5 označte, že vymaže buňky v rozsahu A2: A5, nejen dvě buňky jednotlivě, můžete přidat více rozsahů, například Rozsah („B8“, „B12“). Jasný skript v kódu vymazat.

4. Poté uložte a zavřete okno s kódem a poté propojte kód s tlačítkem tvaru, klikněte pravým tlačítkem na tlačítko a vyberte Přiřadit makro, V roce Přiřadit makro dialogové okno vyberte Clearcells kódové jméno z Název makra seznamu a klikněte na OK tlačítko pro opuštění tohoto dialogu. Viz screenshot:

tlačítko doc vymazat buňky 3

5. A teď, když kliknete na Vymazat vše tlačítko, konkrétní buňky, které jste definovali, jsou vymazány najednou, viz screenshot:

tlačítko doc vymazat buňky 4


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (65)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
DEJTE VZORCE PRO ULOŽENÍ A VYMAZÁNÍ
Tento komentář byl moderátorem webu minimalizován
Tím se také vymaže veškeré formátování buňky. Jak to udělat, pokud chci zachovat vzorce a formátování, jako je stínování nebo ohraničení
Tento komentář byl moderátorem webu minimalizován
změňte příkaz z "clear" na "clearcontents", abyste pouze vymazali textové vstupy
Tento komentář byl moderátorem webu minimalizován
a co barva?
Tento komentář byl moderátorem webu minimalizován
Děkuji!
Tento komentář byl moderátorem webu minimalizován
Moc děkuji za tyto informace!!

Další tip: přidal jsem textové pole. Abych zkombinoval textové pole s tvarem, vybral jsem textové pole, podržel SHIFT a pak jsem vybral tvar. Když jsou obě vybrané, kliknul jsem pravým tlačítkem a vybral GROUP, pak znovu GROUP.

Když jsou seskupeny, stále můžete změnit text a další formátování.

Chcete-li zrušit seskupení, klikněte pravým tlačítkem na nové tlačítko a vyberte SKUPINA > ROZDĚLIT.
Tento komentář byl moderátorem webu minimalizován
Nebo stačí kliknout pravým tlačítkem na tvar a změnit formátování a text.
Tento komentář byl moderátorem webu minimalizován
Thx za tento kód. Jak vymazat obsah buňky nebo ji ideálně naplnit hodnotou 0 v chráněném listu s několika upravitelnými buňkami? Thx za pomoc na ot.
Tento komentář byl moderátorem webu minimalizován
Místo příkazu clear by ukázkový řádek shora vypadal takto:
Rozsah("A2:A5") = 0
Tento komentář byl moderátorem webu minimalizován
můžete to udělat na několika listech?
Tento komentář byl moderátorem webu minimalizován
Tím se také vyčistí hranice, co mohu dělat?
Tento komentář byl moderátorem webu minimalizován
změnit clear to clearcontents, pak formátování zůstane po vymazání stejné. zmizí pouze text bez ohraničení a barev atd
Tento komentář byl moderátorem webu minimalizován
Ahoj. Jaký je nejlepší způsob, jak vytvořit samostatná tlačítka pro vymazání obsahu každého řádku zvlášť? např. data capturer je spokojený se vstupy každého druhého řádku, ale pak potřebuje vymazat řádky 3, řádek 6 a řádek 7. Jaký je nejúčinnější způsob, jak vytvořit tlačítka pro vymazání tímto způsobem, tj. pouze řádek?
Tento komentář byl moderátorem webu minimalizován
Ahoj, umístěte tlačítko na řádek 3,6,7, XNUMX, XNUMX. Ke každému tlačítku přiřaďte stejné označení jako výše, abyste vymazali pouze tento konkrétní řádek.
Tento komentář byl moderátorem webu minimalizován
Mám sešit s 11 záložkami plus jedna na začátku označená jako „Začít zde“. Chci na této kartě vytvořit jedno tlačítko, které vymaže obsah až 9 jednotlivých buněk, nebo do každé z těchto karet zadejte „0“. Buňky, které chci vymazat, nemusí být nutně na stejném místě na každé stránce. Je to možné a jak se to dělá? Předpokládám, že to lze provést ve VisualBasic, ale bylo by pro začátečníka jednodušší vytvořit to pomocí maker?
Tento komentář byl moderátorem webu minimalizován
mám stejnou otázku
Tento komentář byl moderátorem webu minimalizován
Použijte toto jako šablonu skriptu:
Sub Clearcells()
'Aktualizovat Extendoffice 20161008
Range("b11:d22").ClearContents 'tento řádek odkazuje na stránku s tlačítkem makra.
Range("'Eval Score Entry'!D2:AA2").ClearContents 'tento řádek odkazuje na jinou kartu a rozsah.
End Sub


Tento komentář byl moderátorem webu minimalizován
prostě jsem udělal totéž v listu, fungovalo to, když list chráním, zobrazuje chybu 1004, nějaký návrh v tomto případě?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Radheshyame,
Chcete-li spustit výše uvedený kód v ochranném listu, použijte níže uvedený kód: (Poznámka: změňte text „heslo“ na heslo, které chrání váš list)
Sub ClearcellsAsProtect()
Dim xWS jako pracovní list
Dim xPsw jako řetězec
Nastavte xWS = ActiveSheet
xPsw = "heslo"
On Error Resume Next
xWS.Unprotect Password:=xPsw
Rozsah("A2", "A5").Vymazat
Rozsah("C10", "D18").Vymazat
Rozsah („B8“, „B12“). Jasný
xWS.Protect Heslo:=xPsw
End Sub

Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Dobrý den,

Jaký kód mám použít, když potřebuji vymazat pouze jednu buňku místo rozsahu buněk?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Jennifer,
Chcete-li vymazat pouze jednu buňku, stačí změnit kód VBA takto: (Poznámka: změňte buňku A2 na buňku, kterou chcete vymazat)

Sub Clearcells()
Rozsah("A2").Vymazat
End Sub

Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak udržet kapky seznamu ověření dat na buňkách. Například můj seznam obsahuje Ano nebo Ne a chtěl bych resetovat buňky na prázdné, ale ponechat ověřování dat na pozadí
Tento komentář byl moderátorem webu minimalizován
můžete použít = jasné.


pro Např.

Rozsah("A2", "A5") = Vymazat
Tento komentář byl moderátorem webu minimalizován
Nefunguje na sloučených buňkách. :(
Tento komentář byl moderátorem webu minimalizován
nahradit .Clear za = ""
Tento komentář byl moderátorem webu minimalizován
U sloučených buněk myslíte, že formátování je například Range("A25","B25","C25")="" ?
Tento komentář byl moderátorem webu minimalizován
Zkuste to,

Například: Sloučené buňky jsou sloupce A a B. Chcete vymazat řádky 2 až 5. Bude to vypadat jako níže.

Sub Clearcells()
Rozsah("A2:B2", "A5:B5").Vymazat obsah
End Sub
Tento komentář byl moderátorem webu minimalizován
Jak na to prosím v Tabulkách Google?
Tento komentář byl moderátorem webu minimalizován
Je to jasné vše včetně okrajových čar a formátu buněk, chci vymazat pouze data.
Tento komentář byl moderátorem webu minimalizován
Ahoj Karame,
Chcete-li pouze vymazat data a zachovat formátování buněk, použijte níže uvedený kód:

Sub Clearcells()
Rozsah("A2", "A5").Vymazat obsah
Rozsah("C10", "D18").Vymazat obsah
Rozsah("B8", "B12").Vymazat obsah
End Sub

Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Děkuji skyyang
Nyní to funguje správně
Tento komentář byl moderátorem webu minimalizován
díky vám
Tento komentář byl moderátorem webu minimalizován
Zdá se, že toto formátování mi nefunguje, stále mi zobrazuje "chyba kompilace: Očekáváno: konec příkazu"
Tento komentář byl moderátorem webu minimalizován
Díky moc skyyang. To bylo přesně to, co jsem hledal, odstranit obsah, ale NE formátování. Ještě jednou děkuji.
Tento komentář byl moderátorem webu minimalizován
Díky za to. Existuje způsob, jak umístit více než jedno jasné tlačítko na jeden list? Dík!
Tento komentář byl moderátorem webu minimalizován
nefunguje to
Tento komentář byl moderátorem webu minimalizován
když zmáčknu příkazové tlačítko delete, smaže to i souvislé buňky a už v nich mám vzorec a ty nechci mazat
Tento komentář byl moderátorem webu minimalizován
Pokud je obsah buňky menší než 4 digitální čísla, uveďte prosím marko. dík
Tento komentář byl moderátorem webu minimalizován
Ahoj! Funguje mi skvěle s tímto kódem, jak jste zmínil:

Sub Clearcells()
Rozsah("A2", "A5").Vymazat obsah
Rozsah("C10", "D18").Vymazat obsah
Rozsah("B8", "B12").Vymazat obsah
End Sub

Chci však zachovat číslo "0" nebo procento "0" pro určité buňky. Ponechte také předchozí vybranou barvu. Důvodem je, že používám tyto buňky jako vstupní buňky a chci použít tlačítko k vymazání některých vstupních buněk.


Díky předem!
Tento komentář byl moderátorem webu minimalizován
Snažím se vymazat určité buňky na několika kartách. Jak toho mohu dosáhnout? Vytvořil jsem kontrolní seznam, který obsahuje asi 100 otázek na několika kartách a je těžké se vrátit a odstranit zpětnou vazbu z každé buňky.
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL