Piškotki nam pomagajo dostaviti naših storitev. Z uporabo naših storitev se strinjate z našo uporabo piškotkov.
Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izpisati besedilo glede na barvo pisave iz celice v Excelu?

Če imate v podatkovnem seznamu nekaj rdečega besedila v vsaki celici v Excelu, kot je prikazano na sliki spodaj, in ali veste, kako izpisati samo rdeče besedilo? Sedaj bom predstavil hiter način za reševanje uganke, ki izpisuje besedilo na podlagi barve pisave iz celice v Excelu.

doc-ekstrakt-besedilo-barva-1

Izpisati besedilo glede na barvo pisave iz vsake celice


puščica modra desno mehurček Izpisati besedilo glede na barvo pisave iz vsake celice


V Excelu lahko uporabite samo definirano funkcijo za pridobivanje besedila glede na barvo pisave.

1. Pritisnite Alt + F11 skupaj odprete okno Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduli in kopirajte sledilno kodo VBA v izbrano okno.

VBA: ekstrahiranje besedila glede na barvo pisave

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. Nato shranite in zaprite pogovorno okno in izberite prazno celico poleg seznama podatkov, vnesite to formulo = GetColorText (A1) (A1 označuje celico, iz katere želite izvleči besedilo), pritisnite Vnesite ključ, da dobite potrebno besedilo, nato pa povlecite ročico samodejnega izpolnjevanja, da izpolnite formulo na želeni obseg.

Zdaj lahko vidite, da je izpisano vse rdeče besedilo.

doc-ekstrakt-besedilo-barva-2

Nasvet: V zgornji kodi VBA, če morate črno besedilo izvleči iz celic, lahko spremenite barvno ime Barva = vbRed do Barva = vbBlack.


Relativni članki:



Priporočena orodja za produktivnost

Office Tab

zlata zvezda1 Pripeljite priročne zavihke v programsko opremo Excel in drugo programsko opremo, tako kot Chrome, Firefox in novi Internet Explorer.

Kutools za Excel

zlata zvezda1 Neverjetno! Povečajte produktivnost v minutah 5. Ne potrebujete posebnih veščin, prihranite dve uri vsak dan!

zlata zvezda1 300 Nove funkcije za Excel, naredite Excel precej enostavno in zmogljivo:

  • Spoji celice / vrstice / stolpci brez izgube podatkov.
  • Združite in konsolidirajte več listov in delovnih zvezkov.
  • Primerjajte obsege, kopiraj več razponov, pretvorite besedilo v datum, pretvorbo enote in valute.
  • Count by Colors, Paging Subtotals, Advanced Sort in Super Filter,
  • Več Izberite / Vstavi / Izbriši / Besedilo / Format / Povezava / Komentar / Delovne knjige / Delovni listi ...

Zaslonski posnetek Kutools za 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