Kako barvati ali poudarjati določeno besedo v celicah v Excelu?

Če celica vsebuje več besed, kako lahko določeno besedo označite samo v tej celici? In kako bi bilo poudariti to besedo v več celicah? Ta članek bo zagotovil način, kako to doseči.

Določene besede v eni celici / več celicah obarvajte s kodo VBA

Določene besede v eni celici / več celicah obarvajte s kodo VBA

Naslednja koda VBA vam lahko pomaga označiti določeno besedo v izboru. Naredite naslednje.

1. Izberite obseg, v katerem so celice, v katerih želite označiti določeno besedo. Nato pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. Na odprtju Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite kodo VBA v okno Code.

Koda VBA: obarvajte določeno besedo v celicah v Excelu

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. Pritisnite F5 tipko za zagon kode. In v Kutools za Excel v pogovorno okno vnesite določeno besedo, ki jo boste označili v celicah, in nato kliknite OK . Oglejte si posnetek zaslona:

Nato lahko vidite, da so vse besede, ki ste jih navedli, v izbranih celicah takoj obarvane rdeče, kot je prikazano spodaj.

Sorodni članki:

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ...

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...

Komentarji (23)

Ocenjeno 5 iz 5 · 1 ocene

Justin

pred približno dvema letoma

#23543

Ta komentar je moderator na spletnem mestu minimiziral

Ne razložite, kako odpreti pogovorno okno Kutools za Excel, omenjeno v zadnjem koraku.

Odgovori

kristal Justin

pred približno dvema letoma

#23544

Ta komentar je moderator na spletnem mestu minimiziral

Dragi Justin,
Oprosti za to. Ko prilepite kodo VBA v okno kode, pritisnite tipko F5, da zaženete kodo, nato pa se bo odprlo pogovorno okno "Kutools for Excel". Hvala vam.

Odgovori

poročilo

Otto

pred približno dvema letoma

#25056

Ta komentar je moderator na spletnem mestu minimiziral

Ali obstaja način, da koda samodejno označuje besede, ko urejam zavihke?

Odgovori

kristal Otto

pred približno dvema letoma

#25057

Ta komentar je moderator na spletnem mestu minimiziral

Hi,
Pri tem žal ne morem pomagati. Hvala za vaš komentar.

Odgovori

poročilo

Joe Rivas

pred približno dvema letoma

#25750

Ta komentar je moderator na spletnem mestu minimiziral

HVALA, HVALA, HVALA

Odgovori

Jurij Celis

pred približno dvema letoma

#28308

Ta komentar je moderator na spletnem mestu minimiziral

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

Odgovori

Edward M. Jurij Celis

pred približno dvema letoma

#28309

Ta komentar je moderator na spletnem mestu minimiziral

Eso es lo que estoy tratando de hacer tamiben (To poskušam tudi jaz)

Odgovori

Bram

pred približno dvema letoma

#33923

Ta komentar je moderator na spletnem mestu minimiziral

Če želite, da iskanje/označevanje ni občutljivo na velike in male črke, spremenite vrstico 'xArr = Split(xCell.Value, xHStr)' v 'xArr = Split(LCase(xCell.Value), LCase(xHStr))'. Prav tako sem opazil, da s pritiskom na F5 ne zažene skripta (ampak namesto tega prikaže drugo modalno okno). Do njega sem dostopal tako, da sem omogočil zavihek Razvijalec z možnostmi Excela (Prilagodi trak) in nato kliknil Makri.

Odgovori

Filip P.

pred približno 1 letom

#36192

Ta komentar je moderator na spletnem mestu minimiziral

Hvala ... to je bilo zelo koristno! Ali obstaja način za prilagoditev makra, tako da označuje samo cele besede namesto delnih. Na primer, poskušam poudariti besedo "design", vendar poudarja "design" v besedi "designate". Želim, da to besedo preskoči, če ni cela beseda. Hvala!

Odgovori

PAUC

pred približno tremi meseci

#38952

Ta komentar je moderator na spletnem mestu minimiziral

Pozdravljeni,
Est-il possible de supprimer la boite de dialogue et de mettre par défaut "apple" comme mot recherché ?
Merci

Odgovori

kristal PAUC

