Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανε ΕΓΓΡΑΦΗ
x

or

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

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

doc-extract-text-color-1

Εξαγωγή κειμένου με βάση το χρώμα γραμματοσειράς από κάθε κελί


arrow μπλε δεξιά φούσκα Εξαγωγή κειμένου με βάση το χρώμα γραμματοσειράς από κάθε κελί


Στο Excel, μπορείτε να χρησιμοποιήσετε μόνο την καθορισμένη λειτουργία για να εξαγάγετε το κείμενο με βάση το χρώμα της γραμματοσειράς.

1. Τύπος Alt + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης και αντιγράψτε τον ακόλουθο κώδικα VBA στο παράθυρο που αναδύθηκε.

VBA: Εξαγωγή κειμένου με βάση το χρώμα γραμματοσειράς

Function GetColorText(pRange As Range) As String
	'Updateby20141105
	Dim xOut As String
	Dim xValue As String
	Dim i As Long
	xValue = pRange.Text

	For i = 1 To VBA.Len(xValue)

		If pRange.Characters(i, 1).Font.Color = vbRed Then
			xOut = xOut & VBA.Mid(xValue, i, 1)
		End If

	Next

	GetColorText = xOut
End Function

3. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο διαλόγου και επιλέξτε ένα κενό κελί δίπλα στη λίστα δεδομένων, πληκτρολογήστε αυτόν τον τύπο = GetColorText (A1) (Το A1 υποδεικνύει το κελί στο οποίο θέλετε να εξάγετε κείμενο), πατήστε εισάγετε για να λάβετε το απαραίτητο κείμενο και, στη συνέχεια, μεταφέρετε τη λαβή αυτόματης συμπλήρωσης για να συμπληρώσετε τον τύπο στο εύρος που θέλετε.

Τώρα μπορείτε να δείτε όλα τα κόκκινα κείμενα εξάγονται.

doc-extract-text-color-2

Άκρο: Στον παραπάνω κώδικα VBA, αν χρειαστεί να εξαγάγετε το μαύρο κείμενο από τα κελιά, μπορείτε να αλλάξετε το όνομα του χρώματος Χρώμα = vbRed προς την Χρώμα = vbBlack.


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



Συνιστώμενα εργαλεία παραγωγικότητας

Καρτέλα Office

χρυσό star1 Φέρτε χρήσιμες καρτέλες στο Excel και άλλο λογισμικό του Office, όπως το Chrome, το Firefox και ο νέος Internet Explorer.

Kutools για το Excel

χρυσό star1 Φοβερο! Αυξήστε την παραγωγικότητά σας σε λεπτά 5. Δεν χρειάζεστε ειδικές δεξιότητες, εκτός από δύο ώρες κάθε μέρα!

χρυσό star1 300 Νέες δυνατότητες για Excel, Κάντε το Excel πολύ εύκολο και ισχυρό:

  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων.
  • Συνδυασμός και ενοποίηση πολλών φύλλων και βιβλίων εργασίας.
  • Συγκρίνετε Περιοχές, Αντιγραφή Πολλαπλών Εύρους, Μετατροπή Κειμένου σε Ημερομηνία, Μετατροπή μονάδας και νομίσματος.
  • Καταμέτρηση κατά Χρώματα, Υποσύνολα σελίδας, Σύνθετη Ταξινόμηση και Σούπερ Φίλτρο,
  • Περισσότερα Επιλογή / Εισαγωγή / Διαγραφή / Κείμενο / Μορφή / Σύνδεσμος / Σχόλιο / Βιβλία εργασίας / Φύλλα εργασίας Εργαλεία ...

Εικόνα του Kutools για το Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    prudwi · 3 months ago
    The code works well if the red strings are continuous. In case they are separated in the source cell, they are glued to each other in output cell. I mean there is no space in the output if the red text strings are away from each other. Can you please provide a solution for this?
  • To post as a guest, your comment is unpublished.
    Kazam Raza · 3 months ago
    thanks, very interesting code.
  • To post as a guest, your comment is unpublished.
    Roberto · 4 months ago
    dimenticavo io ho Excel 2010
  • To post as a guest, your comment is unpublished.
    Roberto · 4 months ago
    Buonasera, grazie mille un'ottima funzione. Però ho un problema, quando val nel foglio ed inserisco es. = GetColorText (A1) mi restituisce il valore giusto però come riavvio il file mi da errore #VALORE!, se poi clicco 2 volte sopra mi da il valore corretto e così via. che posso fare?
  • To post as a guest, your comment is unpublished.
    JM · 1 years ago
    Hey, Thanks for the Tip. Works great with Red and Black.
    What if I want to parse "Purple"? changing it vbPurple does not work.
    Thanks