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

Conas focal áirithe i gcealla in Excel a dhathú nó aird a tharraingt air?

Má tá focail iolracha i gcill, conas is féidir leat focal áirithe a aibhsiú sa chill seo amháin? Agus cad faoi aird a tharraingt ar an bhfocal áirithe seo in iliomad cealla? Cuirfidh an t-alt seo modh ar fáil chun é a bhaint amach.

Cuir dath ar fhocal áirithe i gcill aonair / ilchealla le cód VBA


Cuir dath ar fhocal áirithe i gcill aonair / ilchealla le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat aird a tharraingt ar an bhfocal áirithe i rogha. Déan mar a leanas le do thoil.

1. Roghnaigh an raon ina bhfuil na cealla a theastaíonn uait aird a tharraingt ar fhocal áirithe taobh istigh. Ansin brúigh an Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh cód VBA i bhfuinneog an Chóid.

Cód VBA: Cuir dath ar fhocal áirithe i gcealla in 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. Brúigh an F5 eochair chun an cód a rith. Agus sa Kutools le haghaidh Excel bosca dialóige, cuir isteach an focal áirithe a leagfaidh tú béim air i gcealla, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

Ansin feiceann tú go bhfuil na focail go léir a shonraigh tú daite i ndath dearg i gcealla roghnaithe díreach mar atá thíos an pictiúr a thaispeántar.


Earraí gaolmhara:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (23)
Rátáil 5 as 5 · rátálacha 1
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní mhíníonn tú conas an bosca dialóige Kutools for Excel a oscailt dá dtagraítear sa chéim dheireanach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Justin a chara,
Tá brón orm faoi sin. Tar éis duit an cód VBA a ghreamú isteach i bhfuinneog an Chóid, brúigh an eochair F5 chun an cód a rith, agus ansin osclófar bosca dialóige "Kutools for Excel". Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil aon bhealach chun an cód a chur in iúl go huathoibríoch na focail agus mé in eagar ar na cluaisíní?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Ní féidir leis an leithscéal cabhrú leis seo. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat, go raibh maith agat, go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Quisisera resaltar varias palabras al tiempo, cad é an chaoi a bhfuil tú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Eso es lo que estoy tratando de hacer tamiben (Sin é atá mé ag iarraidh a dhéanamh freisin)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Más fearr leat an cuardach/aibhsiú a bheith neamhíogair, athraigh an líne 'xArr = Scoilt(xCell.Value, xHStr)' go 'xArr = Scoilt(LCase(xCell.Value), LCase(xHStr))'. Chomh maith leis sin, thug mé faoi deara nach ritheann an cnaipe F5 an script (ach ina ionad sin tugann sé fuinneog mhodhúil eile). Fuair ​​​​mé rochtain air tríd an cluaisín Forbróra a chumasú trí úsáid a bhaint as roghanna Excel (Customize Ribbon) agus cliceáil ar Macraí ina dhiaidh sin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat... bhí sé seo an-chabhrach! An bhfuil bealach ann chun an macra a choigeartú ionas nach n-aibhsíonn sé ach focail iomlána in ionad codanna páirteach. Mar shampla, táim ag iarraidh aird a tharraingt ar an bhfocal "dearadh" ach leagann sé béim ar an "dearadh" san fhocal "designate". Ba mhaith liom é a scipeáil thar an bhfocal sin murab é an focal iomlán é. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
An féidir leat a bheith sásta leis an idirphlé agus leis an modh "apple" mar a dhéanann tú mot recherché ?
Merci
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit PAUC,
Is féidir leis an gcód seo a leanas bhfabhar a thabhairt duit. Bain triail as, le do thoil.
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
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

Coloreaza cuvantul doar daca agus la inceput. Daca agus la mijloc in aceeasi casuta de excel agus sfarsit nu-l coloreaza.
Cad é an chaoi a bhfuil an trosc ar an dath difriúil ó na rudaí a bhfuiltear ag súil leo i excel?

Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Andreea,
Mura dteastaíonn uait ach an focal a aibhsiú má tá sé ag tús na gcealla roghnaithe. Is féidir leis an gcód VBA seo a leanas bhfabhar a thabhairt duit. Bain triail as, le do thoil.
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
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
a me servirebbe evidenziare tutti agus numeri (comprensivi di due deachúlacha) da -10,00 a 0 in rosso agus da 0 a +10,00 in verde. teacht posso fare per non aggiungere singolarmente ogni dato senza aggiungerli tutti manualmente?

Muilinn grazie
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Ciao,
An bhfuil do chuid uimhreacha suite i gcealla éagsúla i raon? Más amhlaidh atá, is féidir leat dhá riail maidir le formáidiú coinníollach a chruthú (idir -10 agus 0, idir 0 agus 10) chun aird a tharraingt ar na huimhreacha seo. Mura bhfuil, an féidir leat gabháil scáileáin de do shonraí a uaslódáil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sin an-deas, thx! Tá mé ag smaoineamh an bhfuil a fhios ag aon duine conas é a dhéanamh ag obair ar Mac? Go raibh míle maith agat
Rátáil 5 as 5
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas a d’fhéadfaí an script a athrú chun na rudaí seo a leanas a dhéanamh?

an cló a mhéadú faoi 1 méid, agus
béim a chur ar ilfhocail le rith amháin den script?

Thx!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi t.taln,

Más mian leat an clómhéid a mhéadú faoi 1 agus ilfhocail a aibhsiú ag an am céanna, cuir an líne seo a leanas i ndiaidh na líne le do thoil "xCell.Carachtair(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3" sa chód VBA.
nótaí: Ní mór duit clómhéid reatha na cille roghnaithe a fhios agat roimh ré, agus ansin cuir isteach uimhir a haon níos mó ná an focal bunaidh. Is é an uimhir 12 sa líne thíos an clómhéid a sannfaidh mé do na focail mheaitseála. Agus is é 11 clómhéid bunaidh an fhocail.
xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.Size = 12
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat atá an-úsáideach. Conas is féidir liom Aibhsigh focal in ionad dath cló?

Mhéin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat. bhí sé sin an-chabhrach. An féidir le duine a insint, le do thoil, conas an téacs a dhathú seachas é a aibhsiú?

Maidir is
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Shaik Faiaz hamad,

Ní cheadaíonn Excel cuid de chill a dhathú. Tá brón orm nach féidir liom cabhrú leat leis an bhfadhb seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Criostail Bonjour,
Trócaire le haghaidh an cód. Is féidir le hoiriúnú a dhéanamh ar mhéadar agus ar fhianaise móide mots "Apple, Rose, Vert, Merci"
Merci
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Cous,

Is féidir leis an gcód VBA seo a leanas cabhrú leat. Tar éis duit an cód a rith, gheobhaidh tú bosca dialóige. Clóscríobh isteach na focail is mian leat a aibhsiú agus deighil le camóg iad.
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
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL