Hogyan színezhetünk ki vagy emelhetünk ki egy szót az Excel celláiban?

Ha egy cella több szót tartalmaz, akkor hogyan lehet kiemelni egy bizonyos szót csak ebben a cellában? És mi lenne, ha ezt a bizonyos szót több cellában kiemelné? Ez a cikk módszert fog nyújtani az elérésére.

Színezzen bizonyos szavakat egyetlen cellában / több cellában VBA kóddal

Színezzen bizonyos szavakat egyetlen cellában / több cellában VBA kóddal

A következő VBA-kód segíthet kiemelni az adott szót a kijelölésben. Kérjük, tegye a következőket.

1. Válassza ki azt a tartományt, amely tartalmazza azokat a cellákat, amelyeken belül ki szeretne emelni egy bizonyos szót. Ezután nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. A nyílásban Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be a VBA kódot a Kód ablakba.

VBA-kód: Színezzen ki egy bizonyos szót az Excel celláiban

Sub HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight：", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. megnyomni a F5 gombot a kód futtatásához. És a Kutools az Excel számára párbeszédpanelen adja meg azt a szót, amelyet a cellákban kiemel, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

Ezután azonnal láthatja, hogy az összes megadott szó piros színnel jelenik meg a kiválasztott cellákban, ahogy az alábbi képernyőkép látható.

Kapcsolódó 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.

Tovább ... Ingyenes letöltés... Vásárlás...

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!

Tovább ... Ingyenes letöltés... Vásárlás...

Hozzászólások (23)

Az 5-t az 5-ből kiértékelte · 1 értékelés

Justin

körülbelül 4 éve

#23543

A weboldal moderátora ezt a megjegyzést minimalizálta

Nem magyarázza el, hogyan kell megnyitni az utolsó lépésben említett "Kutools for Excel párbeszédpanelt".

Válasz

kristály- Justin

körülbelül 4 éve

#23544

A weboldal moderátora ezt a megjegyzést minimalizálta

Kedves Justin!
Sajnálom az esetet. Miután beillesztette a VBA kódot a Code ablakba, nyomja meg az F5 billentyűt a kód futtatásához, és megnyílik a "Kutools for Excel" párbeszédpanel. Köszönöm.

Válasz

Jelentés

Ottó

körülbelül 4 éve

#25056

A weboldal moderátora ezt a megjegyzést minimalizálta

Van valami mód arra, hogy a kód automatikusan kiemelje a szavakat, amikor szerkesztem a füleket?

Válasz

kristály- Ottó

körülbelül 4 éve

#25057

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia,
Sajnos ebben nem tudok segíteni. Köszönöm a hozzászólásod.

Válasz

Jelentés

Joe Rivas

körülbelül 4 éve

#25750

A weboldal moderátora ezt a megjegyzést minimalizálta

KÖSZÖNÖM, KÖSZÖNÖM, KÖSZÖNÖM

Válasz

Jurij Celis

körülbelül 3 éve

#28308

A weboldal moderátora ezt a megjegyzést minimalizálta

Quisera resaltar varias palabras al tiempo, como lo puedo hacer?

Válasz

Eduardo M. Jurij Celis

körülbelül 3 éve

#28309

A weboldal moderátora ezt a megjegyzést minimalizálta

Eso es lo que estoy tratando de hacer tamiben (Én is ezt próbálom)

Válasz

Bram

körülbelül 2 éve

#33923

A weboldal moderátora ezt a megjegyzést minimalizálta

Ha azt szeretné, hogy a keresés/kiemelés ne vegye figyelembe a kis- és nagybetűket, módosítsa az „xArr = Split(xCell.Value, xHStr)” sort a következőre: „xArr = Split(LCase(xCell.Value), LCase(xHSt))”. Azt is megjegyeztem, hogy az F5 megnyomása nem futtatja a szkriptet (de helyette egy másik modális ablakot ad). Úgy fértem hozzá, hogy engedélyeztem a Fejlesztő lapot az Excel opcióival (Szaló testreszabása), majd a Makrókra kattintottam.

Válasz

Phillip P.

mintegy 1 éve

#36192

A weboldal moderátora ezt a megjegyzést minimalizálta

Köszönöm... ez nagyon hasznos volt! Van-e mód úgy beállítani a makrót, hogy csak az egész szavakat emelje ki a részlegesek helyett? Például megpróbálom kiemelni a "design" szót, de kiemeli a "design" szót a "designate". Azt akarom, hogy átugorja ezt a szót, ha nem az egész szó. Kösz!

Válasz

PAUC

mintegy 6 hónappal ezelőtt

#38952

A weboldal moderátora ezt a megjegyzést minimalizálta

Jó napot,
Est-il possible de supprimer la boite de dialog et de mettre par défaut "apple" comme mot recherché ?
merci

Válasz

kristály- PAUC

mintegy 6 hónappal ezelőtt

#39012

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia PAUC!
A következő kód jót tehet Önnek. Kérjük, próbálja ki.

Sub HighlightStrings()
'Updated by Extendoffice 20220721
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = "apple"
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

Válasz

Jelentés

Andreea

mintegy 6 hónappal ezelőtt

#39201

A weboldal moderátora ezt a megjegyzést minimalizálta

jó

Coloreaza cuvantul doar daca e la inceput. Daca e la mijloc in aceeasi casuta de excel sau la sfarsit nu-l coloreaza.
Ce anume as putea schimba in cod pentru al colora indiferents unde se afla in casuta excel?

Köszönjük!

Válasz

kristály- Andreea

mintegy 5 hónappal ezelőtt

#39333

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Andreea,
Ha csak akkor szeretné kiemelni a szót, ha az a kijelölt cellák elején van. A következő VBA-kód tehet egy szívességet. Kérjük, próbálja ki.

Sub HighlightStrings()
'Updated by Extendoffice 20220805
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            If xHStrLen <= Len(xCell.Value) Then
                If xHStr = Left(xCell.Value, xHStrLen) Then
                    xCell.Characters(1, xHStrLen).Font.ColorIndex = 3
                End If
            End If
        Next
    Application.ScreenUpdating = True
End Sub

Válasz

Jelentés

mintegy 4 hónappal ezelőtt

#39897

A weboldal moderátora ezt a megjegyzést minimalizálta

Helló,
a me servirebbe evidenziare tutti i numeri (comprensivi di due decimali) da -10,00 a 0 in rosso e da 0 a +10,00 in verde. come posso fare per non aggiungere singolarmente ogni dato senza aggiungerli tutti manualmente?

Grazie mille

Válasz

kristály- az

mintegy 4 hónappal ezelőtt

#39965

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Ciao!
A számok egy tartomány különböző celláiban találhatók? Ha igen, két feltételes formázási szabályt hozhat létre (-10 és 0 között, 0 és 10 között) a számok kiemeléséhez. Ha nem, fel tudsz tölteni egy képernyőképet az adataidról?

Válasz

Jelentés

Nier

mintegy 2 hónappal ezelőtt

#41396

A weboldal moderátora ezt a megjegyzést minimalizálta

Ez nagyon szép, thx! Érdeklődnék, hogy tudja-e valaki, hogyan kell Mac-en működni? Nagyon köszönöm

Válasz

Az 5-t az 5-ből kiértékelte

t. kaln

kb 1 hónapja

#41860

A weboldal moderátora ezt a megjegyzést minimalizálta

hogyan módosítható a szkript a következőkre?

növelje a betűtípust 1 mérettel, és
több szót kiemelni a szkript egyetlen futtatásával?

Thx!

Válasz

kristály- t. kaln

kb 1 hónapja

#42022

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia t.taln!

Ha 1-gyel szeretné növelni a betűméretet, és egyszerre több szót szeretne kiemelni, kérjük, adja hozzá a következő sort a sor utánxCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3" a VBA kódban.
Megjegyzések: Előzetesen ismernie kell a kiválasztott cella aktuális betűméretét, majd az eredeti szónál eggyel nagyobb számot kell megadnia. Az alábbi sorban a 12-es szám az a betűméret, amelyet a megfelelő szavakhoz rendelek. A szó eredeti betűmérete pedig 11.

xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.Size = 12

Válasz

Jelentés

Faiaz

kb 1 hónapja

#42152

A weboldal moderátora ezt a megjegyzést minimalizálta

Köszönöm ez nagyon hasznos. Hogyan emelhetek ki egy szót a betűszín helyett?

Üdvözlettel.

Válasz

Shaik Faiaz hamad

kb 1 hónapja

#42163

A weboldal moderátora ezt a megjegyzést minimalizálta

Köszönöm. ez igazán hasznos volt. Valaki meg tudná mondani, hogyan kell kiszínezni a szöveget kiemelés helyett?

Üdvözlettel

Válasz

Jelentés

kristály- Shaik Faiaz hamad

kb 1 hónapja

#42197

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Shaik Faiaz Hamad!

Az Excel nem teszi lehetővé a cella egy részének színezését. Sajnálom, hogy nem tudok segíteni ebben a problémában.

Válasz

Jelentés

Cous

körülbelül 5 nappal ezelőtt

#42816

A weboldal moderátora ezt a megjegyzést minimalizálta

Bonjour Cristal,
Merci pour ce code. Est-il possible de l'adapter pour mettre en évidence plusieurs mots "Apple,Rose,Vert,Merci"
merci

Válasz

kristály- Cous

16 órája

#42906

A weboldal moderátora ezt a megjegyzést minimalizálta

Hi Cous,

The following VBA code can help. After running the code, you will get a dialog box. Please type in the words you want to highlight and separate them by comma.

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/highlight.png

Sub HighlightStrings()
'Updated by Extendoffice 20230130
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    Dim xArr2
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight：", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
    
    xArr2 = Split(xHStr, ",")
    For j = 0 To UBound(xArr2)
        xHStr = xArr2(j)
    
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Next
    
    Application.ScreenUpdating = True
End Sub

Válasz

Jelentés

Még senki sem írt megjegyzést

Hagyja meg észrevételeit

Feladás vendégként

Bejelentkezés

Név (kötelező)

Email (szükséges)

Értékeld ezt a bejegyzést:

vissza

0 Karakterek

Egyetértek azzal, hogy a szabályait és feltételeit