Ինչպե՞ս Excel- ում գունավորել կամ առանձնացնել որոշակի բառ բջիջներում:

Եթե բջիջը պարունակում է բազմաթիվ բառեր, ինչպե՞ս կարող եք որոշակի բառ ընդգծել միայն այս բջիջում: Իսկ ինչ վերաբերում է բազմակի բջիջներում այս որոշակի բառը լուսաբանելուն: Այս հոդվածը կտրամադրի դրան հասնելու մեթոդ:

Գունավորեք որոշակի բառ VBA կոդով մեկ խցում / բազմաթիվ բջիջներում

Գունավորեք որոշակի բառ VBA կոդով մեկ խցում / բազմաթիվ բջիջներում

Հետևյալ VBA կոդը կարող է օգնել ընտրության մեջ առանձնացնել որոշակի բառը: Խնդրում եմ արեք հետևյալ կերպ.

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

2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և կպցրեք VBA կոդը օրենսգրքի պատուհանում:

VBA կոդ. 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. Սեղմեք F5 ծածկագիրը գործելու համար: Եվ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, խնդրում ենք մուտքագրել այն որոշակի բառը, որը դուք կցուցադրեք բջիջներում, և այնուհետև կտտացրեք այն OK կոճակ Տեսեք,

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

Առնչվող հոդվածներ քանակը:

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

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

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

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

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

մեկնաբանություններ (23)

Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ

Justin

մոտ 5 տարի առաջ

#23543

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Դուք չեք բացատրում, թե ինչպես բացել «Kutools for Excel-ի երկխոսության տուփը», որը նշված է վերջին քայլում:

պատասխանել

բյուրեղապակի Justin

մոտ 5 տարի առաջ

#23544

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Հարգելի Ջասթին,
Ցավում եմ. VBA կոդը կոդի պատուհանում տեղադրելուց հետո սեղմեք F5 ստեղնը՝ կոդը գործարկելու համար, այնուհետև կբացվի «Kutools for Excel» երկխոսության տուփը: Շնորհակալություն.

պատասխանել

հաշվետվություն

Otto

մոտ 4 տարի առաջ

#25056

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Կա՞ որևէ միջոց, որպեսզի կոդը ավտոմատ կերպով ընդգծի բառերը, երբ ես խմբագրում եմ ներդիրները:

պատասխանել

բյուրեղապակի Otto

մոտ 4 տարի առաջ

#25057

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջու՜յն,
Ներողություն չեմ կարող օգնել այս հարցում: Շնորհակալություն ձեր մեկնաբանության համար:

պատասխանել

հաշվետվություն

Ջո Ռիվաս

մոտ 4 տարի առաջ

#25750

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ, ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ, ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ

պատասխանել

Յուրի Չելիս

մոտ 3 տարի առաջ

#28308

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Quisisera resaltar varias palabras al tiempo, como lo puedo hacer?

պատասխանել

Էդուարդո Մ. Յուրի Չելիս

մոտ 3 տարի առաջ

#28309

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Eso es lo que estoy tratando de hacer tamiben (դա այն է, ինչ ես նույնպես փորձում եմ անել)

պատասխանել

Bram

մոտ 2 տարի առաջ

#33923

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Եթե նախընտրում եք, որ որոնումը/ընդգծումը լինի մեծատառերի անզգայուն, փոխեք «xArr = Split(xCell.Value, xHStr)» տողը «xArr = Split(LCase(xCell.Value), LCase(xHStr))»: Բացի այդ, ես նշեցի, որ սեղմելով F5-ը չի գործարկվում սցենարը (բայց փոխարենը տալիս է մեկ այլ մոդալ պատուհան): Ես մուտք գործեցի այն՝ միացնելով «Developer-tab»՝ օգտագործելով Excel տարբերակները (Անհատականացնել ժապավենը) և այնուհետև սեղմելով «Macros»:

պատասխանել

Ֆիլիպ Պ.

մոտ 1 տարի առաջ

#36192

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Շնորհակալություն… սա շատ օգտակար էր: Կա՞ մակրոն այնպես կարգավորելու միջոց, որ այն մասնակի փոխարեն ընդգծի միայն ամբողջական բառերը: Օրինակ, ես փորձում եմ ընդգծել «դիզայն» բառը, բայց այն ընդգծում է «դիզայնը» «նշանակել» բառում: Ես ուզում եմ, որ այն բաց թողնի այդ բառը, եթե դա ամբողջ բառը չէ: Շնորհակալություն

պատասխանել

PAUC

մոտ 6 ամիս առաջ

#38952

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարեւ,
Հնարավո՞ր է արդյոք բարձրաձայնել երկխոսության և «խնձորի» արդյունահանման համար:
Շնորհակալություն

պատասխանել

բյուրեղապակի PAUC

մոտ 6 ամիս առաջ

#39012

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև PAUC,
Հետևյալ կոդը կարող է ձեզ լավություն անել. Խնդրում եմ, փորձեք:

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

պատասխանել

հաշվետվություն

Andreea

մոտ 6 ամիս առաջ

#39201

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բունա,

