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

Jak povolit zadávání pouze čísel do textového pole?

V aplikaci Excel můžeme použít funkci Ověření dat, aby bylo možné do buněk zadávat pouze čísla, ale někdy chci, aby se do textového pole i do buněk zadávala pouze čísla. Jak přijímat pouze čísla v textovém poli v aplikaci Excel?

Vydělte řadu buněk číslem pomocí funkce Vložit jinak


šipka modrá pravá bublina Vydělte řadu buněk číslem pomocí funkce Vložit jinak

Následující kód VBA vám pomůže zadat čísla, tečku (.) A záporné znaménko pouze do textového pole, postupujte takto:

1. Vytvořte textové pole kliknutím Vývojka > Vložit > Textové pole (ovládací prvek ActiveX)a potom nakreslete textové pole podle potřeby, viz screenshot:

doc textové pole pouze čísla 1

2. Poté klikněte pravým tlačítkem na textové pole a vyberte Zobrazit kód z kontextového menu otevřete Microsoft Visual Basic pro aplikace okno a poté do prázdného modulu nahraďte původní kód následujícím kódem VBA:

Kód VBA: Povolit zadávání pouze čísel do textového pole:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
        If KeyAscii = Asc("-") Then
            If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
               Me.TextBox1.SelStart > 0 Then KeyAscii = 0
        ElseIf KeyAscii = Asc(".") Then
            If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
        Else
            KeyAscii = 0
        End If
    End If
End Sub

doc textové pole pouze čísla 2

3. Poté uložte a zavřete okno kódu a ukončete Režim návrhu, nyní lze do textového pole zadat pouze čísla, symbol období a záporné znaménko, viz screenshot:

doc textové pole pouze čísla 3


Související články:

Jak použít kontrolu pravopisu v textovém poli?

Jak změnit barvu textového pole na základě hodnoty v aplikaci Excel?

Jak vložit obrázek do textového pole?

Jak nastavit výchozí hodnotu v textovém poli?


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

Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
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é funkce
    . Podporuje Office/Excel
    2007-2019 a 365
    . Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce
    30
    -denní zkušební verze zdarma. 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 tím
    50%
    a každý den vám sníží stovky kliknutí myší!
officetab dno
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Fungovalo perfektně! Nejlepší řešení pro tento problém! Děkuji!
Tento komentář byl moderátorem webu minimalizován
můžete také prosím sdílet, jak vložit maximální hodnotu do kódu?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, marcu
Promiňte, nerozumím vám, chcete v kódu omezit maximální hodnotu?
Popsal byste svůj problém podrobněji?
Děkuji!
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í

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