Note: The other languages of the website are Google-translated. Back to English

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

Εάν ένα κελί περιέχει πολλές λέξεις, πώς μπορείτε να επισημάνετε μια συγκεκριμένη λέξη μόνο σε αυτό το κελί; Και πώς να επισημάνετε αυτήν τη συγκεκριμένη λέξη σε πολλά κελιά; Αυτό το άρθρο θα παρέχει μια μέθοδο για την επίτευξή του.

Χρωματίστε συγκεκριμένη λέξη σε ένα κελί / πολλαπλά κελιά με κωδικό VBA


Χρωματίστε συγκεκριμένη λέξη σε ένα κελί / πολλαπλά κελιά με κωδικό VBA

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

1. Επιλέξτε το εύρος περιέχει τα κελιά που θέλετε να επισημάνετε συγκεκριμένη λέξη μέσα. Στη συνέχεια, πατήστε το άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον κώδικα VBA στο παράθυρο Code.

Κωδικός VBA: Χρωματίστε συγκεκριμένη λέξη σε κελιά στο Excel

Sub HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Και στο Kutools για Excel πλαίσιο διαλόγου, εισαγάγετε τη συγκεκριμένη λέξη που θα επισημάνετε στα κελιά και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

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


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


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (21)
Βαθμολογήθηκε το 5 από το 5 · αξιολογήσεις 1
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν εξηγείτε πώς να ανοίξετε το "Πλαίσιο διαλόγου Kutools for Excel" που αναφέρεται στο τελευταίο βήμα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Justin,
Συγνώμη για αυτό. Αφού επικολλήσετε τον κώδικα VBA στο παράθυρο Κώδικας, πατήστε το πλήκτρο F5 για να εκτελέσετε τον κώδικα και, στη συνέχεια, θα ανοίξει το παράθυρο διαλόγου "Kutools for Excel". Σας ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει κάποιος τρόπος να κάνω τον κώδικα να επισημαίνει αυτόματα τις λέξεις καθώς επεξεργάζομαι τις καρτέλες;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Συγγνώμη δεν μπορώ να βοηθήσω με αυτό. Ευχαριστώ για το σχόλιο σου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΕΥΧΑΡΙΣΤΩ, ΕΥΧΑΡΙΣΤΩ, ΕΥΧΑΡΙΣΤΩ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Quisisera resaltar varias palabras al tiempo, como lo puedo hacer;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Eso es lo que estoy tratando de hacer tamiben (Αυτό προσπαθώ να κάνω και εγώ)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σε περίπτωση που προτιμάτε η αναζήτηση/επισήμανση να είναι χωρίς διάκριση πεζών-κεφαλαίων, αλλάξτε τη γραμμή 'xArr = Split(xCell.Value, xHStr)' σε 'xArr = Split(LCase(xCell.Value), LCase(xHStr))'. Επίσης, παρατήρησα ότι πατώντας το F5 δεν εκτελείται το σενάριο (αλλά αντίθετα δίνει ένα άλλο παράθυρο modal). Έκανα πρόσβαση σε αυτό ενεργοποιώντας την καρτέλα Προγραμματιστής χρησιμοποιώντας τις επιλογές του Excel (Προσαρμογή κορδέλας) και στη συνέχεια κάνοντας κλικ στις Μακροεντολές.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ... αυτό ήταν πολύ χρήσιμο! Υπάρχει τρόπος να ρυθμίσετε τη μακροεντολή έτσι ώστε να επισημαίνει μόνο ολόκληρες λέξεις αντί για επιμέρους. Για παράδειγμα, προσπαθώ να επισημάνω τη λέξη "σχεδιασμός", αλλά τονίζει το "σχέδιο" στη λέξη "σχεδιασμός". Θέλω να παρακάμψει αυτή τη λέξη αν δεν είναι ολόκληρη. Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Est-il possible de supprimer la boite de dialogue et de mettre par défaut "apple" comme mot recherché ;
Merci
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου PAUC,
Ο παρακάτω κώδικας μπορεί να σας κάνει τη χάρη. Δοκιμάστε το.
Sub HighlightStrings()
'Updated by Extendoffice 20220721
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = "apple"
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
καλός

Coloreaza cuvantul doar daca e la inceput. Daca e la mijloc in aceeasi casuta de excel sau la sfarsit nu-l coloreaza.
Ce anume as putea schimba in cod pentru al colora αδιάφορο unde se afla in casuta excel;

Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Andreea,
Εάν θέλετε να επισημάνετε μόνο τη λέξη εάν βρίσκεται στην αρχή των επιλεγμένων κελιών. Ο παρακάτω κώδικας VBA μπορεί να σας κάνει τη χάρη. Δοκιμάστε το.
Sub HighlightStrings()
'Updated by Extendoffice 20220805
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            If xHStrLen <= Len(xCell.Value) Then
                If xHStr = Left(xCell.Value, xHStrLen) Then
                    xCell.Characters(1, xHStrLen).Font.ColorIndex = 3
                End If
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
a me servirebbe evidenziare tutti i numeri (comprensivi di due decimali) da -10,00 a 0 in rosso e da 0 a +10,00 in verde. come posso fare per non aggiungere singolarmente ogni dato senza aggiungerli tutti manualmente?

Grazie mille
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Ciao,
Οι αριθμοί σας βρίσκονται σε διαφορετικά κελιά μιας περιοχής; Εάν ναι, μπορείτε να δημιουργήσετε δύο κανόνες μορφοποίησης υπό όρους (μεταξύ -10 και 0, μεταξύ 0 και 10) για να επισημάνετε αυτούς τους αριθμούς. Εάν όχι, μπορείτε να ανεβάσετε ένα στιγμιότυπο οθόνης των δεδομένων σας;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι πολύ ωραίο, thx! Αναρωτιέμαι αν ξέρει κανείς πώς να το κάνει να λειτουργεί σε Mac; Πολλά ευχαριστώ
Βαθμολογήθηκε το 5 από το 5
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς θα μπορούσε να αλλάξει το σενάριο για να κάνει τα εξής;

αυξήστε τη γραμματοσειρά κατά 1 μέγεθος και
επισημάνετε πολλές λέξεις με μία εκτέλεση του σεναρίου;

Thx!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια t.taln,

Εάν θέλετε να αυξήσετε το μέγεθος της γραμματοσειράς κατά 1 και να επισημάνετε πολλές λέξεις ταυτόχρονα, προσθέστε την ακόλουθη γραμμή μετά τη γραμμή "xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3" στον κώδικα VBA.
Note: Πρέπει να γνωρίζετε εκ των προτέρων το τρέχον μέγεθος γραμματοσειράς του επιλεγμένου κελιού και, στη συνέχεια, να εισαγάγετε ένα νούμερο ένα μέγεθος μεγαλύτερο από την αρχική λέξη. Ο αριθμός 12 στην παρακάτω γραμμή είναι το μέγεθος γραμματοσειράς που θα αντιστοιχίσω στις λέξεις που ταιριάζουν. Και το αρχικό μέγεθος γραμματοσειράς της λέξης είναι 11.
xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.Size = 12
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ είναι πολύ χρήσιμο. Πώς μπορώ να επισημάνω μια λέξη αντί για ένα χρώμα γραμματοσειράς;

Regards.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ. αυτό ήταν πραγματικά χρήσιμο. Μπορεί κάποιος να πει πώς να χρωματίσει το κείμενο αντί να το τονίσει;

Χαιρετισμούς
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Shaik Faiaz Hamad,

Το Excel δεν επιτρέπει το χρωματισμό ενός μέρους ενός κελιού. Λυπάμαι που δεν μπορώ να σας βοηθήσω με αυτό το πρόβλημα.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL