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?