Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i dynnu testun yn seiliedig ar liw ffont o gell yn Excel?

Os oes gennych restr ddata gyda rhywfaint o destun coch ym mhob cell yn Excel fel y dangosir isod, ac a ydych chi'n gwybod sut i dynnu'r testun coch yn unig? Nawr, byddaf yn cyflwyno ffordd gyflym o ddatrys y pos sy'n tynnu testun yn seiliedig ar liw ffont o gell yn Excel.

doc-extract-text-color-1

Detholwch destun yn seiliedig ar liw ffont o bob cell


swigod saeth cywir glas Detholwch destun yn seiliedig ar liw ffont o bob cell


Yn Excel, dim ond y swyddogaeth ddiffiniedig y gallwch chi ei ddefnyddio i dynnu'r testun yn seiliedig ar liw ffont.

1. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau a chopïwch y cod VBA dilynol i'r ffenestr sydd wedi'i dynnu allan.

VBA: Detholwch destun yn seiliedig ar liw ffont

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. Yna, cadwch a chau'r dialog, a dewiswch gell wag wrth ymyl y rhestr ddata, mathwch y fformiwla hon = GetColorText (A1) (A1 yn nodi'r gell rydych chi am dynnu testun), pwyswch Rhowch allwedd i gael y testun sydd ei angen, yna llusgo trin awtomatig i lenwi'r fformiwla i'r ystod rydych ei eisiau.

Nawr gallwch weld yr holl destun coch yn cael ei dynnu.

doc-extract-text-color-2

Tip: Yn y cod VBA uchod, os oes angen i chi dynnu'r testun du o gelloedd, gallwch newid enw'r lliw Lliw = vbRed i Lliw = vbBlack.


Erthyglau cymharol:



Offer Cynhyrchiant a Argymhellir

Tab Swyddfa

star1 aur Dewch â thafiau defnyddiol i Excel a meddalwedd Swyddfa eraill, yn union fel Chrome, Firefox a Internet Explorer newydd.

Kutools ar gyfer Excel

star1 aur Yn rhyfeddol! Cynyddu eich cynhyrchedd mewn munudau 5. Peidiwch ag angen unrhyw sgiliau arbennig, arbed dwy awr bob dydd!

star1 aur 300 Nodweddion Newydd ar gyfer Excel, Gwnewch Excel Yn Fach Hawdd a Phwerus:

  • Cyfuno Cell / Rows / Colofnau heb Colli Data.
  • Cyfuno a Chyfuno Taflenni Lluosog a Llyfrau Gwaith.
  • Cymharwch Rangau, Copi Lluosog, Trosi Testun hyd yma, Uned ac Addasu Arian.
  • Count by Colors, Subtotals Paging, Trefnu Uwch ac Uwch Hidlo,
  • Mwy Dethol / Mewnosod / Delete / Text / Format / Link / Comment / Llyfrau Gwaith / Taflenni Gwaith Offer ...

Sgrîn sgript o Kutools ar gyfer 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