Բաց թողնել հիմնական բովանդակությունը

Ավտոմատ ընդգծում է ակտիվ տողը և սյունակը Excel-ում (ամբողջական ուղեցույց)

Հեղինակ՝ Սյաոյանգ Վերջին փոփոխությունը՝ 2023-12-01

Տվյալներով հագեցած Excel-ի լայնածավալ աշխատաթերթերում նավարկելը կարող է դժվար լինել, և հեշտ է կորցնել ձեր տեղը կամ սխալ կարդալ արժեքները: Ձեր տվյալների վերլուծությունը բարելավելու և սխալների հավանականությունը նվազեցնելու համար մենք կներկայացնենք Excel-ում ընտրված բջիջի տողն ու սյունակը դինամիկ կերպով ընդգծելու 3 տարբեր եղանակներ: Բջջից բջիջ շարժվելիս ընդգծումը դինամիկ տեղաշարժվում է՝ ապահովելով հստակ և ինտուիտիվ տեսողական ազդանշան՝ ձեզ կենտրոնացած ճիշտ տվյալների վրա, ինչպես ցույց է տրված հետևյալ ցուցադրությունը.

Ավտոմատ ընդգծեք ակտիվ տողը և սյունակը Excel-ում

Տեսանյութ. Excel-ում ակտիվ տողերի և սյունակների ավտոմատ ընդգծում

Ավտոմատ ընդգծեք ակտիվ տողը և սյունակը VBA կոդով

Ընթացիկ աշխատաթերթում ընտրված բջիջի ամբողջ սյունակը և տողը ավտոմատ կերպով ընդգծելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ հասնել այս առաջադրանքին:

Քայլ 1. Բացեք աշխատաթերթը, որտեղ ցանկանում եք ավտոմատ կերպով ընդգծել ակտիվ տողը և սյունակը

Քայլ 2. Բացեք VBA թերթիկի մոդուլի խմբագրիչը և պատճենեք կոդը

  1. Աջ սեղմեք թերթի անվան վրա և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից տե՛ս նկարը.
  2. Բացված VBA թերթիկի մոդուլի խմբագրիչում պատճենեք և տեղադրեք հետևյալ կոդը դատարկ մոդուլի մեջ։ Տես սքրինշոթը.
    VBA կոդ. Ընտրված բջիջի ինքնանշանակման տող և սյուն 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
     Cells.Interior.ColorIndex = xlNone
    rowRange.Interior.Color = RGB(248, 150, 171)
    colRange.Interior.Color = RGB(173, 233, 249)
End Sub
    Խորհուրդներ. Անհատականացրեք կոդը
    • Լույսի գույնը փոխելու համար պարզապես անհրաժեշտ է փոփոխել RGB արժեքը հետևյալ սկրիպտներում.
      rowRange.Interior.Color = RGB(248, 150, 171)
      colRange.Interior.Color = RGB(173, 233, 249)
    • Ընտրված բջիջի ամբողջ շարքը միայն ընդգծելու համար հեռացրեք կամ մեկնաբանեք (ավելացրեք ապաստրոֆը առջևի մասում) այս տողը.
      colRange.Interior.Color = RGB(173, 233, 249)
    • Ընտրված բջիջի ամբողջ սյունակը միայն ընդգծելու համար հեռացրեք կամ մեկնաբանեք (ավելացրեք ապաստրոֆը առջևի մասում) այս տողը.
      rowRange.Interior.Color = RGB(248, 150, 171)

  3. Այնուհետև փակեք VBA խմբագրիչի պատուհանը՝ աշխատաթերթ վերադառնալու համար:

Արդյունքը:

Այժմ, երբ դուք ընտրում եք բջիջ, այդ բջիջի ամբողջ տողը և սյունակը ավտոմատ կերպով ընդգծվում են, և ընդգծումը դինամիկ կերպով տեղաշարժվում է, երբ ընտրված բջիջը փոխվում է, ինչպես ցույց է տրված ստորև ներկայացված ցուցադրումը.

Նշումներ:
  • Այս կոդը կջնջի ֆոնային գույները աշխատաթերթի բոլոր բջիջներից, այնպես որ, խուսափեք օգտագործել այս լուծումը, եթե ունեք հատուկ գունավորումով բջիջներ:
  • Այս ծածկագրի գործարկումը կանջատվի արձակել հատկանիշը թերթիկում, ինչը նշանակում է, որ դուք չեք կարող հակադարձել որևէ սխալ՝ սեղմելով կոճակը Ctrl + Z կարճուղի:
  • Այս կոդը չի աշխատի պաշտպանված աշխատաթերթում:
  • Ընտրված բջիջի տողի և սյունակի ընդգծումը դադարեցնելու համար դուք պետք է հեռացնեք նախկինում ավելացված VBA կոդը: Դրանից հետո, կտտացնելով ընդգծումը վերականգնելու համար Գլխավոր > Լրացրեք գույնը > Ոչ լրացնել.

Ավտոմատ ընդգծեք ակտիվ տողը և սյունակը Kutools-ի միայն մեկ սեղմումով

Դիմակայո՞ւմ եք Excel-ում VBA կոդի սահմանափակումներին: Կուտոլս Excel- ի համար's Ցանցի կենտրոնացում առանձնահատկությունը ձեր իդեալական լուծումն է: Նախագծված է շտկելու VBA-ի թերությունները, այն առաջարկում է ընդգծման ոճերի բազմազան տեսականի՝ ձեր թերթիկների փորձը բարելավելու համար: Այս ոճերը բոլոր բաց աշխատանքային գրքույկներում կիրառելու ունակությամբ, Կուտոլս ապահովում է տվյալների կառավարման հետևողական արդյունավետ և տեսողականորեն գրավիչ գործընթաց:

ՆշումԵթե ​​ցանկանում եք օգտագործել սա Ցանցի կենտրոնացում հատկություն, խնդրում եմ ներբեռնեք և տեղադրեք Kutools Excel-ի համար առաջին.

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, Խնդրում ենք սեղմել Կուտոլս > Ցանցի կենտրոնացում այս հնարավորությունը միացնելու համար: Այժմ դուք կարող եք տեսնել, որ ակտիվ բջիջի տողը և սյունակը անմիջապես ընդգծված են: Այս ընդգծումը դինամիկ կերպով փոխվում է, որպեսզի հետևի, երբ դուք փոխում եք ձեր բջիջների ընտրությունը: Դիտեք ստորև ներկայացված ցուցադրությունը.

⭐ Grid Focus հատկության հիմնական առավելությունները.
  • Պահպանում է բջջի ֆոնի բնօրինակ գույները.
    Ի տարբերություն VBA կոդի, այս հատկությունը հարգում է ձեր աշխատաթերթի առկա ձևաչափումը:
  • Օգտագործելի է պաշտպանված թերթերում.
    Այս հատկությունը անխափան աշխատում է պաշտպանված աշխատաթերթերում՝ դարձնելով այն իդեալական զգայուն կամ համօգտագործվող փաստաթղթերը կառավարելու համար՝ առանց անվտանգությունը խաթարելու:
  • Չի ազդում Undo ֆունկցիայի վրա.
    Այս հատկանիշով դուք պահպանում եք Excel-ի հետարկել գործառույթի լիարժեք հասանելիությունը: Սա երաշխավորում է, որ դուք կարող եք հեշտությամբ վերականգնել փոփոխությունները՝ ավելացնելով անվտանգության շերտ ձեր տվյալների մանիպուլյացիայի մեջ:
  • Կայուն կատարում մեծ տվյալների հետ.
    Այս հատկությունը նախատեսված է տվյալների մեծ հավաքածուները արդյունավետորեն մշակելու համար՝ ապահովելով կայուն աշխատանք նույնիսկ բարդ և տվյալների ինտենսիվ աղյուսակներում:
  • Բազմաթիվ ընդգծման ոճեր.
    Այս հատկանիշն առաջարկում է ընդգծման մի շարք տարբերակներ, որոնք թույլ են տալիս ընտրել տարբեր ոճերից և գույներից՝ տողի, սյունակի կամ տողի և սյունակի ակտիվ բջիջը առանձնացնելու համար, որը լավագույնս համապատասխանում է ձեր նախասիրություններին և կարիքներին:
Հուշում.
  • Այս ֆունկցիան անջատելու համար սեղմեք Կուտոլս > Ցանցի կենտրոնացում կրկին փակել այս գործառույթը;
  • Այս հատկությունը կիրառելու համար խնդրում ենք ներբեռնեք և տեղադրեք Kutools Excel-ի համար առաջին.

Ավտոմատ ընդգծեք ակտիվ տողը և սյունակը պայմանական ձևաչափմամբ

Excel-ում կարող եք նաև կարգավորել Պայմանական ֆորմատավորումը՝ ակտիվ տողն ու սյունակը ավտոմատ կերպով ընդգծելու համար: Այս գործառույթը կարգավորելու համար խնդրում ենք հետևել հետևյալ քայլերին.

Քայլ 1. Ընտրեք տվյալների տիրույթը

Նախ ընտրեք այն բջիջների շրջանակը, որոնց վրա ցանկանում եք կիրառել այս հատկությունը: Սա կարող է լինել ամբողջ աշխատաթերթը կամ հատուկ տվյալների հավաքածու: Այստեղ ես կընտրեմ ամբողջ աշխատաթերթը:

Քայլ 2. Մուտք գործեք պայմանական ձևաչափում

Սեղմել Գլխավոր > Պայմանական ֆորմատավորում > Նոր կանոն, տես նկարի նկարը.

