Hur tillåter jag att endast siffror matas in i textrutan?

I Excel kan vi använda datavalideringsfunktionen så att endast siffror kan matas in i celler, men ibland vill jag att endast siffror ska skrivas in i en textruta såväl som i celler. Hur accepterar jag endast siffror i en textruta i Excel?

Dela ett antal celler med ett nummer med funktionen Klistra in special

Dela ett antal celler med ett nummer med funktionen Klistra in special

Följande VBA-kod kan hjälpa dig att bara ange siffror, period (.) Och ett negativt tecken i en textruta, gör så här:

1. Skapa en textruta genom att klicka Utvecklare > Insert > Textruta (ActiveX-kontroll)och rita sedan en textruta efter behov, se skärmdump:

2. Högerklicka sedan på textrutan och välj Visa kod från snabbmenyn för att öppna Microsoft Visual Basic för applikationer fönstret och ersätt sedan den ursprungliga koden med följande VBA-kod i den tomma modulen:

VBA-kod: Tillåt att endast siffror matas in i textrutan:

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. Spara och stäng sedan kodfönstret och avsluta Designläge, nu kan endast siffror, periodsymbol och negativt tecken matas in i textrutan, se skärmdump:

Relaterade artiklar:

Hur använder jag stavningskontroll i textrutan?

Hur ändrar jag textrutans färg baserat på värde i Excel?

Hur infogar jag bilden i textrutan?

Hur ställer jag in ett standardvärde i en textruta?