Cuidiú fianáin linn ár seirbhísí a sheachadadh. Trí úsáid a bhaint ár gcuid seirbhísí, aontaíonn tú úsáid a bhainimid as fianáin.
Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

Conas téacs a bhaint de réir dath clóite ó chill i Excel?

Má tá liosta sonraí agat le roinnt téacs dearg i ngach ceall in Excel mar a thaispeántar mar an scáileán thíos, agus a bhfuil a fhios agat conas an téacs dearg a bhaint as amháin? Anois, tabharfaidh mé bealach tapa chun an bhfreagra a tharraingíonn téacs atá bunaithe ar an dath cló ó cheall in Excel a réiteach.

doc-extract-text-color-1

Tarraing an téacs atá bunaithe ar an dath clóite ó gach cill


mboilgeog ceart gorm arrow Tarraing an téacs atá bunaithe ar an dath clóite ó gach cill


In Excel, ní féidir leat ach an fheidhm shainithe a úsáid chun an téacs a bhaint as an dath clóite.

1. Brúigh Alt + F11 eochracha le chéile chun an fhuinneog Microsoft Visual Basic d'Iarratais a oscailt.

2. cliceáil Ionsáigh > Modúil agus cóip an cód VBA a leanúint go dtí an fhuinneog casta amach.

VBA: Tarraing an téacs atá bunaithe ar an dath cló

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. Ansin sábháil agus dún an dialóg, agus roghnaigh ceall bán in aice leis an liosta sonraí, cineál an fhoirmle seo = GetColorText (A1) (Léiríonn A1 an chill ar mhaith leat téacs a bhaint as), brúigh Iontráil eochair chun an téacs atá ag teastáil a fháil, tarraing an t-uillfí ar láimh chun an fhoirmle a líonadh go dtí an raon is mian leat.

Anois is féidir leat a fheiceáil go bhfuil an téacs dearg ar fad á mbaint amach.

doc-extract-text-color-2

Leid: Sa chód VBA thuas, más gá duit an téacs dubh a bhaint as cealla, is féidir leat an t-ainm dath a athrú Dath = vbRed chun Dath = vbBlack.


Earraí coibhneasta:



Uirlisí Táirgiúlachta Molta

Tab Office

óir star1 Tabs tabs láimhe le Excel agus bogearraí eile Oifige, cosúil le Chrome, Firefox agus Internet Explorer nua.

Kutools le haghaidh Excel

óir star1 Iontach! Méadú do tháirgiúlacht i 5 nóiméad. Ní gá aon scileanna speisialta a bheith agat, ach dhá uair an chloig a shábháil gach lá!

óir star1 Gnéithe Nua 300 le haghaidh Excel, Déan Excel Mór Éasca agus Cumhachtach:

  • Cumaisc Cill / Sraitheanna / Colúin gan Sonraí a Chailliúint.
  • Ilchláir agus Leabhair Oibre a Chomhcheangal agus a Chomhdhlúthú.
  • Déan comparáid idir Ranganna, Cóipeáil Ilchéimeanna, Tiontaigh Téacs go dtí Dáta, Aonad agus Comhshó Airgeadra.
  • Count by Colors, Subtotals Paging, Ard-Shórtáil agus Scagaire Super,
  • Tuilleadh Roghnaigh / Ionsáigh / Scrios / Téacs / Formáid / Nasc / Comment / Leabhair Oibre / Bileoga Oibre Uirlisí ...

Lámhach scáileán de Kutools do 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