Πώς να επιβάλλετε κεφαλαία εισαγωγή κειμένου σε πλαίσιο κειμένου;

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

Επιβάλλετε κεφαλαία εισαγωγή κειμένου σε πλαίσιο κειμένου με κωδικό VBA

Επιβάλλετε κεφαλαία εισαγωγή κειμένου σε πλαίσιο κειμένου με κωδικό VBA

Αναγκάζοντας το κείμενο να εισαχθεί ως κεφαλαίο σε ένα πλαίσιο κειμένου, ο ακόλουθος κωδικός VBA μπορεί να σας βοηθήσει:

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

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

Κωδικός VBA: Αναγκάστε το κείμενο να είναι κεφαλαίο στο πλαίσιο κειμένου:

Private Sub TextBox1_Change()
    TextBox1.Text = UCase(TextBox1.Text)
End Sub

3. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο κώδικα και βγείτε από το Λειτουργία σχεδίασης, τώρα, όταν πληκτρολογείτε κείμενο στο πλαίσιο κειμένου, θα αναγκαστεί να εισαχθεί ως κεφαλαία, δείτε το στιγμιότυπο οθόνης: