Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս փոխել բջջի գույնը, երբ բջիջը կտտացվում է կամ ընտրվում է Excel- ում:

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

Փոխեք բջիջի գույնը, երբ բջիջը կտտացնում է VBA կոդով
Փոխեք ընդգծված գույնը, երբ բջիջները ընտրվում են VBA կոդով
Excel- ի համար Kutools- ով ընդգծեք ակտիվ բջիջի ամբողջ շարքը և սյունը


Փոխեք բջիջի գույնը, երբ բջիջը կտտացնում է VBA կոդով

Այստեղ դուք կարող եք փոխել բջիջի ֆոնի գույնը, երբ այն կրկնակի կտտացնում է կամ սեղմում է դրա վրա հետևյալ VBA կոդով:

1. Աշխատանքային թերթում այն ​​կտտացնելիս կփոխեք բջջի գույնը, աջ կտտացրեք թերթիկի ներդիրին և կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք ներքևի VBA կոդը ՝ Կոդ պատուհան.

VBA. Փոխելով բջջի գույնը ՝ կտտացնելով այն

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbRed
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbGreen
End Sub

3. Մամուլ ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Հետո, երբ կրկնակի կտտացնում եք բջիջին, այն գունավորվելու է կարմիրով: Եվ երբ աջ կտտացնում եք բջիջին, այն գունավորվելու է կանաչ գույնով: Տեսեք,


Մեկ կտտոցով Excel- ում ընտրված բջիջի տողն ու սյունը ընդգծելու համար.

Excel- ի համար նախատեսված գործիքներ's Ընթերցանության դասավորությունը օգտակարությունն օգնում է ձեզ արագորեն առանձնացնել ընտրված բջիջի տողն ու սյունը Excel- ում, ինչպես ցույց է տրված ստորև ցուցադրված ցուցադրումը:
Ներբեռնեք և փորձեք այն հիմա: (30-օրյա անվճար արահետ)


Փոխեք ընդգծված գույնը, երբ բջիջները ընտրվում են VBA կոդով

Լռելյայնորեն, բջիջների շարք ընտրելիս ընդգծված գույնը մոխրագույն է: Եթե ​​ցանկանում եք ընտրված տիրույթն ավելի ընդգծված դարձնել, կարող եք փոխել դրա ընդգծված գույնը և ձեզ անհրաժեշտ գույնի: Խնդրում եմ, արեք հետևյալ կերպ.

1. Աջ կտտացրեք թերթիկի ներդիրին, որը ցանկանում եք փոխել ընտրված տիրույթի ընդգծված գույնը և կտտացնել Դիտել կոդը աջ կտտացնելու ցանկից:

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք ներքևի VBA կոդը ՝ Կոդ պատուհան.

VBA կոդ. Փոխեք ընտրված տիրույթի ընդգծված գույնը

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , "TRUE"
        .FormatConditions(1).Interior.Color = vbYellow
    End With
End Sub

3. Մամուլ ալտ + Q ստեղները միևնույն ժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ ընտրված տիրույթի կամ բջիջի ընդգծված գույնը փոխվում է դեղինի: Երբ կտտացնում եք մեկ այլ բջիջ կամ բջիջների տիրույթ, բջիջներն ավտոմատ գունավորվելու են:


Excel- ի համար Kutools- ով ընդգծեք ակտիվ բջիջի ամբողջ շարքը և սյունը

Եթե ​​գործ ունեք մեծ աշխատանքային թերթի հետ, կարդալն ավելի հեշտ դարձնելու համար անհրաժեշտ է ընդգծել ակտիվ բջիջի ամբողջ շարքն ու սյունը: Այստեղ Ընթերցանության դասավորությունը օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ.

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

1: սեղմեք Կուտոլս > Ընթերցանության դասավորությունը, Տեսեք,

Այնուհետև ընթերցման դասավորությունը միացված է, կտեսնեք, որ ակտիվ բջիջի տողն ու սյունը անմիջապես ընդգծվում են:

ՆշումԸնթերցանության դասավորության պարամետրերը կարող եք փոխել ՝ հիմնվելով ձեր կարիքների վրա, ինչպես ցույց է տրված ստորև նշված նկարում:

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Excel- ի համար Kutools- ով ընդգծեք ակտիվ բջիջի ամբողջ շարքը և սյունը


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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:
officetab ներքևում
Say something here...
symbols left.
You are guest
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.
    Vera · 11 months ago
    Hi,
    is it possible to have a code for "change cell color when clicking on it" in the way that it will not change already formated cells with another color, please?
    After applying your code all my formating (colours) is away. Thank you. Veronika
  • To post as a guest, your comment is unpublished.
    kiba fil · 1 years ago
    Thank you. Great Job
  • To post as a guest, your comment is unpublished.
    shea honig · 1 years ago
    hi
    the is working grate but i want that the color should only be when the cell is selected and when i select something else, the first cell i selcted should not be colored
    can you help me pls with this thanks
    • To post as a guest, your comment is unpublished.
      Kris · 1 years ago
      I had that exact same question! I hope someone will answer you! The reason I am looking for this is I have a spreadsheet I use daily and put in lots of information into single cells. It gets hard to see the values (visually, it runs into info in other cells), and would be a great feature if I could change the color of the cell being edited - only while it is being edited. The simplest solution I can think of is that the cell value would be set back to what it was prior to being clicked on - but I don't know how to do that.
  • To post as a guest, your comment is unpublished.
    perry · 1 years ago
    Hi, I am trying to figure out how to change the color of a cell, based on a selection from a dropdown list. For example, HIGH=red, MEDIUM=yellow, LOW=green.

    Any tips you can provide are greatly appreciated. Thank You
  • To post as a guest, your comment is unpublished.
    Vishnu Subind · 2 years ago
    Hi guys, so i used to first code to change the cell colour to green/red on doubleclick/rightclick. I would like this code, however, to work just on a specific range of cells, in my case D9:P9. can someone help me on how to do that? Im new at VBA
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi,
      The below VBA code can do you a favor, please have a try. Thank you for your comment.

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If (Not Application.Intersect(Target, Me.Range("D9:P9")) Is Nothing) Then
      Cancel = True
      Target.Interior.Color = vbRed
      End If
      End Sub
      Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
      If (Not Application.Intersect(Target, Me.Range("D9:P9")) Is Nothing) Then
      Cancel = True
      Target.Interior.Color = vbGreen
      End If
      End Sub
  • To post as a guest, your comment is unpublished.
    rahayu · 2 years ago
    trimakasih
  • To post as a guest, your comment is unpublished.
    rahayu · 2 years ago
    td muncul=tidak muncul
  • To post as a guest, your comment is unpublished.
    rahayu · 2 years ago
    Salam...
    sy sudah install kutools, tp kok td muncul tab kutools di layar excel ya? gmn cara mmunculkannya?trimakasih
  • To post as a guest, your comment is unpublished.
    vuongngocsangbkdn@gmail.com · 2 years ago
    I have a problem.
    I want change color of one hyperlink if it had linked with one PDF to RED and if had not link with one PDF will show BLUE color.
    How can I do now?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good day,
      Sorry can't help you with that. Thanks for commenting.
  • To post as a guest, your comment is unpublished.
    devika.kalika@gmail.com · 2 years ago
    I tried the "Change the highlighted color when cells are selected with VBA code" option and saved my excel as Macro Enabled Worksheet. Now the last cells that were selected are highlighted and won't highlight other cells when selected. I've deleted code and reentered and saved, but still no change. I can't remove the previous highlight either. I'm at lost on what to do.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi,
      The code works well in my case after saving the workbook as an Excel Macro-Enabled Workbook.
      Can you tell me your Excel version?
  • To post as a guest, your comment is unpublished.
    Jason · 2 years ago
    Is there a way to just apply this to certain cells while leaving other cells with available for number entering?
  • To post as a guest, your comment is unpublished.
    Slaxx · 2 years ago
    hi. just a little heads up. i'm using office 2007.
    i tried your code, and while it did work, it wasn't what i was looking for. so i just deleted the code completely. but the last selected/active cell before i deleted the code is still green (i changed the color from vbYellow to vbGreen), and the color won't go away. it's not affected by fill color either.
    the simplest solution i found was to just delete the cell. copying and pasting will not work, it will also copy the color.
    just thought i'd let you know. you might find another solution/troubleshooting for this, besides deleting and manual entry. still, thanks! i confirm that the code works :)
  • To post as a guest, your comment is unpublished.
    Michelle · 3 years ago
    I love how easy formatting my worksheet the code for "change cell color when clicking on it" would make my daily work! I am hitting a snag though. When I copy my Blank Sheet with the code entered as described, I get a error. It runs great until I create new sheets. I am a novice at coding and am working from textbooks and the internet. I appreciate any help you will offer!
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Dear Michelle,
      I followed the steps as you described, but the code also worked in my case. Can you tell me your Office version?
      Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    madhav neupane · 3 years ago
    thank you thank you so much. I appreciate you for this.