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

Jak vymazat zadaný obsah buňky při otevření a ukončení v sešitu aplikace Excel?

Tento článek hovoří o vymazání zadaného obsahu buňky při otevírání nebo zavírání sešitu aplikace Excel.

Vymazat zadaný obsah buňky při otevření a ukončení sešitu


Vymazat zadaný obsah buňky při otevření a ukončení sešitu


Chcete-li vymazat specifikovaný obsah buňky při otevření a ukončení sešitu, postupujte takto.

Nejprve musíte uložit sešit, který potřebujete k vymazání specifikovaného obsahu buňky při otevření nebo ukončení jako sešit Excel s podporou maker.

1. Klikněte prosím Soubor > Uložit jako > Procházet. Viz snímek obrazovky:

2. V Uložit jako V dialogovém okně vyberte složku, do které sešit uložíte, zadejte nový název do složky Název souboru pole, jak potřebujete, vyberte Sešit se zvýšeným makra Excel z Sava jako typ rozevírací seznam a poté klikněte na ikonu Uložit .

3. Ve vyskakovacím okně Microsoft Excel V dialogovém okně klikněte na OK tlačítko, jak je uvedeno níže.

4. Otevřete Macro-Enabled Workbook, který jste právě uložili, stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

5. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte Tato pracovní kniha v levém podokně a poté zkopírujte níže uvedený kód VBA do okna Kód.

Kód VBA 1: Vymazání zadaného obsahu buňky v otevřeném sešitu

Private Sub Workbook_Open()
'Updated by Extendoffice 20190712
    Application.EnableEvents = False
        Worksheets("test").Range("A1:A11").Value = ""
    Application.EnableEvents = True
End Sub

Kód VBA 2: Vymazání zadaného obsahu buňky při ukončení sešitu

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20190712
    Worksheets("test").Range("A1:A11").Value = ""
End Sub

Poznámka: Ve výše uvedených kódech otestujte a A1: A11 je název listu a rozsah buněk, ze kterého vymažete obsah. Změňte je prosím podle potřeby.

6. zmáčkni Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.

Od této chvíle bude při otevření nebo zavření sešitu automaticky vymazán zadaný obsah buňky v určitém listu.


Související články:


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-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní 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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (9)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Vážený pane/paní, můj list je chráněn a pouze zadaná buňka (pro vymazání dat) není chráněna, ale když zadám hodnotu do zadaného a poté znovu otevřu soubor Excel, hodnota je vymazána kódem VBA, ale zadaná buňka je chráněno, musím zrušit ochranu buňky zrušením ochrany listu upravit upravitelný rozsah znovu a znovu, takže prosím opravte.
Díky předem
Tento komentář byl moderátorem webu minimalizován
Ahoj Sanjay Sharma,
Omlouváme se za nepříjemnost. Použijte níže uvedené kódy VBA a nezapomeňte nahradit název listu a rozsah podle svých potřeb. Děkuji za váš komentář.

VBA kód 1:
Soukromá podřízená sešit_Open ()
Application.EnableEvents = False
Worksheets("Sheet1").Range("A1:A11").Value = ""
Application.EnableEvents = True
End Sub

VBA kód 2:
Private Sub Workbook_BeforeClose (Zrušit jako Boolean)
Worksheets("Sheet1").Range("A1:A11").Value = ""
End Sub
Tento komentář byl moderátorem webu minimalizován
Dobrý den, jak bych pro rozsah zadal kód, když chci vybrat více rozsahů nebo buněk?
Tento komentář byl moderátorem webu minimalizován
Může mi někdo pomoci, jak vymazat buňky listu (pouze v řadě a ne celý list). Níže uvedený kód odstraní obsah ve všech řádcích listu. Ale chci, aby byl obsah vymazán pouze v řádku 9

Soukromá podřízená sešit_Open ()

'Aktualizováno Extendoffice 20190712

Application.EnableEvents = False

Pracovní listy("test").Rozsah("A1:A11").Hodnota = ""

Application.EnableEvents = True

End Sub
Tento komentář byl moderátorem webu minimalizován
Může mi někdo pomoci, jak vymazat buňky listu (pouze v řadě a ne celý list). Níže uvedený kód odstraní obsah ve všech řádcích listu. Ale chci, aby byl obsah vymazán pouze v řádku 9



Soukromá podřízená sešit_Open ()

'Aktualizováno Extendoffice 20190712

Application.EnableEvents = False

Pracovní listy("test").Rozsah("A1:A11").Hodnota = ""

Application.EnableEvents = True

End Sub
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Výše uvedený VBA vymaže pouze hodnotu buňky rozsahu A1:A11. Pokud chcete vymazat pouze hodnoty v řádku 9, můžete nahradit A1:A11 9:9. Viz níže uvedený kód.

Soukromá podřízená sešit_Open ()

'Aktualizováno Extendoffice 20200522

Application.EnableEvents = False

Pracovní listy("test").Rozsah("9:9").Hodnota = ""

Application.EnableEvents = True

End Sub
Tento komentář byl moderátorem webu minimalizován
Vážení přátelé, vyzkoušel jsem navrhovaný kód bez vlivu na open>

Soukromá podřízená sešit_Open ()


Application.EnableEvents = False

Worksheets("Clienti").Rozsah("A9:K900").Value = ""

Application.EnableEvents = True

End Sub


Makro funguje v rámci sešitu, ale ne při otevření sešitu.

Jakákoliv pomoc bude velmi ocenil!
Tento komentář byl moderátorem webu minimalizován
Ahoj TUDOSE GELU,
Kód v mém případě funguje dobře.
Nezapomeňte vložit kód do Tento sešit (kód) okno a uložte sešit jako soubor Excel s podporou maker Pracovní sešit.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/2022-oct/oct-2.png
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/2022-oct/oct-1.png
Tento komentář byl moderátorem webu minimalizován
Děkuji Crystal! Funguje to.

G
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění