Ինչպե՞ս առանձնացնել այլ տեքստի վրա հիմնված խցում հատուկ տեքստը:

Excel- ում մեզ համար կարող է հեշտ լինել առանձնացնել բջիջները `հիմնվելով որոշակի տեքստի վրա, բայց, այստեղ, ես ուզում եմ հատուկ տեքստ առանձնացնել բջջի ներսում, որպեսզի այն առանձնանա, բայց ոչ ամբողջ բջիջը: Սա գուցե անհանգստացնող է մեզանից շատերի համար: Այս հոդվածում ես կխոսեմ Excel- ում այս աշխատանքը լուծելու որոշ հնարքների մասին:

Նշեք մեկ կամ ավելի հատուկ տեքստ VBA կոդով բազմաթիվ բջիջների ներսում

Highարմանալի առանձնահատկությամբ առանձնացրեք մեկ կամ ավելի հատուկ տեքստ բազմաթիվ բջիջների ներսում

VBA կոդով այլ տեքստի հիման վրա առանձնացնել հատուկ տեքստ բջիջում

Նշեք մեկ կամ ավելի հատուկ տեքստ VBA կոդով բազմաթիվ բջիջների ներսում

Օրինակ, ես ունեմ տեքստային տողերի մի շարք, և այժմ ուզում եմ ընդգծել կոնկրետ տեքստըերկինք”Այս բջիջներում` արդյունքը ստանալու համար, ինչպես ցույց են տրված հետևյալ նկարները.

Բջջի մեջ տեքստի միայն մի մասը լուսաբանելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ:

1. Ընտրեք այն բջիջները, որոնք ցանկանում եք ընդգծել հատուկ տեքստը, ապա պահել ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Նշեք տեքստի մի մասը բջիջում.

Sub HighlightStrings()
'Updateby Extendoffice
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, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ մուտքագրեք միայն այն տեքստը, որը ցանկանում եք ընդգծել, տես նկարի նկարը.

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, ձեր նշած ամբողջ տեքստը նշվել է միայն բջիջների ներսում, տես նկարի նկարը.

TipsԵթե ​​Ձեզ անհրաժեշտ է տեքստային տողերից առանձնացնել բազմաթիվ հիմնաբառեր, խնդրում ենք կիրառել հետևյալ կոդը ՝
VBA կոդ. Ընդգծիր բազմաթիվ հիմնաբառեր տեքստային տողերից.

Sub HighlightStrings()
'Updateby Extendoffice
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
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub

Այնուհետև դուրս եկած պատուհանում մուտքագրեք հիմնաբառեր, որոնք ցանկանում եք ընդգծել, (բառերը առանձնացրեք ստորակետով), տես նկարի նկարը.

Եվ հետո, կտտացրեք OK կոճակը, նշված բառերը միանգամից ընդգծվել են, տե՛ս սքրինշոթեր.

ՆշումՎերոհիշյալ կոդերը տառաչափական են:

Highարմանալի առանձնահատկությամբ առանձնացրեք մեկ կամ ավելի հատուկ տեքստ բազմաթիվ բջիջների ներսում

Եթե ​​Excel- ում ծանոթ չեք ծածկագրին, ապա ես կներկայացնեմ հեշտ գործիք ՝ Excel- ի համար նախատեսված գործիքներԻր Նշել հիմնաբառը առանձնահատկությունը, կարող եք միանգամից առանձնացնել հատուկ մեկ կամ մի քանի հիմնաբառեր բջիջների ներսում:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1: Սեղմեք Կուտոլս > Տեքստ > Նշել հիմնաբառը, տես նկարի նկարը.

2, Մեջ Նշել հիմնաբառը երկխոսության տուփ, խնդրում ենք կատարել հետևյալ գործողությունները.

• Ընտրեք տվյալների տիրույթը, որը ցանկանում եք օգտագործել Շարք տեքստային տուփ;
• Ընտրեք բջիջները պարունակում են հիմնաբառեր, որոնք ցանկանում եք ընդգծել, կարող եք նաև ձեռքով մուտքագրել հիմնաբառեր (առանձնացնել ստորակետով) Բառը տեքստային տուփ
• Վերջապես, տեքստերը չեկով ընդգծելու համար պետք է նշեք տառատեսակի գույնը Նշել հիմնաբառի գույները տարբերակ: (Հիմնաբառերը պարունակող ամբողջ բջիջները գունավորելու համար ընտրեք Նշեք բջիջի պարունակության գույները տարբերակը)

3, Դրանից հետո կտտացրեք Ok կոճակը, նշված բոլոր տեքստերն ընդգծվել են, ինչպես ցույց է տրված ստորև նշված նկարը

ՆշումԱյս հատկությունը մեծատառ չէ, եթե ուզում եք տեքստը մեծատառով ընդգծել, ստուգեք Համապատասխանեցման դեպք է Նշել հիմնաբառը երկխոսության վանդակում:

VBA կոդով այլ տեքստի հիման վրա առանձնացնել հատուկ տեքստ բջիջում

Ահա ևս մեկ իրավիճակ. Ես ունեմ երկու սյունակ, որոնց առաջին սյունակը պարունակում է տեքստի տողեր, իսկ երկրորդ սյունը ՝ հատուկ տեքստ, հիմա ես պետք է առաջին սյունակում առանձնացնեմ հարաբերական տեքստը ՝ հիմնվելով յուրաքանչյուր սյունակի երկրորդ սյունակի հատուկ տեքստի վրա: շարք

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Նշեք տեքստի մի մասը բջիջում `այլ տեքստի հիման վրա.

Sub highlight()
'Updateby Extendoffice
    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, Կոդը տեղադրելուց հետո և սեղմեք F5 Այն գործարկելու համար բանալին կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը և՛ պարունակում է տեքստի տող, և՛ կոնկրետ տեքստ, որը ցանկանում եք ընդգծել և հիմնվել դրա վրա, տե՛ս նկարը.

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, երկրորդ սյունակի հատուկ տեքստի վրա հիմնված առաջին սյունակի բոլոր համապատասխան տեքստերը կարմիր են գունավորվել ՝ որպես հետևյալ նկարներ.

Ավելի հարաբերական հոդվածներ.

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖	Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
	Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
	Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
	Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
	Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
	Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
	Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Կարդալ ավելին... Անվճար ներբեռնում...

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում...