Slapukai padeda mums pristatyti mūsų paslaugomis. Naudodamiesi mūsų paslaugomis, jūs sutinkate su mūsų slapukų naudojimą.
Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip iš "Excel" ląstelės išskleisti tekstą pagal šrifto spalvą?

Jei kiekvienoje "Excel" ląstelėje yra duomenų lapų su raudonu tekstu, kaip parodyta toliau esančioje ekrano kopijoje, ar žinote, kaip išimti tik raudoną tekstą? Dabar aš pristatysiu greitą būdą, kaip išspręsti galvosūkį, kuris išskiria tekstą, pagrįstą "Excel" ląstelių spalva.

doc-extract-text-color-1

Ištraukite tekstą pagal kiekvienos langelio šriftą


rodyklė mėlyna dešinė burbulas Ištraukite tekstą pagal kiekvienos langelio šriftą


"Excel" galite naudoti apibrėžtą funkciją tik teksto ištraukimui pagal šrifto spalvą.

1. Paspauskite Alt + F11 raktus kartu atidarykite "Microsoft Visual Basic for Applications" langą.

2. spragtelėjimas įsiuvas > Moduliai ir nukopijuokite VBA kodą į iššokantį langą.

VBA: teksto ištrauka, pagrįsta šrifto spalva

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. Tada išsaugokite ir uždarykite dialogą ir šalia duomenų sąrašo pasirinkite tuščią langelį, įveskite šią formulę = GetColorText (A1) (A1 nurodo langelį, į kurį norite ištraukti tekstą), paspauskite įeiti norėdami gauti reikiamą tekstą, tada vilkite automatinio užpildymo rankeną, kad užpildytumėte formulę norimam diapazonui.

Dabar galite pamatyti visas raudonas tekstas yra išgautas.

doc-extract-text-color-2

Patarimas: Į pirmiau pateiktą VBA kodą, jei reikia ištraukti juodą tekstą iš langelių, galite pakeisti spalvos pavadinimą Spalva = vbRed į Spalva = vbBlack.


Santykiniai straipsniai:



Rekomenduojami įrankiai našumui

Office Tab

aukso žvaigždutė1 Pateikite patogius skirtukus "Excel" ir kitai "Office" programinei įrangai, kaip ir "Chrome", "Firefox" ir "Internet Explorer".

Kutools for Excel

aukso žvaigždutė1 Nuostabi! Padidinkite savo našumą per 5 min. Nereikia jokių specialių įgūdžių, išskyrus dvi valandas kiekvieną dieną!

aukso žvaigždutė1 "300" naujos funkcijos "Excel", "Excel" daug lengvumo ir galingumo:

  • Sujungti elementus / eilutes / stulpelius neprarandant duomenų.
  • Suderinkite ir susinenkite kelis lapus ir darbaknygius.
  • Palyginkite diapazonus, nukopijuokite keletą diapazonų, konvertuokite tekstą į datą, vienetą ir valiutos konvertavimą.
  • Skaičiuojamas pagal spalvas, tarpinių pranešimų vidurkis, išplėstinis rūšiavimas ir super filtras,
  • Daugiau Pasirinkite / Įterpti / Ištrinti / Tekstas / Formatas / Nuoroda / Komentaras / Darbaknygiai / Užduotys Įrankiai ...

Kutools ekrano kopija 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