Coloreaza cuvantul doar daca e la inceput. Daca e la mijloc in aceeasi casuta de excel sau la sfarsit nu-l coloreaza.
Եթե ցանկանում եք, ինչպես putea schimba in cod pentru al colora անտարբեր unde se afla in casuta excel?

Multimesc!

պատասխանել

բյուրեղապակի Andreea

մոտ 6 ամիս առաջ

#39333

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Անդրեա,
Եթե ցանկանում եք միայն ընդգծել բառը, եթե այն գտնվում է ընտրված բջիջների սկզբում: Հետևյալ VBA կոդը կարող է ձեզ լավություն անել: Խնդրում եմ, փորձեք:

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

պատասխանել

հաշվետվություն

գարեջուր

մոտ 5 ամիս առաջ

#39897

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

բարեւ,
a me servirebbe evidenziare tutti i numeri (comprensivi di due decimali) da -10,00 a 0 in rosso e da 0 a +10,00 in verde. եկեք կարող եք ուղեվարձը ոչ մի սինգոլարմենտե ogni dato senza aggiungerli tutti manualmente?

Գրազի միլլ

պատասխանել

բյուրեղապակի գարեջուր

մոտ 5 ամիս առաջ

#39965

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Չաո,
Արդյո՞ք ձեր թվերը գտնվում են տիրույթի տարբեր բջիջներում: Եթե այո, ապա կարող եք ստեղծել երկու պայմանական ձևաչափման կանոն (-10-ի և 0-ի միջև, 0-ի և 10-ի միջև) այս թվերն ընդգծելու համար: Եթե ոչ, կարո՞ղ եք վերբեռնել ձեր տվյալների սքրինշոթը:

պատասխանել

հաշվետվություն

Nier

մոտ 2 ամիս առաջ

#41396

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Դա շատ լավ է, thx! Հետաքրքիր է, արդյոք որևէ մեկը գիտի, թե ինչպես այն աշխատի Mac-ում: Շատ շնորհակալություն

պատասխանել

Գնահատված 5- ը 5- ից դուրս է

տ. կալն

մոտ 2 ամիս առաջ

#41860

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

ինչպե՞ս կարող է սցենարը փոփոխվել հետևյալն անելու համար:

մեծացնել տառատեսակը 1 չափով, և
ընդգծե՞լ մի քանի բառ սցենարի մեկ գործարկումով:

Thx!

պատասխանել

բյուրեղապակի տ. կալն

մոտ 1 ամիս առաջ

#42022

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև t.taln,

Եթե ցանկանում եք ավելացնել տառաչափը 1-ով և միաժամանակ նշել մի քանի բառ, խնդրում ենք տողից հետո ավելացնել հետևյալ տողը:xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3«VBA կոդում:
ՆշումԴուք պետք է նախապես իմանաք ընտրված բջիջի ընթացիկ տառաչափը, այնուհետև մուտքագրեք սկզբնական բառից մեծ թիվ մեկ չափսը: Ստորև բերված տողում 12 համարը տառատեսակի չափն է, որը ես կնշանակեմ համապատասխան բառերին: Իսկ բառի բնօրինակ տառաչափը 11 է։

xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.Size = 12

պատասխանել

հաշվետվություն

Ֆայազ

մոտ 1 ամիս առաջ

#42152

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Շնորհակալություն, դա շատ օգտակար է: Ինչպե՞ս կարող եմ ընդգծել բառը տառատեսակի գույնի փոխարեն:

Regards.

պատասխանել

Շեյք Ֆայազ Համադ

մոտ 1 ամիս առաջ

#42163

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Շնորհակալություն. դա իսկապես օգտակար էր: Ինչ-որ մեկը կարո՞ղ է ասել, թե ինչպես կարելի է գունավորել տեքստը, այն ընդգծելու փոխարեն:

Regards

պատասխանել

հաշվետվություն

բյուրեղապակի Շեյք Ֆայազ Համադ

մոտ 1 ամիս առաջ

#42197

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Շեյկ Ֆայազ Համադ,

Excel-ը թույլ չի տալիս գունավորել բջիջի մի մասը։ Ցավում եմ, որ չեմ կարող օգնել ձեզ այս խնդրի հետ կապված:

պատասխանել

հաշվետվություն

Քուս

մոտ 2 շաբաթ առաջ

#42816

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Bonjour Cristal,
Merci pour ce կոդը. Հնարավոր է «Apple,Rose,Vert,Merci»-ի ադապտերները, որոնք ցույց են տալիս պլյուսները:
Շնորհակալություն

պատասխանել

բյուրեղապակի Քուս

մոտ 1 շաբաթ առաջ

#42906

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Քուս,

Հետևյալ VBA կոդը կարող է օգնել. Կոդը գործարկելուց հետո դուք կստանաք երկխոսության տուփ: Խնդրում ենք մուտքագրել այն բառերը, որոնք ցանկանում եք ընդգծել և դրանք բաժանել ստորակետերով:

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

պատասխանել

հաշվետվություն

Առայժմ ոչ մի մեկնաբանություն չկա