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

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.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (23)
Ocenjeno 5 iz 5 · 1 ocene
Ta komentar je moderator na spletnem mestu minimiziral
Ne razložite, kako odpreti pogovorno okno Kutools za Excel, omenjeno v zadnjem koraku.
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.
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da koda samodejno označuje besede, ko urejam zavihke?
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Pri tem žal ne morem pomagati. Hvala za vaš komentar.
Ta komentar je moderator na spletnem mestu minimiziral
HVALA, HVALA, HVALA
Ta komentar je moderator na spletnem mestu minimiziral
Quisisera resaltar varias palabras al tiempo, como lo puedo hacer?
Ta komentar je moderator na spletnem mestu minimiziral
Eso es lo que estoy tratando de hacer tamiben (To poskušam tudi jaz)
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.
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!
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
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
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!
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
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
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?
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
Ocenjeno 5 iz 5
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!
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
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, to je zelo koristno. Kako lahko namesto barve pisave označim besedo?

S spoštovanjem.
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
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.
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
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
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL