Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet kibontani a betűtípus színe alapján az Excel egyik cellájából a szöveget?

Ha az Excel minden cellájában van egy adatlista vörös szöveggel, az alábbi képernyőkép szerint, és tudja, hogyan lehet csak a piros szöveget kibontani? Most bemutatok egy gyors módszert annak a rejtvénynek a megoldására, amely kivonja a szöveget a betűszín alapján az Excel egyik cellájából.

doc-kivonat-szöveg-szín-1

Bontsa ki a szöveget betűszín alapján az egyes cellákból

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.

nyíl kék jobb buborék Bontsa ki a szöveget betűszín alapján az egyes cellákból

Az Excelben csak a meghatározott függvényt használhatja a szöveg betűtípus színe alapján történő kibontására.

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

2. kettyenés betétlap > Modulok és másolja a következő VBA kódot a felbukkanó ablakba.

VBA: Kivonat szöveg betűtípus színe alapján

Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
  If pRange.Characters(i, 1).Font.Color = TextColor 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édpanelt, és válasszon egy üres cellát az adatlista mellett, írja be ezt a képletet = GetColorText (A1) (Az A1 azt a cellát jelöli, amelyből szöveget szeretne kivonni), nyomja meg a gombot belép gombot a szükséges szöveg megszerzéséhez, majd húzza az automatikus kitöltési fogantyút a képlet kitöltéséhez a kívánt tartományba.

Most láthatja, hogy az összes piros szöveget kibontják.

doc-kivonat-szöveg-szín-2

típus: A fenti VBA-kódban megváltoztathatja az rgb színét ebben a szkriptben TextColor = RGB(255, 0, 0) másra, hogy megfeleljen az igényeinek.


Relatív cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (14)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hello! Amikor megpróbáltam a vbBlue-t használni, nem működött. Segítsen kérem? Kösz!
A weboldal moderátora ezt a megjegyzést minimalizálta
Adja meg a betűszínt a pontos kék színnek.
Mert sokféle kék szín létezik "világoskék, égkék, sötétkék"
vba match only exct color.??????
A weboldal moderátora ezt a megjegyzést minimalizálta
A kód jól működik, ha a piros karakterláncok folyamatosak. Ha a forráscellában szét vannak választva, akkor a kimeneti cellában egymáshoz vannak ragasztva. Úgy értem, nincs szóköz a kimenetben, ha a piros szöveges karakterláncok távol vannak egymástól. Tudsz erre megoldást adni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, köszi a tippet. Piros és fekete színnel remekül működik.
Mi a teendő, ha elemezni szeretném a "Purple"-t? megváltoztatása vbPurple nem működik.
Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Buonasera, grazie mille un'ottima funzione. Però ho un problem, 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 tarifa?
A weboldal moderátora ezt a megjegyzést minimalizálta
dimenticavo io ho Excel 2010
A weboldal moderátora ezt a megjegyzést minimalizálta
köszi, nagyon érdekes kód.
A weboldal moderátora ezt a megjegyzést minimalizálta
A kód jól működik, ha a piros karakterláncok folyamatosak. Ha a forráscellában szét vannak választva, akkor a kimeneti cellában egymáshoz vannak ragasztva. Úgy értem, nincs szóköz a kimenetben, ha a piros szöveges karakterláncok távol vannak egymástól. Tudsz erre megoldást adni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Próbáld ki, működnie kell
Funkció GetColorText(pRange As Range) As String
'Többre frissítve
Dim xOut As String
Dim xValue As String
Dim i olyan hosszú
A halvány vörös volt, mint a logikai érték
xValue = pRange.Text

i = 1 esetén VBA.Len(xÉrték)

Ha pRange.Characters(i, 1).Font.Color = vbRed Akkor
xOut = xOut & VBA.Mid(xÉrték, i, 1)
wasRed = igaz
ElseIf wasRed = Igaz Akkor
wasRed = hamis
xOut = xOut & ";"
Ha véget

Következő

GetColorText = xOut
end Function

A weboldal moderátora ezt a megjegyzést minimalizálta
Egy tonna hála tökéletesen működött. Megváltó vagy Tim :-) 
A weboldal moderátora ezt a megjegyzést minimalizálta
Még mindig nem sikerült kivonnom a kék szöveget (#1166BB). Használhatom valahogy a Hex: #1166BB-t, hogy megkapjam a szükséges színes szöveget?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Robert E Perez! Frissítettem a VBA kódot, most már támogatja a színes szövegek rgb kóddal történő lekérését. Megpróbálhatja újra a kódot.
A weboldal moderátora ezt a megjegyzést minimalizálta
Egy adott szöveg van egy cellában, amelyet vesszővel és színnel választanak el minden szöveghez. A Határoló funkció használata közben nem tudom megőrizni a szöveg betűszínét. Köszönjük a segítségét!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, jdhjjd, nem értem egyértelműen a kérdésedet. Ki szeretné bontani az adott szöveget a cellákból, és megtartani a betűszínt, ahogy az alábbi képernyőképen látható?
https://www.extendoffice.com/images/stories/comments/sun-comment/split_and_keep_font_color.png
vagy felosztja a cellákat, és megtartja az egyes szövegek betűtípusának színét?
https://www.extendoffice.com/images/stories/comments/sun-comment/split_and_keep_font_color-2.png
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi