A sütik segítenek nekünk Szolgáltatásainkat. Segítségével szolgáltatásainkat, Ön elfogadja a cookie-k használatát.
Tipp: Az egyéb nyelvek a Google Fordítva vannak. Látogasson el a English a link verziója.
Belépek
x
or
x
x
Regisztráció
x

or

Hogyan lehet kitölteni a betűtípus színétől függő szöveget egy Excel cellából?

Ha van egy adatlistája, amely az Excel minden egyes cellájában piros színű szöveggel rendelkezik, amint az a képernyőkép alatt látható, és tudja, hogyan kell a piros szöveget kivonni? Most bemutatom a gyors megoldást arra a puzzle-re, amely a betűtípus színétől függően kivonja a szöveget egy Excel cellából.

doc-kivonat-text-color-1

Szöveg kivonatolása az egyes cellák fontszínétől függően


arrow kék jobb buborék Szöveg kivonatolása az egyes cellák fontszínétől függően


Az Excel programban csak a megadott függvény használható a szöveg betűszín alapján történő kibontására.

1. nyomja meg Alt + F11 gombokat a Microsoft Visual Basic for Applications ablak megnyitásához.

2. kettyenés betétlap > Modulok és másolja a követett VBA kódot a kivágott ablakhoz.

VBA: Szöveg kivonatolása betűszín alapján

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. Ezután mentse el és zárja be a párbeszédablakot, és válasszon ki egy üres cellát az adatlista mellett, írja be ezt a képletet = GetColorText (A1) (A1 jelzi a cellát, ahonnan a szöveget szeretné kivonni), nyomja meg a gombot belép gombot, hogy megkapja a szükséges szöveget, majd húzza az automatikus kitöltés fogantyúját, hogy kitöltse a képletet a kívánt tartományba.

Most már láthatja, hogy az összes piros szöveg kivonódott.

doc-kivonat-text-color-2

típus: A fenti VBA kódban, ha ki kell venni a fekete szöveget a cellákból, megváltoztathatja a szín nevét Szín = vbRed nak nek Color = vbBlack.


Relatív cikkek:



Ajánlott termelékenységi eszközök

Office Tab

arany star1 Kényelmes lapokat hozhat Excel és más Office szoftverekhez, akárcsak a Chrome, a Firefox és az új Internet Explorer.

Kutools for Excel

arany star1 Elképesztő! Növelje termelékenységét 5 perc alatt. Nincs szükség különleges képességekre, kivéve két órát minden nap!

arany star1 300 Az Excel új funkciói, az Excel nagyon egyszerű és erőteljes:

  • A cella / sorok / oszlopok egyesítése adatok elvesztése nélkül.
  • Több lap és munkafüzet kombinálása és egységesítése.
  • Hasonlítsa össze a tartományokat, másolja a többszörös tartományokat, konvertálja a dátumot, a mértékegységet és a pénznemek konverzióját.
  • Számolás a Színek, a Paging Subtotals, az Advanced Sort és a Super Filter,
  • Több Select / Insert / Delete / Szöveg / Formátum / Link / Comment / Workbooks / Worksheets Tools ...

A Kutools for Excel képernyőkép

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