Πώς να μετατρέψετε όλα τα όρια σε μόνο πρώτο όριο σε επιλεγμένο εύρος στο Excel;
Ας υποθέσουμε ότι έχετε ένα φύλλο εργασίας με όλα τα ονόματα κεφαλαία σε μια λίστα, πώς να τα μετατρέψετε σε κεφαλαιοποίηση μόνο του πρώτου γράμματος κάθε λέξης; Αυτό το άρθρο σας παρέχει τρεις μεθόδους για την αντιμετώπιση αυτού του προβλήματος.
Μετατρέψτε όλα τα κεφαλαία για να δημιουργήσετε μόνο το πρώτο γράμμα κάθε κεφαλαίου με τύπο
Μετατρέψτε όλα τα κεφαλαία για να δημιουργήσετε μόνο το πρώτο γράμμα κάθε κεφαλαίου με κωδικό VBA
Μετατρέψτε όλα τα κεφαλαία για να κάνετε μόνο το πρώτο γράμμα κάθε κεφαλαίου με μαζικά το Kutools για Excel
Μετατρέψτε όλα τα κεφαλαία για να δημιουργήσετε μόνο το πρώτο γράμμα κάθε κεφαλαίου με τύπο
Μπορείτε να μετατρέψετε όλα τα κεφαλαία σε μόνο πρώτο όριο σε μια λίστα με τύπο. Κάντε τα εξής:
1. Επιλέξτε ένα κενό κελί (λέει το κελί C2) για τον εντοπισμό του αποτελέσματος που έχει μετατραπεί και εισαγάγετε τον τύπο = PROPER (B2) στη γραμμή τύπων και, στη συνέχεια, πατήστε το εισάγετε κλειδί.
Μπορείτε να δείτε ότι το κεφαλαίο όνομα μετατρέπεται σε σωστή περίπτωση (πρώτο όριο) αμέσως στη στήλη βοήθειας.
2. Συνεχίστε να επιλέγετε το κελί C2, σύρετε τη λαβή πλήρωσης προς τα κάτω στη λίστα μέχρι να φτάσει στο κελί που χρειάζεστε για να μετατρέψετε τη θήκη ονόματος.
Note: Στον τύπο, αλλάξτε την αναφορά κελιού με βάση τη λίστα σας.
Αλλάξτε εύκολα την περίπτωση κειμένων σε επιλεγμένο εύρος στο Excel
Kutools για Excel's Αλλαγή περίπτωσης Το βοηθητικό πρόγραμμα σάς βοηθά να αλλάξετε εύκολα τα κείμενα σε επιλεγμένο εύρος στο Excel. όπως φαίνεται στην παρακάτω επίδειξη.
Κατεβάστε το και δοκιμάστε το τώρα! (Δωρεάν διαδρομή 30 ημερών)
Μετατρέψτε όλα τα κεφαλαία για να δημιουργήσετε μόνο το πρώτο γράμμα κάθε κεφαλαίου με κωδικό VBA
Εκτός αυτού, μπορείτε να εκτελέσετε τον ακόλουθο κώδικα VBA για να μετατρέψετε όλα τα ονόματα με κεφαλαία γράμματα σε μόνο πρώτο όριο σε μια λίστα.
1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογή παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογή παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στο Μονάδα μέτρησης παράθυρο.
Κωδικός VBA: Μετατροπή όλων των κεφαλαίων σε πρώτο όριο
Sub Proper_Case()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg.Cells
If xCell.HasFormula = False Then
xCell.Value = Application.WorksheetFunction.Proper(xCell.Value)
End If
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Κάντε κλικ στο κουμπί F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτόν τον κωδικό. Στο αναδυόμενο Kutools για Excel πλαίσιο διαλόγου, επιλέξτε το εύρος που θέλετε να μετατρέψετε όλα τα κεφαλαία σε μόνο πρώτο όριο και, στη συνέχεια, κάντε κλικ στο OK κουμπί.
Στη συνέχεια, όλα τα κεφαλαία ονόματα σε επιλεγμένο εύρος μετατρέπονται σε μόνο πρώτα ονόματα κεφαλαίων αμέσως.
Μετατρέψτε όλα τα κεφαλαία για να κάνετε μόνο το πρώτο γράμμα κάθε κεφαλαίου με μαζικά το Kutools για Excel
Αυτή η ενότητα σας δείχνει το Αλλαγή περίπτωσης χρησιμότητα του Kutools για Excel για τη μετατροπή όλων των κεφαλαίων σε μόνο πρώτο όριο μαζικά με πολλά κλικ μόνο.
Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.
1. Επιλέξτε τη λίστα που θέλετε να μετατρέψετε τη θήκη και, στη συνέχεια, κάντε κλικ στο Kutools > Κείμενο > Αλλαγή περίπτωσης. Δείτε το στιγμιότυπο οθόνης:
2. Στο Αλλαγή περίπτωσης πλαίσιο διαλόγου, επιλέξτε το Σωστή θήκη και στη συνέχεια κάντε κλικ στο OK κουμπί.
Στη συνέχεια, όλα τα κεφαλαία ονόματα στην επιλεγμένη λίστα μετατρέπονται σε σωστή περίπτωση ταυτόχρονα.
Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!