עוגיות לעזור לנו לספק השירותים שלנו. על ידי שימוש בשירותים שלנו, אתה מסכים לשימוש בעוגיות שלנו.
טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or

כיצד לחלץ טקסט המבוסס על צבע גופן מתא ב- Excel?

אם יש לך רשימת נתונים עם טקסט אדום כלשהו בכל תא ב- Excel כפי שמוצג בתמונה למטה, ואתה יודע איך לחלץ את הטקסט האדום בלבד? עכשיו אני אציג דרך מהירה כדי לפתור את הפאזל כי תמציות טקסט מבוסס על צבע הגופן מתא ב - Excel.

doc-extract-text-color-1

חלץ טקסט המבוסס על צבע גופן מכל תא


חץ כחול בועה ימין חלץ טקסט המבוסס על צבע גופן מכל תא


ב- 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.


מאמרים יחסיים:



כלי פרודוקטיביות מומלצים

הכרטיסייה 'משרד'

כוכב זהב תביא כרטיסיות שימושיות ל- Excel ולתוכנות Office אחרות, בדיוק כמו Chrome, Firefox ו- Internet Explorer החדש.

Kutools עבור Excel

כוכב זהב מדהים! הגדל את הפרודוקטיביות שלך ב- 5 דקות. לא צריך שום כישורים מיוחדים, לשמור שעתיים כל יום!

כוכב זהב 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 · 2 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 · 2 months ago
    thanks, very interesting code.
  • To post as a guest, your comment is unpublished.
    Roberto · 3 months ago
    dimenticavo io ho Excel 2010
  • To post as a guest, your comment is unpublished.
    Roberto · 3 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