Kex hjálpa okkur að veita þjónustuna. Með því að nota þjónustu okkar, samþykkir þú að notkun okkar á kökum.
Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að þykkni texta byggð á leturgerð úr reit í Excel?

Ef þú ert með gagnalista með rauðum texta í hvern klefi í Excel eins og sýnt er sem hér að neðan skjámynd, og veistu hvernig á að draga aðeins rauða textann? Nú mun ég kynna fljótlegan hátt til að leysa þrautina sem útdráttur texta byggist á leturlitum frá frumu í Excel.

doc-extract-text-color-1

Þykkni texta byggist á leturlitum frá hverjum klefi


ör blár hægri kúla Þykkni texta byggist á leturlitum frá hverjum klefi


Í Excel er aðeins hægt að nota skilgreind aðgerð til að draga textann út úr leturlitum.

1. Ýttu á Alt + F11 lyklar saman til að opna Microsoft Visual Basic for Applications gluggann.

2. smellur Setja > Mát og afritaðu VBA-númerið sem fylgir með því að smella á gluggann.

VBA: Útdráttur texti byggist á leturgerð

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. Þá er hægt að vista og loka glugganum og veldu auða reit við hliðina á gagnalistanum, sláðu inn þessa formúlu = GetColorText (A1) (A1 gefur til kynna klefann sem þú vilt draga úr texta úr), ýttu á Sláðu inn takkann til að fá nauðsynlegan texta, dragðu þá sjálfvirkt handfang til að fylla formúluna í það bil sem þú vilt.

Nú geturðu séð allt rautt texta er dregið út.

doc-extract-text-color-2

Ábending: Í ofangreindum VBA kóða, ef þú þarft að þykkni svarta texta úr frumum, getur þú breytt litamerki Litur = vbRed til Litur = vbBlack.


Hlutfallslegar greinar:



Ráðlögð framleiðni verkfæri

Office flipi

gull star1 Komdu með handan flipa í Excel og önnur Office hugbúnaður, eins og Króm, Firefox og nýjan Internet Explorer.

Kutools fyrir Excel

gull star1 Ótrúlegt! Auka framleiðni þína á 5 mínútum. Ekki þörf á sérstökum hæfileikum, spara tvær klukkustundir á hverjum degi!

gull star1 300 Nýjar eiginleikar fyrir Excel, Gera Excel mjög auðvelt og öflugt:

  • Sameina Cell / Rows / dálka án þess að tapa gögnum.
  • Sameina og sameina margar töflur og vinnubækur.
  • Bera saman sviðum, afritaðu margar línur, umbreyta texta í dag, einingar og gjaldmiðil viðskipta.
  • Fjöldi með litum, síðuskiptafjölda, háþróaður flokkur og frábær sía,
  • Meira Veldu / Setja / Eyða / Texti / Snið / Link / Athugasemd / Vinnubækur / Verkstæði Verkfæri ...

Skjár skot af Kutools fyrir 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