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

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.
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 (23)
Az 5-t az 5-ből kiértékelte · 1 értékelés
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".
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.
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?
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.
A weboldal moderátora ezt a megjegyzést minimalizálta
KÖSZÖNÖM, KÖSZÖNÖM, KÖSZÖNÖM
A weboldal moderátora ezt a megjegyzést minimalizálta
Quisera resaltar varias palabras al tiempo, como lo puedo hacer?
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)
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.
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!
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
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
A weboldal moderátora ezt a megjegyzést minimalizálta


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!
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
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
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?
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
Az 5-t az 5-ből kiértékelte
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!
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
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.
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
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.
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
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
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