Cookieak gure zerbitzuak hornitzen laguntzen digute. Gure zerbitzuak erabiltzerakoan, cookieen erabilera onartzen duzu.
Aholkua: beste hizkuntza Google-k itzulitako dira. Bisitatu dezakezu English estekaren bertsioa.
Saioa hasi
x
or
x
x
Eman izena
x

or

Nola atera testua oinarritutako letra-tipoaren kolorea zelula batean?

Exceleko gelaxka bakoitzean testu gorria duen datu-zerrenda bat badaukazu, beheko pantailaren azpian agertzen da, eta ez dakizu gorriko testua bakarrik ateratzeko? Orain Excel-eko zelula batetik letra-koloreko testua oinarrituta testua ateratzen duen puzzlea konpontzeko modu azkar bat aurkeztuko dut.

doc-extract testu-kolorea-1

Letra-tipoaren kolorea zelula bakoitzeko testua ateratzea


arrow urdina eskuineko burbuila Letra-tipoaren kolorea zelula bakoitzeko testua ateratzea


Excel-en, bakarrik definitutako funtzioa erabil dezakezu letra-tipoaren arabera testua ateratzeko.

1. Prentsa Alt + F11 teklak elkarrekin Microsoft Visual Basic aplikazioak irekitzeko leihoa.

2. klik Txertatu > Moduluak eta kopiatu VBA kodea jarraitu leihoa irekita.

VBA: Letra-kolorearen arabera testua ateratzea

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. Gero, gorde eta itxi elkarrizketa-koadroa eta hautatu gelaxka huts bat datuen zerrendaren ondoan, idatzi formula hau = GetColorText (A1) (A1-ek testua atera nahi diozun gelaxka adierazten du), sakatu Sartu gakoa lortzeko beharrezkoak diren testuak lortzeko, arrastatu autofillaren heldulekua formula nahi duzun bitartekoa betetzeko.

Orain, testu gorria erauzi dezakezu.

doc-extract testu-kolorea-2

Tip: Goiko VBA kodean, testu beltzak zelulatik atera behar badituzu, kolorea aldatu dezakezu Color = vbRed to Kolore = vbBlack.


Artikulu erlatiboak:



Gomendatutako produktibitate tresnak

Bulegoko fitxa

urrezko izarra1 Lortu erabilgarriak fitxak Excelera eta beste Office softwarearentzako, Chrome bezalakoak, Firefox eta Internet Explorer berriak.

Kutools for Excel

urrezko izarra1 Harrigarria! Handitu zure produktibitatea 5 minutu barru. Ez duzu gaitasun berezirik behar, bi ordu egunero gorde!

urrezko izarra1 300 Ezaugarri berriak Excel-era, Egin Excel oso erraza eta indartsua:

  • Batu gelaxkak / errenkadak / zutabeak datuak galdu gabe.
  • Konbinatu eta finkatzea orri anitzeko lanak.
  • Compare Ranges, Copy Multiple Ranges, Convert Text to Date, Unit eta Currency Conversion.
  • Koloreak arabera, Orrialdeak guztira, Sortu aurreratua eta Super iragazkia,
  • Gehiago Hautatu / Txertatu / Ezabatu / Testua / Formatua / Esteka / Iruzkina / Lan-liburuak / Fitxen tresnak ...

Kutools-en Excel-eko pantaila-argazkia

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