Come consentire solo l'inserimento di numeri in una casella di testo?

In Excel, possiamo applicare la funzione Convalida dati per consentire l'inserimento solo di numeri nelle celle, ma a volte voglio che solo i numeri possano essere digitati anche in una casella di testo, oltre che nelle celle. Come accettare solo numeri in una casella di testo in Excel?

Dividi un intervallo di celle per un numero con la funzione Incolla speciale

Dividi un intervallo di celle per un numero con la funzione Incolla speciale

Il seguente codice VBA può aiutarti a inserire solo numeri, il punto (.) e il segno negativo in una casella di testo, procedi come segue:

1. Crea una casella di testo facendo clic su Sviluppatore > Inserisci > Casella di testo (Controllo ActiveX), quindi disegna una casella di testo secondo necessità, vedi screenshot:

2. Quindi fai clic con il tasto destro sulla casella di testo e seleziona Visualizza codice dal menu contestuale per aprire la finestra Microsoft Visual Basic for Applications, quindi sostituisci il codice originale con il seguente codice VBA nel modulo vuoto:

Codice VBA: Consenti solo l'inserimento di numeri nella casella di testo:

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. Quindi salva e chiudi la finestra del codice ed esci dalla Modalità Progettazione; ora solo numeri, il simbolo del punto e il segno negativo possono essere inseriti nella casella di testo, vedi screenshot:

Articoli correlati:

Come applicare il controllo ortografico in una casella di testo?

Come cambiare il colore della casella di testo in base al valore in Excel?

Come inserire un'immagine in una casella di testo?

Come impostare un valore predefinito in una casella di testo?