Քայլ 3. Սահմանեք գործողությունները Նոր ֆորմատավորման կանոնում

  1. Է Ձևաչափման նոր կանոն երկխոսության վանդակում, ընտրեք Օգտագործեք բանաձև `որոշելու համար, թե որ բջիջները ձևափոխել - ից Ընտրեք կանոնի տեսակը ցուցակի տուփ:
  2. Է Ձևաչափեք արժեքները, երբ այս բանաձեւը ճիշտ է վանդակում, մուտքագրեք այս բանաձևերից մեկը, այս օրինակում ես կկիրառեմ երրորդ բանաձևը՝ ակտիվ տողը և սյունակը ընդգծելու համար:
    Ակտիվ տողն ընդգծելու համար՝ 
    =CELL("row")=ROW()
    Ակտիվ սյունակը նշելու համար՝ 
    =CELL("col")=COLUMN()
    Ակտիվ տողն ու սյունակը նշելու համար՝ 
    =OR(CELL("row")=ROW(), CELL("col")= COLUMN())
  3. Այնուհետեւ կտտացրեք Ֆորմատ կոճակը:
  4. Հետեւյալ Ձևաչափել բջիջները երկխոսության տուփ, տակ Լրացնել ներդիր, ընտրեք մեկ գույն՝ ակտիվ տողն ու սյունակը ըստ անհրաժեշտության ընդգծելու համար, տես սքրինշոթը՝
  5. Այնուհետեւ կտտացրեք OK > OK երկխոսությունները փակելու համար:

Արդյունքը:

Այժմ դուք կարող եք տեսնել, որ A1 բջիջի ամբողջ սյունակը և տողը միանգամից ընդգծված են: Այս ընդգծումը մեկ այլ բջիջի վրա կիրառելու համար պարզապես սեղմեք ձեր ուզած բջիջի վրա և սեղմեք կոճակը F9 ստեղնը՝ թերթը թարմացնելու համար, որն այնուհետ ընդգծում է նոր ընտրված բջիջի ամբողջ սյունակը և տողը:

Հուշում. 
  • Իրոք, թեև Excel-ում ընդգծելու պայմանական ձևաչափման մոտեցումը լուծում է առաջարկում, այն այնքան էլ անխափան չէ, որքան օգտագործելը: VBA և Ցանցի կենտրոնացում հատկանիշ. Այս մեթոդը պահանջում է թերթի ձեռքով վերահաշվարկ (կատարվում է սեղմելով կոճակը F9 բանալի).
    Ձեր աշխատաթերթի ավտոմատ վերահաշվարկը միացնելու համար դուք կարող եք ներառել պարզ VBA կոդ ձեր թիրախային թերթիկի կոդի մոդուլում: Սա կավտոմատացնի թարմացման գործընթացը՝ ապահովելով ընդգծված թարմացումներն անմիջապես, երբ դուք ընտրում եք տարբեր բջիջներ՝ առանց սեղմելու կոճակը: F9 բանալի. Խնդրում ենք աջ սեղմել թերթի անվան վրա, այնուհետև ընտրել Դիտել կոդը համատեքստի ընտրացանկից: Այնուհետև պատճենեք և տեղադրեք հետևյալ կոդը թերթի մոդուլում. 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Target.Calculate
End Sub
  • Պայմանական ձևաչափումը պահպանում է գոյություն ունեցող ձևաչափումը, որը դուք ձեռքով կիրառել եք ձեր աշխատաթերթում:
  • Հայտնի է, որ պայմանական ձևաչափումը անկայուն է, հատկապես, երբ կիրառվում է տվյալների շատ մեծ հավաքածուների վրա: Դրա լայնածավալ օգտագործումը կարող է դանդաղեցնել ձեր աշխատանքային գրքույկի աշխատանքը՝ ազդելով տվյալների մշակման և նավիգացիայի արդյունավետության վրա:
  • CELL ֆունկցիան հասանելի է միայն Excel-ի 2007 և ավելի նոր տարբերակներում, այս մեթոդը համատեղելի չէ Excel-ի ավելի վաղ տարբերակների հետ:

Վերոնշյալ մեթոդների համեմատություն

առանձնահատկություն VBA կոդ Պայմանական ֆորմատավորում Excel- ի համար նախատեսված գործիքներ
Պահպանել բջջային ֆոնի գույնը Ոչ այո այո
Աջակցում է Չեղարկել Ոչ այո այո
Կայուն մեծ տվյալների հավաքածուներում Ոչ Ոչ այո
Օգտագործվում է պաշտպանված թերթերում Ոչ այո այո
Կիրառվում է բոլոր բաց աշխատանքային գրքույկներին Միայն ընթացիկ թերթիկ Միայն ընթացիկ թերթիկ Բոլոր բաց աշխատանքային գրքերը
Պահանջում է ձեռքով թարմացում (F9) Ոչ այո Ոչ

Դա ավարտում է մեր ուղեցույցը, թե ինչպես պետք է ընդգծել Excel-ում ընտրված բջիջի սյունակը և տողը: Եթե ​​դուք հետաքրքրված եք Excel-ի ավելի շատ խորհուրդներ և հնարքներ ուսումնասիրելով, մեր կայքը առաջարկում է հազարավոր ձեռնարկներ, խնդրում ենք սեղմեք այստեղ՝ դրանք մուտք գործելու համար. Շնորհակալություն կարդալու համար, և մենք անհամբեր սպասում ենք ձեզ ավելի օգտակար տեղեկություններ տրամադրել ապագայում:

Related Articles:

  • Ակտիվ բջիջի տողն ու սյունը ավտոմատ կերպով լուսաբանելու համար
  • Բազմաթիվ տվյալներով մեծ աշխատանքային թերթ դիտելիս գուցե ցանկանաք ընդգծել ընտրված բջջի տողն ու սյունը, որպեսզի կարողանաք հեշտությամբ և ինտուիտիվորեն կարդալ տվյալները ՝ դրանք սխալ ընթերցելուց խուսափելու համար: Այստեղ ես կարող եմ ձեզ ներկայացնել մի քանի հետաքրքիր հնարքներ ընթացիկ բջիջի տողն ու սյունը ընդգծելու համար, երբ բջիջը փոխվում է, նոր բջիջի սյունն ու շարքը ավտոմատ կերպով ընդգծվում են:
  • Նշեք Excel-ի յուրաքանչյուր մյուս տող կամ սյունակ
  • Մեծ աշխատաթերթում յուրաքանչյուր մյուս կամ յուրաքանչյուր n-րդ տող կամ սյունակ ընդգծելը կամ լրացնելը բարելավում է տվյալների տեսանելիությունը և ընթեռնելիությունը: Այն ոչ միայն դարձնում է աշխատաթերթը ավելի կոկիկ տեսք, այլև օգնում է ձեզ ավելի արագ հասկանալ տվյալները: Այս հոդվածում մենք ձեզ կառաջնորդենք տարբեր մեթոդներով՝ ստվերելու յուրաքանչյուր մյուս կամ n-րդ տող կամ սյունակ՝ օգնելով ձեզ ներկայացնել ձեր տվյալները ավելի գրավիչ և պարզ ձևով:
  • Ոլորելիս ընդգծեք ամբողջ / ամբողջ տողը
  • Եթե ​​ունեք մեծ աշխատաթերթ ՝ բազմաթիվ սյունակներով, ձեզ համար դժվար կլինի տարբերակել տվյալ տողի տվյալները: Այս դեպքում կարող եք ընդգծել ակտիվ բջիջի ամբողջ շարքը այնպես, որ հորիզոնական ոլորման սյունը ներքև ոլորելիս արագ և հեշտությամբ կարողանաք դիտել տվյալ տողի տվյալները: Այս հոդվածում ես կխոսեմ այս խնդրի լուծման որոշ հնարքների մասին: ,
  • Նշեք տողերը՝ հիմնված բացվող ցանկի վրա
  • Այս հոդվածում կխոսվի այն մասին, թե ինչպես պետք է ընդգծել տողերը, որոնք հիմնված են բացվող ցուցակի վրա, վերցրեք հետևյալ սքրինշոթը, օրինակ, երբ ես E սյունակի բացվող ցուցակից ընտրում եմ «Ընթացքի մեջ է», ես պետք է այս տողն ընդգծեմ կարմիր գույնով, երբ ես բացվող ցուցակից ընտրեք «Ավարտված», ես պետք է այս տողն ընդգծեմ կապույտ գույնով, և երբ ընտրեմ «Չսկսված», կանաչ գույնը կօգտագործվի տողն ընդգծելու համար:
Comments (61)
Rated 5 out of 5 · 1 ratings
dreams knight
dreams knight
This comment was minimized by the moderator on the site
And please reply to an email
Reply
0
0
dreams knight
dreams knight
This comment was minimized by the moderator on the site
Great job . But in the first task at the top of the browser page, when I did it, it was working correctly, but when I made protection for the sheet, it stopped working correctly, you see, what's the solution. Thank you
Reply
0
0
skyyang
skyyang     dreams knight
This comment was minimized by the moderator on the site
Hello,
To solve your problem, please apply the followign code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    Me.Unprotect
    Cells.Interior.ColorIndex = xlNone
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
    rowRange.Interior.Color = RGB(173, 233, 249)
    colRange.Interior.Color = RGB(173, 233, 249)
    Me.Protect
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
sahudewa@gmail.com
This comment was minimized by the moderator on the site 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    
    ' Clear previous highlighting
    Me.Cells.FormatConditions.Delete
    
    ' Check if Checkbox1 is checked
    ' If CheckBox1.Value = True Then
        ' Check if a single cell or a range of cells is selected
        If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
            Dim selectedRange As Range
            Dim selectedRows As Range
            Dim selectedColumns As Range
            
            Set selectedRange = Target
            Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
            Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)
            
            ' Add conditional formatting to highlight the selected rows
            With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
            
            ' Add conditional formatting to highlight the selected columns
            With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
        End If
    ' End If
    
    On Error GoTo 0
End Sub
Reply
Report
0
0
sahudewa@gmail.com
This comment was minimized by the moderator on the site
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

' Clear previous highlighting
Me.Cells.FormatConditions.Delete

' Check if a single cell or a range of cells is selected
If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
Dim selectedRange As Range
Dim selectedRows As Range
Dim selectedColumns As Range

Set selectedRange = Target
Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)

' Add conditional formatting to highlight the selected rows
With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With

' Add conditional formatting to highlight the selected columns
With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With
End If

On Error GoTo 0
End Sub
Reply
Report
0
0
Disgruntled Researcher
Disgruntled Researcher
This comment was minimized by the moderator on the site
can you please post code in VBA format? trying to figure out what your code looks like from what you posted in a jumble is frustrating.
Reply
0
0
A. Patel
A. Patel
This comment was minimized by the moderator on the site
Hi,

The above code is brilliant. But i have two questions and if you can help then will be much appreciated. Let me know if there is cost associated with it.

1. The above code is removing my previous formatting of the cells. Eg. if i have got the cells filld with blue then above code clears that fill.
2. Is there a code that i can use when i am extracting values from another sheet and that row in the that sheet gets highlighted as well. Eg. I want to extract vale from another cell, so when i press = sign in sheet 1 and then when i move to sheet 2 to bring the value the row in the sheet doesn't get highlighted.

Regards,
Reply
0
0
skyyang
skyyang     A. Patel
This comment was minimized by the moderator on the site
Hello, Patel
For the first question:
It may be difficult to modify the VBA code, so, I recommend you to apply the Conditional Formatting feature for solving this problem, the following article may help you:
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html

Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

For the second question:
Sorry, I can't solve this problem at present,😜
Reply
Report
0
0
2Took
2Took
This comment was minimized by the moderator on the site
How do you modify the code so that:
1. It does not permanently strip existing colors of cells. Currently, after another cell is selected, it leaves colorless previous row. I'd like to keep the colors of the worksheet, as they were before row was highlighted by this code.
2. Limit the highlight width to only Columns A thru K, not the entire row.
Reply
0
0
skyyang
skyyang     2Took
This comment was minimized by the moderator on the site
Hello,
It may be difficult to modify the VBA code, so, here, I recommend you to apply the Conditional Formatting feature for solving this problem, please view the below article: (Note: if you need to highlight the column A to column K, you just need to select the range you need, and then apply the conditional formatting.)
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html


Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

Please try, hope it can help you!
Reply
Report
0
0
Jerry
Jerry
This comment was minimized by the moderator on the site
Thank you so much for this tip!!!
Reply
0
0
Rated 5 out of 5
Rodney
Rodney
This comment was minimized by the moderator on the site
Another easy way to highlight your rows: https://youtu.be/iOF06mZDGIk
Reply
0
0
Gues
Gues
This comment was minimized by the moderator on the site
FAIL. Wiped out all my other cell formatting irreversibly. And doesn't work if the sheet is protected. FAIL.
Reply
0
0
crystal
crystal     Gues
This comment was minimized by the moderator on the site
Hi Gues,The code does not work in a protected worksheet. If you want to keep the original cell formatting, please try the below code.The Reading Layout feature of Kutools is stable and handy, maybe you can download a free trial to have a try.
<div data-tag="code">Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 202001106
Static xRow
Static xColumn

Dim xWs As Worksheet
Dim xCRg, xCRg1, xRRg, xRRg1, xOHRg As Range
Dim xAHRORg, xAHRORg1 As Range
Dim xAWs As Worksheet
Dim xFNum As Integer
Dim xCll As Range

On Error Resume Next

Application.ScreenUpdating = False
pRow = Selection.Row
pColumn = Selection.Column

Set xWs = ActiveWorkbook.Worksheets.Item("AutoHighlightRAndC")
Set xAWs = Target.Worksheet
If xWs Is Nothing Then
Set xWs = ActiveWorkbook.Worksheets.Add
xWs.Name = "AutoHighlightRAndC"
xWs.Visible = xlSheetHidden
xAWs.Activate
End If

If xColumn <> "" Then
Set xCRg = Columns(xColumn)
xCRg.Interior.ColorIndex = xlNone
Set xCRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg.Count
Set xAHRORg1 = xAWs.Cells(xFNum, xColumn)
Set xAHRORg = xWs.Cells(xFNum, xColumn)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xCRg.Item(xFNum).Interior.ColorIndex = xWs.Columns(xColumn).Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(xRow)
xRRg.Interior.ColorIndex = xlNone
Set xRRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xRRg.Count
Set xAHRORg1 = xAWs.Cells(xRow, xFNum)
Set xAHRORg = xWs.Cells(xRow, xFNum)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xRRg.Item(xFNum).Interior.ColorIndex = xWs.Rows(xRow).Item(xFNum).Interior.ColorIndex
Next

End If

xRow = pRow
xColumn = pColumn

Set xCRg = Columns(pColumn)
Set xCRg1 = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg1.Count
Set xOHRg = xWs.Cells(xFNum, pColumn)
xOHRg.Interior.ColorIndex = xCRg1.Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(pRow)
Set xRRg1 = Intersect(xRRg.Worksheet.UsedRange, xRRg)

For xFNum = 1 To xRRg1.Count
Set xCll = xWs.Cells(pRow, xFNum)
xCll.Interior.ColorIndex = xRRg1.Item(xFNum).Interior.ColorIndex
Next
xCRg.Interior.ColorIndex = 34
xRRg.Interior.ColorIndex = 34
Application.ScreenUpdating = True
End Sub
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations