Kako dovoliti vnos samo številk v besedilno polje?
V Excelu lahko s funkcijo preverjanja podatkov omogočimo vnos samo številk v celice, včasih pa želim, da se v besedilno polje in v celice vnašajo samo številke. Kako sprejeti samo številke v besedilnem polju v Excelu?
Razdelite obseg celic s številom s funkcijo Paste Special
Razdelite obseg celic s številom s funkcijo Paste Special
Naslednja koda VBA vam lahko pomaga pri vnosu številk, pike (.) In negativnega znaka samo v besedilno polje, naredite tako:
1. S klikom ustvarite besedilno polje Razvojni > Vstavi > Besedilno polje (nadzor ActiveX)in nato po potrebi narišite besedilno polje, glejte posnetek zaslona:
2. Nato z desno miškino tipko kliknite besedilno polje in izberite Ogled kode iz kontekstnega menija, da odprete Microsoft Visual Basic za aplikacije in nato v prazen modul zamenjajte izvirno kodo z naslednjo kodo VBA:
Koda VBA: dovoli vnos samo številk v besedilno polje:
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. Nato shranite in zaprite okno s kodo ter zapustite Način oblikovanja, zdaj lahko v besedilno polje vnesete samo številke, simbol pike in negativni znak, glejte posnetek zaslona:
Sorodni članki:
Kako uporabiti preverjanje črkovanja v besedilnem polju?
Kako spremeniti barvo besedilnega polja glede na vrednost v Excelu?
Kako vstaviti sliko v polje z besedilom?
Kako nastaviti privzeto vrednost v besedilnem polju?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
