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

Ինչպե՞ս 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-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (23)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք չեք բացատրում, թե ինչպես բացել «Kutools for Excel-ի երկխոսության տուփը», որը նշված է վերջին քայլում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Ջասթին,
Ցավում եմ. VBA կոդը կոդի պատուհանում տեղադրելուց հետո սեղմեք F5 ստեղնը՝ կոդը գործարկելու համար, այնուհետև կբացվի «Kutools for Excel» երկխոսության տուփը: Շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ որևէ միջոց, որպեսզի կոդը ավտոմատ կերպով ընդգծի բառերը, երբ ես խմբագրում եմ ներդիրները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Ներողություն չեմ կարող օգնել այս հարցում: Շնորհակալություն ձեր մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ, ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ, ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Quisisera resaltar varias palabras al tiempo, como lo puedo hacer?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Eso es lo que estoy tratando de hacer tamiben (դա այն է, ինչ ես նույնպես փորձում եմ անել)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​նախընտրում եք, որ որոնումը/ընդգծումը լինի մեծատառերի անզգայուն, փոխեք «xArr = Split(xCell.Value, xHStr)» տողը «xArr = Split(LCase(xCell.Value), LCase(xHStr))»: Բացի այդ, ես նշեցի, որ սեղմելով F5-ը չի գործարկվում սցենարը (բայց փոխարենը տալիս է մեկ այլ մոդալ պատուհան): Ես մուտք գործեցի այն՝ միացնելով «Developer-tab»՝ օգտագործելով Excel տարբերակները (Անհատականացնել ժապավենը) և այնուհետև սեղմելով «Macros»:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն… սա շատ օգտակար էր: Կա՞ մակրոն այնպես կարգավորելու միջոց, որ այն մասնակի փոխարեն ընդգծի միայն ամբողջական բառերը: Օրինակ, ես փորձում եմ ընդգծել «դիզայն» բառը, բայց այն ընդգծում է «դիզայնը» «նշանակել» բառում: Ես ուզում եմ, որ այն բաց թողնի այդ բառը, եթե դա ամբողջ բառը չէ: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Հնարավո՞ր է արդյոք բարձրաձայնել երկխոսության և «խնձորի» արդյունահանման համար:
Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև 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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բունա,

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!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Անդրեա,
Եթե ​​ցանկանում եք միայն ընդգծել բառը, եթե այն գտնվում է ընտրված բջիջների սկզբում: Հետևյալ 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
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարեւ,
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?

Գրազի միլլ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Չաո,
Արդյո՞ք ձեր թվերը գտնվում են տիրույթի տարբեր բջիջներում: Եթե ​​այո, ապա կարող եք ստեղծել երկու պայմանական ձևաչափման կանոն (-10-ի և 0-ի միջև, 0-ի և 10-ի միջև) այս թվերն ընդգծելու համար: Եթե ​​ոչ, կարո՞ղ եք վերբեռնել ձեր տվյալների սքրինշոթը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա շատ լավ է, thx! Հետաքրքիր է, արդյոք որևէ մեկը գիտի, թե ինչպես այն աշխատի Mac-ում: Շատ շնորհակալություն
Գնահատված 5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպե՞ս կարող է սցենարը փոփոխվել հետևյալն անելու համար:

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

Thx!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև t.taln,

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

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

Regards
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Շեյկ Ֆայազ Համադ,

Excel-ը թույլ չի տալիս գունավորել բջիջի մի մասը։ Ցավում եմ, որ չեմ կարող օգնել ձեզ այս խնդրի հետ կապված:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Bonjour Cristal,
Merci pour ce կոդը. Հնարավոր է «Apple,Rose,Vert,Merci»-ի ադապտերները, որոնք ցույց են տալիս պլյուսները:
Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Քուս,

Հետևյալ 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
Առայժմ ոչ մի մեկնաբանություն չկա

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից