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
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:
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
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:
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ší 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!