Jak formátovat textové pole jako procento v aplikaci Excel?
V předchozím článku jsme se zabývali tím, jak formátovat čísla v textovém poli jako měnu v Excelu. Tentokrát prozkoumáme formátování čísel v textovém poli jako procenta. Pomocí VBA můžete zajistit, že jakékoli číslo zadané do textového pole bude automaticky naformátováno jako procento pro konzistentní prezentaci dat.
Formátujte položky textového pole jako procenta pomocí kódu VBA
Formátujte položky textového pole jako procenta pomocí kódu VBA
Při formátování textového pole jako procenta pomocí kódu VBA postupujte podle těchto kroků.
1. Kliknutím na „Vývojář“ > „Vložit“ > „Textové pole (ovládací prvek ActiveX)“ vložte textové pole do listu. Viz snímek obrazovky:
2. Klepněte pravým tlačítkem myši na textové pole a poté v kontextové nabídce klepněte na "Zobrazit kód".
3. V otevíracím okně "Microsoft Visual Basic for Applications" nahraďte prosím původní kód v okně Kód níže uvedeným kódem VBA.
Kód VBA: formátování textového pole v procentech v aplikaci Excel
Private Sub TextBox1_LostFocus()
Dim xReg As New RegExp
Dim xMatches As MatchCollection
Dim xMatch As Match
Dim xText As String
Dim xReplace As String
On Error Resume Next
Application.ScreenUpdating = False
xText = Me.TextBox1.Text
xText = Replace(xText, "%", "")
With xReg
.Global = True
.Pattern = "([^0-9]+\d+)|(\d{1,})"
Set xMatches = .Execute(xText)
For Each xMatch In xMatches
xReplace = xReplace & xMatch.Value & "%"
Next
End With
xText = xReplace & Mid(xText, Len(xReplace) - xMatches.Count + 1)
Me.TextBox1.Text = xText
Application.ScreenUpdating = True
End Sub
Poznámka: Nahraďte "TextBox1" názvem textového pole, které používáte.
4. Klikněte na "Nástroje" > "Odkazy". Poté zaškrtněte políčko "Microsoft VBScript Regular Expressions" v dialogovém okně "Reference – VBAProject" a klikněte na tlačítko "OK". Viz snímek obrazovky:
5. Stisknutím kláves "Alt" + "Q" ukončete okno "Microsoft Visual Basic for Applications".
6. Až se vrátí do listu, klikněte znovu na "Vývojář" > "Režim návrhu" a vypněte režim návrhu.
Od této chvíle, když do textového pole zadáte čísla a přesunete z něj kurzor, abyste klikli na libovolnou buňku, budou čísla automaticky formátována jako procenta.
Související články:
- Jak formátovat textové pole jako měnu v aplikaci Excel?
- 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?
Nejlepší nástroje pro produktivitu v kanceláři
Vylepšete si své excelové dovednosti s Kutools for Excela 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 výrazně vám usnadňuje 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!