pred približno tremi meseci

#39012

Ta komentar je moderator na spletnem mestu minimiziral

Pozdravljeni PAUC,
Naslednja koda vam lahko naredi uslugo. Prosim poskusite.

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

Odgovori

poročilo

Andreea

pred približno tremi meseci

#39201

Ta komentar je moderator na spletnem mestu minimiziral

dobro

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 indiferent unde se afla in casuta excel?

Hvala!

Odgovori

kristal Andreea

pred približno tremi meseci

#39333

Ta komentar je moderator na spletnem mestu minimiziral

Živjo Andreea,
Če želite besedo označiti le, če je na začetku izbranih celic. Naslednja koda VBA vam lahko naredi uslugo. Prosim poskusite.

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

Odgovori

poročilo

pred približno tremi meseci

#39897

Ta komentar je moderator na spletnem mestu minimiziral

Ciao,
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

Odgovori

kristal za

pred približno tremi meseci

#39965

Ta komentar je moderator na spletnem mestu minimiziral

Živjo Ciao,
Ali se vaše številke nahajajo v različnih celicah v območju? Če je tako, lahko ustvarite dve pravili pogojnega oblikovanja (med -10 in 0, med 0 in 10), da označite te številke. Če ne, ali lahko naložite posnetek zaslona svojih podatkov?

Odgovori

poročilo

zanikati

pred približno tremi meseci

#41396

Ta komentar je moderator na spletnem mestu minimiziral

To je zelo lepo, hvala! Zanima me, če kdo ve, kako to narediti na Macu? Najlepša hvala

Odgovori

Ocenjeno 5 iz 5

t. kaln

pred približno enim mesecem

#41860

Ta komentar je moderator na spletnem mestu minimiziral

kako bi lahko scenarij spremenili, da bi naredil naslednje?

povečajte pisavo za 1 velikost in
označite več besed z enim zagonom skripta?

Thx!

Odgovori

kristal t. kaln

pred približno enim mesecem

#42022

Ta komentar je moderator na spletnem mestu minimiziral

Živjo t.taln,

Če želite povečati velikost pisave za 1 in označiti več besed hkrati, dodajte naslednjo vrstico za vrstico "xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3" v kodi VBA.
Opombe: Vnaprej morate poznati trenutno velikost pisave izbrane celice in nato vnesti številko, ki je za eno velikost večja od prvotne besede. Številka 12 v spodnji vrstici je velikost pisave, ki jo bom dodelil ujemajočim se besedam. Prvotna velikost pisave besede je 11.

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

Odgovori

poročilo

Faiaz

pred približno enim mesecem

#42152

Ta komentar je moderator na spletnem mestu minimiziral

Hvala, to je zelo koristno. Kako lahko namesto barve pisave označim besedo?

S spoštovanjem.

Odgovori

Shaik Faiaz hamad

pred približno enim mesecem

#42163

Ta komentar je moderator na spletnem mestu minimiziral

Hvala vam. to je bilo res koristno. Ali lahko kdo prosim pove, kako pobarvati besedilo, namesto da ga poudarim?

S spoštovanjem

Odgovori

poročilo

kristal Shaik Faiaz hamad

pred približno enim mesecem

#42197

Ta komentar je moderator na spletnem mestu minimiziral

Živjo Shaik Faiaz hamad,

Excel ne dovoljuje barvanja dela celice. Žal vam pri tej težavi ne morem pomagati.

Odgovori

poročilo

Cous

pred približno enim tednom

#42816

Ta komentar je moderator na spletnem mestu minimiziral

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

Odgovori

kristal Cous

pred približno 6 dnevi

#42906

Ta komentar je moderator na spletnem mestu minimiziral

Živjo Cous,

Naslednja koda VBA vam lahko pomaga. Po zagonu kode se prikaže pogovorno okno. Vnesite besede, ki jih želite označiti, in jih ločite z vejico.

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

Odgovori

poročilo

Tu še ni objavljenih komentarjev

Pustite vaše komentarje

Objava kot gost

Prijava

Ime (obvezno)

E-pošta (obvezno)

Ocenite to objavo:

Ponastavi

0 Znaki

Strinjam se pogoji in stanje