קאָאָקיעס העלפֿן אונדז צושטעלן אונדזער באַדינונגס. דורך ניצן אונדזער באַדינונגס, איר שטימען צו אונדזער נוצן פון קיכלעך.
שפּיץ: אנדערע שפּראַכן זענען גוגל-איבערגעזעצט. איר קענען באַזוכן דעם English ווערסיע פון ​​דעם לינק.
צייכן אריין
x
or
x
x
רעגיסטרירן
x

or

ווי צו עקסטראַקט טעקסט באזירט אויף שריפֿט קאָליר פון אַ צעל אין עקססעל?

אויב איר האָבן אַ דאַטן רשימה מיט עטלעכע רויט טעקסט אין יעדער צעל אין עקססעל ווי געוויזן ווי אונטן סקרעענשאָט, און טאָן איר וויסן ווי צו עקסטראַקט די רויט טעקסט בלויז? איצט איך וועט פאָרשטעלן אַ שנעל וועג צו סאָלווע די רעטעניש אַז אויסצונוצן טעקסט באזירט אויף די שריפֿט קאָליר פון אַ צעל אין עקססעל.

דאָק-עקסטראַקט-טעקסט-קאָליר-קסנומקס

עקסטראַקט טעקסט באזירט אויף שריפֿט קאָליר פון יעדער צעל


פייַל בלוי רעכט בלאָז עקסטראַקט טעקסט באזירט אויף שריפֿט קאָליר פון יעדער צעל


אין עקססעל, איר נאָר קענען נוצן די דיפיינד פונקציאָנירן צו עקסטראַקט דעם טעקסט באזירט אויף שריפֿט קאָליר.

1. דרוק אַלט + פקסנומקס שליסלען צוזאַמען צו עפענען די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער

2. דריקט אַרייַנלייגן > מאָדולעס און נאָכמאַכן די נאָכפאָלגן וובאַ קאָד צו די פּאַפּט אויס פֿענצטער.

וובאַ: עקסטראַקט טעקסט באזירט אויף שריפֿט קאָליר

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. דערנאָך ראַטעווען און נאָענט די דיאַלאָג, און אויסקלייַבן אַ ליידיק צעל ווייַטער צו די דאַטן רשימה, טיפּ דעם פאָרמולע = געטקאָלאָרטעקסט (אַקסנומקס) (A1 ינדיקייץ די צעל איר ווילן צו עקסטראַקט טעקסט פון), דריקן אַרייַן שליסל צו באַקומען די דארף טעקסט, און שלעפּן אַוטאָפילל שעפּן צו פּלאָמבירן די פאָרמולע צו די קייט איר ווילן.

איצט איר קענען זען אַלע רויט טעקסט זענען יקסטראַקטאַד.

דאָק-עקסטראַקט-טעקסט-קאָליר-קסנומקס

שפּיץ: אין די אויבן VBA קאָד, אויב איר דאַרפֿן צו עקסטראַקט די שוואַרץ טעקסט פון סעלז, איר קענען טוישן די קאָליר נאָמען Color = vbRed צו קאָליר = וובבלאַקק.


פֿאַרבונדענע אַרטיקלען:



רעקאַמענדיד פּראָדוקטיוויטי מכשירים

אָפיס טאַב

גאָלד סטאַרקסנומקס ברענגען האַנטיק טאַבס צו עקססעל און אנדערע אָפפיסע ווייכווארג, נאָר ווי קראָום, פירעפאָקס און נייַ Internet Explorer.

קוטאָאָלס פֿאַר עקססעל

גאָלד סטאַרקסנומקס געוואלדיג! פאַרגרעסערן דיין פּראָודאַקטיוויטי אין קסנומקס מינוט. טאָן ניט דאַרפֿן ספּעציעל סקילז, שפּאָרן צוויי שעה פּער טאָג!

גאָלד סטאַרקסנומקס 300 New פֿעיִקייטן פֿאַר עקססעל, מאַכן עקססעל פיל גרינג און שטאַרק:

  • צונויפגיסן צעל / ראָוז / שפאלטן אָן לאָסינג דאַטע.
  • קאַמביין און קאָנסאָלידירן מער ווי איין שיץ און וואָרקבאָאָקס.
  • פאַרגלייַכן רייען, קייפל ראַנגעס, קאָנווערט טעקסט צו טאָג, יוניט און קראַנטקייַט קאָנווערסיאָן.
  • גראף דורך פארבן, פּאַגינג סובטאָטאַלס, אַוואַנסירטע סאָרט און יבער פֿילטריר,
  • מער אויסקלייַבן / Insert / Delete / Text / Format / לינק / קאַמענט / וואָרקבאָאָקס / וואָרקשעעץ מכשירים ...

סקרין שאָס פון קוטאָאָלס פֿאַר עקססעל

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