Πώς επιτρέπεται η εισαγωγή μόνο αριθμών στο πλαίσιο κειμένου;

Στο Excel, μπορούμε να εφαρμόσουμε τη λειτουργία επικύρωσης δεδομένων για να επιτρέψουμε την εισαγωγή μόνο αριθμών σε κελιά, αλλά, μερικές φορές, θέλω μόνο να πληκτρολογούνται αριθμοί σε πλαίσιο κειμένου, καθώς και σε κελιά. Πώς να αποδεχτείτε μόνο αριθμούς σε ένα πλαίσιο κειμένου στο Excel;

Διαιρέστε μια περιοχή κελιών με έναν αριθμό με τη λειτουργία Paste Special

Διαιρέστε μια περιοχή κελιών με έναν αριθμό με τη λειτουργία Paste Special

Ο ακόλουθος κωδικός VBA μπορεί να σας βοηθήσει να εισαγάγετε αριθμούς, τελεία (.) Και ένα αρνητικό σύμβολο μόνο σε ένα πλαίσιο κειμένου, κάντε το ως εξής:

1. Δημιουργήστε ένα πλαίσιο κειμένου κάνοντας κλικ Εργολάβος > Κύριο θέμα > Πλαίσιο κειμένου (ActiveX Control)και, στη συνέχεια, σχεδιάστε ένα πλαίσιο κειμένου όπως χρειάζεστε, δείτε το στιγμιότυπο οθόνης:

2. Στη συνέχεια, κάντε δεξί κλικ στο πλαίσιο κειμένου και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, αντικαταστήστε τον αρχικό κωδικό με τον ακόλουθο κώδικα VBA στην κενή μονάδα:

Κωδικός VBA: Να επιτρέπεται η εισαγωγή μόνο αριθμών στο πλαίσιο κειμένου:

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. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο κώδικα και βγείτε από το Λειτουργία σχεδίασης, τώρα, μόνο οι αριθμοί, το σύμβολο τελείας και το αρνητικό σύμβολο μπορούν να εισαχθούν στο πλαίσιο κειμένου, δείτε το στιγμιότυπο οθόνης:

Σχετικά άρθρα:

Πώς να εφαρμόσετε ορθογραφικό έλεγχο στο πλαίσιο κειμένου;

Πώς να αλλάξετε το χρώμα του κειμένου με βάση την τιμή στο Excel;

Πώς να εισαγάγετε την εικόνα στο πλαίσιο κειμένου;

Πώς να ορίσετε μια προεπιλεγμένη τιμή σε ένα πλαίσιο κειμένου;