Jak vymazat obsah textového pole po kliknutí v aplikaci Excel?
Za normálních okolností se pro vymazání starého obsahu textového pole (ovládací prvek ActiveX) musíte dostat do textového pole, vybrat celý obsah a poté stisknout klávesu Backspace nebo Delete. Jak rychle vymazat veškerý obsah v textovém poli? Tento článek vám ukáže metodu VBA k rychlému vymazání obsahu textového pole pouhým dvojitým kliknutím.
Vymažte obsah textového pole po kliknutí pomocí kódu VBA
Vymažte obsah textového pole po kliknutí pomocí kódu VBA
Následující kód VBA vám pomůže rychle vyčistit obsah textového pole, když na něj dvakrát kliknete. Postupujte prosím následovně.
1. Pokud v listu již textové pole existuje, kliknutím na zapněte režim návrhu Vývojka > Režim návrhu. Viz snímek obrazovky:
Nebo můžete také vložit textové pole kliknutím Vývojka > Vložit > Textové pole (ovládací prvek ActiveX). Viz snímek obrazovky:
2. Klikněte pravým tlačítkem na textové pole a klikněte na Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:
3. V otvoru Microsoft Visual Basic pro aplikace nahraďte původní kód VBA v okně Kód níže kódem VBA.
Kód VBA: Vymazejte obsah textového pole, když na něj dvakrát kliknete
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Not iGblInhibitTextBoxEvents Then
TextBox1.Value = ""
End If
End Sub
Poznámka: V kódu je TextBox1 název textového pole, ze kterého vymažete obsah. Změňte jej prosím za svůj.
4. zmáčkni Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.
5. Vypněte režim návrhu.
Od této chvíle bude při dvojitém kliknutí na textové pole jeho obsah okamžitě vymazán.
Související články:
- Jak automaticky vybrat text textového pole, když je vybrán v aplikaci Excel?
- Jak automaticky vyplnit textové pole při psaní v aplikaci Excel?
- Jak zřetězit texty více buněk do textového pole v aplikaci Excel?
- Jak zakázat úpravy v textovém poli, aby se zabránilo vstupu uživatele do aplikace Excel?
- Jak formátovat textové pole jako procento v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!