Vihje: Muut kielet ovat Google-käännettyjä. Voit vierailla English tämän linkin versio.
Kirjaudu
x
or
x
x
Rekis.
x

or

Kuinka poimia tekstin fontin perusteella Excelin solusta?

Jos sinulla on tietolista jollain punaisella tekstillä jokaisessa solussa Excelissä, kuten alla olevassa kuvakaappauksessa esitetään, ja tiedätkö, miten vain puretaan punaista tekstiä? Nyt otan käyttöön nopean tavan ratkaista pulssin, joka erottaa tekstin fontin perusteella Excel-solusta.

doc-uute-tekstin väri-1

Pura teksti kustakin solusta fontin värin perusteella


nuoli sininen oikeus kupla Pura teksti kustakin solusta fontin värin perusteella


Excelissä voit käyttää määritettyä toimintoa vain tekstin poistamiseen fontin värin perusteella.

1. Lehdistö Alt + F11 avaimet avaamaan Microsoft Visual Basic for Applications -ikkunan.

2. napsauttaa liite > Moduulit ja kopioi seuraava VBA-koodi ponnahdusikkunaan.

VBA: Pura tekstin kirjasintyypin perusteella

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. Tallenna ja sulje sitten valintaikkuna ja valitse tyhjän solun tietoluettelon vieressä, kirjoita tämä kaava = GetColorText (A1) (A1 ilmaisee solun, josta haluat erottaa tekstin), paina astua avain saadaksesi tarvittavan tekstin ja vedä automaattisen täytön kahva täyttääksesi kaavan haluttuun alueeseen.

Nyt voit nähdä kaikki punaiset tekstit uutetaan.

doc-uute-tekstin väri-2

Kärki: Jos haluat poistaa mustan tekstin soluista, voit muuttaa värin nimeä yllä olevassa VBA-koodissa Väri = vbRed että Color = vbBlack.


Suhteelliset artikkelit:



Suositeltavat tuottavuustyökalut

Office-välilehti

kulta star1 Tuo kätevät välilehdet Exceliin ja muihin Office-ohjelmistoihin, kuten Chrome, Firefox ja uusi Internet Explorer.

Kutools for Excel

kulta star1 Hämmästyttävä! Lisää tuottavuutta 5 minuutissa. Älä tarvitse mitään erikoistaitoja, paitsi kaksi tuntia päivässä!

kulta star1 300 Excelin uudet ominaisuudet, Excelin ansiosta helppo ja tehokas:

  • Yhdistä solu / rivit / sarakkeet ilman tietojen menettämistä.
  • Yhdistä ja yhdistä useita arkkeja ja työkirjoja.
  • Vertaa alueita, kopioi useita alueita, muuntaa tekstin päivämäärän, yksikön ja valuutan muuntamisen.
  • Laske värit, hakulausekartat, Advanced Sort ja Super Filter,
  • Lisää Valitse / Lisää / Poista / Teksti / Muoto / Link / Kommentti / Työkirjat / Työtaso Työkalut ...

Kutools for Excel -näyttö

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 · 3 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 · 3 months ago
    thanks, very interesting code.
  • To post as a guest, your comment is unpublished.
    Roberto · 4 months ago
    dimenticavo io ho Excel 2010
  • To post as a guest, your comment is unpublished.
    Roberto · 4 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