Πώς να τολμήσετε μόνο την πρώτη γραμμή ή την πρώτη λέξη στο κελί στο Excel;
Σε ένα φύλλο εργασίας του Excel, ενδέχεται να υπάρχουν πολλά κελιά που περιέχουν πολλές γραμμές που παραγράφονται με τα πλήκτρα Alt + Enter. Σε ορισμένες περιπτώσεις, ίσως χρειαστεί να γράψετε έντονα μόνο την πρώτη γραμμή σε αυτά τα κελιά. Ή τολμηρή μόνο την πρώτη λέξη που την κάνει εξαιρετική στα κελιά. Αυτό το άρθρο παρουσιάζει δύο μεθόδους για να το επιτύχετε λεπτομερώς.
Έντονη μόνο την πρώτη γραμμή στο κελί με κωδικό VBA Έντονη μόνο η πρώτη λέξη στο κελί με κωδικό VBA
Έντονη μόνο την πρώτη γραμμή στο κελί με κωδικό VBA
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να προσθέσετε έντονα έντονα γράμματα μόνο στην πρώτη γραμμή σε επιλεγμένα κελιά. Κάντε τα εξής:
1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Module.
Κωδικός VBA: Έντονη μόνο η πρώτη γραμμή στα κελιά
Option Explicit
Sub BoldFirstLine()
Dim xRng As Range, xCell As Range
Dim xFirstRow As String
On Error Resume Next
Set xRng = Application.InputBox("Please select range：", "Kutools for", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
With xCell
.Characters(1, InStr(.Value, Chr(10))).Font.Bold = True
End With
Next
End Sub3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Μετά ένα Kutools για Excel εμφανίζεται το παράθυρο διαλόγου, επιλέξτε το εύρος με την πρώτη γραμμή που χρειάζεστε για να το κάνετε τολμηρό και, στη συνέχεια, κάντε κλικ στο OK κουμπί.
Στη συνέχεια, μπορείτε να δείτε ότι όλες οι πρώτες γραμμές επιλεγμένων κελιών είναι έντονες, όπως φαίνεται παρακάτω.
Έντονη μόνο η πρώτη λέξη στο κελί με κωδικό VBA
Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, μερικές φορές, πρέπει να επισημάνετε με έντονη γραφή την πρώτη λέξη μόνο στην περιοχή A2: A4 στο Excel. Μπορείτε να το επιτύχετε ως εξής βήμα προς βήμα.
1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Module.
Κωδικός VBA: Έντονη μόνο η πρώτη λέξη στα κελιά
Sub boldtext()
Dim xRng As Range, xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range：", "Kutools fro Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
If xCell.Value <> "" Then
xCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = True
End If
Next
End Sub3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στο αναδυόμενο Kutools για Excel πλαίσιο διαλόγου, επιλέξτε το εύρος που θέλετε να κάνετε έντονη την πρώτη λέξη και, στη συνέχεια, πατήστε το OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
Στη συνέχεια, μπορείτε να δείτε ότι όλες οι πρώτες λέξεις των επιλεγμένων κελιών είναι έντονες, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
Σχετικό άρθρο:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
