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á.

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

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á!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

Comments (23)

Rátáil 5 as 5 · rátálacha 1

Justin

thart ar 5 bliain ó shin

#23543

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.

Freagra

criostail Justin

thart ar 5 bliain ó shin

#23544

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.

Freagra

Tuarascáil

Otto

thart ar 4 bliain ó shin

#25056

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í?

Freagra

criostail Otto

thart ar 4 bliain ó shin

#25057

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.

Freagra

Tuarascáil

Joe Rivas

thart ar 4 bliain ó shin

#25750

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

Freagra

Yuri Celis

thart ar 3 bliain ó shin

#28308

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ú?

Freagra

Eduardo M. Yuri Celis

thart ar 3 bliain ó shin

#28309

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)

Freagra

Bram

thart ar 2 bliain ó shin

#33923

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.

Freagra

Philip P.

thart ar 1 bhliain ó shin

#36192

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!

Freagra

PAUC

thart ar 6 mhí ó shin

#38952

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

Freagra

criostail PAUC

thart ar 6 mhí ó shin

#39012

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

Freagra

Tuarascáil

Andreea

thart ar 6 mhí ó shin

#39201

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!

Freagra

criostail Andreea

thart ar 6 mhí ó shin

#39333

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

Freagra

Tuarascáil

thart ar 5 mhí ó shin

#39897

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

Freagra

criostail na

thart ar 5 mhí ó shin

#39965

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?

Freagra

Tuarascáil

dhiúltú

thart ar 2 mhí ó shin

#41396

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

Freagra

Rátáil 5 as 5

t. cailn

thart ar 1 mhí ó shin

#41860

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!

Freagra

criostail t. cailn

thart ar 1 mhí ó shin

#42022

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

Freagra

Tuarascáil

Faiaz

thart ar 1 mhí ó shin

#42152

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.

Freagra

Shaik Faiaz hamad

thart ar 1 mhí ó shin

#42163

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

Freagra

Tuarascáil

criostail Shaik Faiaz hamad

thart ar 1 mhí ó shin

#42197

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.

Freagra

Tuarascáil

Cuas

thart ar 1 seachtain ó shin

#42816

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

Freagra

criostail Cuas

thart ar 1 seachtain ó shin

#42906

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

Freagra

Tuarascáil

Níl aon tráchtanna curtha suas anseo go fóill

Fág do chuid tuairimí

Ag postáil mar Aoi

Ainm (Riachtanach)

Ríomhphost (riachtanach)

Ráta an post seo:

athshocrú

0 Carachtair

Aontaím leis an téarmaí agus riocht