Cookies palīdzēs mums sasniegt mūsu pakalpojumus. Izmantojot mūsu pakalpojumus, jūs piekrītat mūsu sīkdatņu izmantošanu.
Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā ekstrakts tekstu, pamatojoties uz fonta krāsu no Excel šūnas?

Ja jums ir datu saraksts ar kādu sarkanu tekstu katrā Excel šūnā, kā parādīts ekrānuzņēmumā zemāk, un vai jūs zināt, kā iegūt tikai sarkano tekstu? Tagad es ieviestu ātru veidu, kā atrisināt mīklu, kas ekstrakta tekstu, pamatojoties uz Excel šūnas fonta krāsu.

doc-extract-text-color-1

Izraksta tekstu, pamatojoties uz fonta krāsu no katras šūnas


bultiņa zils labais burbulis Izraksta tekstu, pamatojoties uz fonta krāsu no katras šūnas


Programmā Excel varat izmantot noteikto funkciju, lai iegūtu tekstu, pamatojoties uz fonta krāsu.

1. Nospiediet Alt + F11 taustiņi kopā, lai atvērtu Microsoft Visual Basic for Applications logu.

2. klikšķis ielaidums > Moduļi un nokopējiet sekojošo VBA kodu uz izgrieztā loga.

VBA: ekstrakts teksts, pamatojoties uz fonta krāsu

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. Pēc tam saglabājiet un aizveriet dialoglodziņu un atlasiet tukšo šūnu blakus datu sarakstam, ierakstiet šo formulu = GetColorText (A1) (A1 norāda kameru, no kuras vēlaties iegūt tekstu), nospiediet ienākt lai iegūtu vajadzīgo tekstu, pēc tam velciet automātiskās aizpildīšanas rokturi, lai aizpildītu formulu, līdz vajadzīgajam diapazonam.

Tagad jūs varat redzēt visu sarkano tekstu tiek iegūti.

doc-extract-text-color-2

Gals: Iepriekš minētajā VBA kodā, ja jums ir nepieciešams izvilkt melno tekstu no šūnām, varat mainīt krāsu nosaukumu Krāsa = vbRed uz Krāsa = vb.Black.


Relatīvie raksti:



Ieteicamie produktivitātes rīki

Cilnē Office

zelta zvaigzne1 Novietojiet parocīgas cilnes Excel un citai Office programmatūrai, tāpat kā Chrome, Firefox un jaunā Internet Explorer.

Kutools Excel

zelta zvaigzne1 Pārsteidzošs! Palieliniet savu produktivitāti 5 minūtēs. Nepieciešamas īpašas prasmes, izņemot katru dienu divas stundas!

zelta zvaigzne1 300 jaunas funkcijas Excel, Make Excel daudz viegli un jaudīgu:

  • Apvienot šūnu / rindas / kolonnas, nezaudējot datus.
  • Apvienot un konsolidēt vairākas lapas un darbgrāmatas.
  • Salīdziniet diapazonus, kopējiet vairākus diapazonus, pārveidojiet tekstu uz datumu, vienību un valūtas konvertēšanu.
  • Count by Colors, Paging Starpsvars, Advanced Kārtot un Super Filter,
  • Vairāk Izvēlēties / Ievietot / Dzēst / Teksts / Format / Saite / Komentārs / Darbgrāmatas / Darblapas Rīki ...

Kutools ekrānuzņēmums 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