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

Sut i liwio neu dynnu sylw at air penodol mewn celloedd yn Excel?

Os yw cell yn cynnwys sawl gair, sut allwch chi dynnu sylw at air penodol yn y gell hon yn unig? A beth am dynnu sylw at y gair penodol hwn mewn sawl cell? Bydd yr erthygl hon yn darparu dull i'w gyflawni.

Lliwiwch air penodol mewn cell sengl / celloedd lluosog gyda chod VBA


Lliwiwch air penodol mewn cell sengl / celloedd lluosog gyda chod VBA

Gall y cod VBA canlynol eich helpu i dynnu sylw at y gair penodol mewn detholiad. Gwnewch fel a ganlyn.

1. Dewiswch yr ystod sy'n cynnwys y celloedd rydych chi am dynnu sylw at air penodol y tu mewn. Yna pwyswch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch god VBA i mewn i ffenestr y Cod.

Cod VBA: Lliwiwch air penodol mewn celloedd yn Excel

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. Gwasgwch y F5 allwedd i redeg y cod. Ac yn y Kutools ar gyfer Excel blwch deialog, nodwch y gair penodol y byddwch chi'n tynnu sylw ato mewn celloedd, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

Yna gallwch weld bod yr holl eiriau rydych chi wedi'u nodi wedi'u lliwio mewn coch mewn celloedd dethol yn syth fel islaw'r screenshot a ddangosir.


Erthyglau cysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (15)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid ydych yn esbonio sut i agor y blwch deialog "Kutools for Excel" y cyfeirir ato yn y cam olaf.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Justin,
Sori am hynny. Ar ôl gludo'r cod VBA i'r ffenestr Cod, pwyswch yr allwedd F5 i redeg y cod, ac yna bydd blwch deialog "Kutools for Excel" yn cael ei agor. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw ffordd i wneud i'r cod amlygu'r geiriau yn awtomatig wrth i mi olygu'r tabiau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'n ddrwg gennym ni all helpu gyda hyn. Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
DIOLCH, DIOLCH, DIOLCH
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Quisisera resaltar varias palabras al tiempo, fel y gellir ei wneud?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Eso es lo que estoy tratando de hacer tamiben (Dyna dwi'n trio gwneud hefyd)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhag ofn y byddai'n well gennych i'r chwiliad/uchafbwynt fod yn ansensitif, newidiwch y llinell 'xArr = Hollti(xCell.Value, xHStr)' i 'xArr = Hollti(LCase(xCell.Value), LCase(xHStr))'. Hefyd, sylwais nad yw pwyso F5 yn rhedeg y sgript (ond yn hytrach yn rhoi ffenestr moddol arall). Fe wnes i ei gyrchu trwy alluogi'r tab Datblygwr gan ddefnyddio opsiynau Excel (Customize Ribbon) ac yna clicio Macros.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch... roedd hyn yn ddefnyddiol iawn! A oes ffordd i addasu'r macro fel ei fod yn amlygu geiriau cyfan yn hytrach na rhannau rhannol. Er enghraifft, rwy'n ceisio tynnu sylw at y gair "dylunio" ond mae'n amlygu'r "dyluniad" yn y gair "dynodi". Rwyf am iddo neidio dros y gair hwnnw os nad dyna'r gair cyfan. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bonjour,
A yw'n bosibl y bydd modd cynnal deialog et de mettre par défaut "afal" comme mot recherché ?
Merci
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo PAUC,
Gall y cod canlynol wneud ffafr i chi. Rhowch gynnig arni.
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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hwn,

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

Amltumes!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Andreea,
Os mai dim ond ar ddechrau'r celloedd dethol yr ydych am dynnu sylw at y gair. Gall y cod VBA canlynol wneud ffafr i chi. Rhowch gynnig arni.
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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ciao,
a me servirebbe evidenziare tutti a numeri (comprensivi di due degoli) da -10,00 a 0 yn rosso a 0 a +10,00 mewn ferde. dod posso fare per non aggiungere singolarmente ogni dato senza aggiungerli tutti manualmente?

Melin grazie
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ciao,
A yw eich niferoedd wedi'u lleoli mewn celloedd gwahanol mewn ystod? Os felly, gallwch greu dwy reol fformatio amodol (rhwng -10 a 0, rhwng 0 a 10) i amlygu'r rhifau hyn. Os na, allwch chi uwchlwytho sgrinlun o'ch data?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir