Koekies help om ons dienste te lewer. Deur die gebruik van ons dienste, stem jy in tot ons gebruik van koekies.
Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om teks te verwyder wat gebaseer is op fontkleur van 'n sel in Excel?

As u 'n data lys met 'n paar rooi teks in elke sel in Excel het, soos hieronder aangedui, is u 'n skermkiekie en weet u hoe om die rooi teks net uit te haal? Nou sal ek 'n vinnige manier bekendstel om die legkaart op te los wat teks uitmaak wat gebaseer is op die fontkleur van 'n sel in Excel.

doc-uittreksel-teks-kleur-1

Uittreksel teks gebaseer op font kleur van elke sel


pyl blou regte borrel Uittreksel teks gebaseer op font kleur van elke sel


In Excel kan jy slegs die gedefinieerde funksie gebruik om die teks wat gebaseer is op lettertipe kleur te onttrek.

1. Press Alt + F11 sleutels om die Microsoft Visual Basic for Applications-venster oop te maak.

2. Klik Plaas > module en kopieer die volgende VBA-kode na die uitgestopte venster.

VBA: Uittreksel teks gebaseer op font kleur

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. Dan slaan en sluit die dialoog, en kies 'n leë sel langs die data lys, tik hierdie formule = GetColorText (A1) (A1 dui die sel aan waarvan jy teks wil onttrek), druk Tik sleutel om die nodige teks te kry, sleep dan die outfill-handvatsel om die formule te vul na die gewenste reeks.

Nou kan jy sien dat alle rooi teks uitgetrek word.

doc-uittreksel-teks-kleur-2

tip: In die bostaande VBA-kode, as u die swart teks uit selle moet onttrek, kan u die kleur naam verander Kleur = vbRed om Color = vbBlack.


Relatiewe artikels:



Aanbevole Produktiviteitsinstrumente

Office Tab

goud star1 Bring handige oortjies na Excel en ander Office-sagteware, net soos Chrome, Firefox en nuwe Internet Explorer.

Kutools for Excel

goud star1 Amazing! Verhoog jou produktiwiteit in 5 minute. Geen spesiale vaardighede nodig nie, bespaar twee uur elke dag!

goud star1 300 Nuwe funksies vir Excel, maak Excel baie maklik en kragtig:

  • Voeg sel / Rye / Kolomme saam sonder om data te verloor.
  • Kombineer en konsolideer veelvuldige blaaie en werkboeke.
  • Vergelyk waardes, Kopieer verskeie reekse, skakel teks na datum, Eenheid en Geld Omskakeling.
  • Tel deur kleure, plasingsubtotale, gevorderde sorteer en superfilter,
  • Meer Kies / Invoeg / Skrap / Teks / Formaat / Skakel / Kommentaar / Werkboeke / Werkkaarte Gereedskap ...

Skermskoot van Kutools vir 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