Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako poudariti določeno besedilo v celici, ki temelji na drugem besedilu?

V Excelu je lahko težko poudariti celice, ki temeljijo na določenem besedilu, vendar tukaj želim poudariti določeno besedilo znotraj celice, da bi bilo to izjemno, ne pa celotna celica. To je morda težavno za večino od nas. V tem članku bom govoril o nekaterih trikih za rešitev tega dela v Excelu.

Označite določeno besedilo znotraj več celic s kodo VBA

Označite določeno besedilo v celici, ki temelji na drugem besedilu s kodo VBA


puščica modra desno mehurček Označite določeno besedilo znotraj več celic s kodo VBA


Na primer, imam vrsto besedilnih nizov in sedaj želim poudariti določeno besedilo "Nebo"V teh celicah, da bi dobili rezultat, kot sledi sliko zaslona:

doc označuje določeno besedilo 1

Če želite poudariti samo del besedila v celici, vam lahko pomaga naslednja koda VBA.

1. Izberite celice, za katere želite poudariti določeno besedilo, in nato držite ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: Označite del besedila v celici:

Sub HighlightStrings()
'Updateby Extendoffice 20160704
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
  With Rng
    m = UBound(Split(Rng.Value, cFnd))
    If m > 0 Then
      xTmp = ""
      For x = 0 To m - 1
        xTmp = xTmp & Split(Rng.Value, cFnd)(x)
        .Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
        xTmp = xTmp & cFnd
      Next
    End If
  End With
Next Rng
Application.ScreenUpdating = True
End Sub

3. Nato pritisnite F5 ključ za zagon te kode in se bo oglasno polje odprlo, da vas opomni, da vnesete besedilo, ki ga želite označiti samo, si oglejte sliko zaslona:

doc označuje določeno besedilo 2

4. In nato kliknite OK gumb, celotno besedilo, ki ste ga navedli, je označeno samo v celicah, glejte sliko zaslona:

doc označuje določeno besedilo 3


puščica modra desno mehurček Označite določeno besedilo v celici, ki temelji na drugem besedilu s kodo VBA

Tukaj je še ena situacija, imam dva stolpca, v katerih je v prvem stolpcu besedilo nize in drugi stolpec je določeno besedilo, zdaj pa moram poudariti relativno besedilo v prvem stolpcu, ki temelji na določenem besedilu v drugem stolpcu.

doc označuje določeno besedilo 4

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: Označite del besedila v celici, ki temelji na drugem besedilu:

Sub highlight()
'Updateby Extendoffice 20160704
    Dim xStr As String
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim I As Long
    Dim J As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "not support multiple columns"
        GoTo LInput
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "the selected range can only contain two columns "
        GoTo LInput
    End If
    For I = 0 To xRg.Rows.Count - 1
        xStr = xRg.Range("B1").Offset(I, 0).Value
        With xRg.Range("A1").Offset(I, 0)
            .Font.ColorIndex = 1
            For J = 1 To Len(.Text)
                If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
            Next
        End With
    Next I
End Sub

3. Po lepljenju kode in pritisnite F5 ključ za zagon, se bo izpisalo polje za hitro klicanje, ki vas opomni, da izberete obseg podatkov, ki vsebuje besedilni niz in določeno besedilo, ki ga želite poudariti, in na podlagi zaslona:

doc označuje določeno besedilo 5

4. In nato kliknite OK gumb, je vsa ustrezna besedila v prvem stolpcu, ki temeljijo na določenem besedilu v drugem stolpcu, obarvana rdeče, kot sledi sliki:

doc označuje določeno besedilo 6



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Iris Pereyra · 1 months ago
    This was very useful, thanks very much!
  • To post as a guest, your comment is unpublished.
    Darshan Smg · 1 months ago
    Hi,
    Please any one help me. I want to highlight the specific number in same sentence. For ex : " 2 days leave scansion" want to highlight only "2" in sentence.
  • To post as a guest, your comment is unpublished.
    Darshan · 1 months ago
    Hi, anyone help me this. i want to highlight the Specific number in Cell within the same sentence. for Ex : " 2 days leave scansion " in this sentence want to highlight number.
  • To post as a guest, your comment is unpublished.
    vyshal Kumar · 3 months ago
    Hi,
    could anyone help me with the following

    my Cells in Column "G" contain the text from Column Z to AN, not compulsory that Column g contains all the text from Z to AN.

    My work here is to Highlight the text in Column G if it does not available in any of Column Z - AN

    For example : Cell G1 contains (Hello sir I am doing well) but The text "Sir" do not exist in Column "Z1" to "AN1"

    So i need to highlight the text "Sir"
  • To post as a guest, your comment is unpublished.
    Yaniv · 3 months ago
    i get a run-time error '13', type mismatch when i run the script. any suggestions?
    • To post as a guest, your comment is unpublished.
      Simon Proulx · 1 months ago
      I had the same issue; I found that one of my collumns were formulas and it was looking in them which was what triggered the error 13. Selected a range wihtout formula containing the text to highlight and it worked.