Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan lehet megváltoztatni a cella színét, amikor a cellára kattintunk vagy kiválasztjuk az Excel programban?

Ez a cikk bemutat néhány módszert a cellák színének megváltoztatására, miközben rákattint egy cellára, és megváltoztathatja a kiemelt színt, miközben kiválaszt egy cellatartományt az Excelben.

Változtassa meg a cella színét, amikor a cellára VBA kóddal kattintanak
Változtassa meg a kiemelt színt, ha a cellákat VBA kóddal választja ki
Jelölje ki az aktív cellák teljes sorát és oszlopát a Kutools for Excel alkalmazással


Változtassa meg a cella színét, amikor a cellára VBA kóddal kattintanak

Itt megváltoztathatja a cellák háttérszínét, amikor duplán kattintanak rá vagy jobb egérgombbal kattintanak rá a következő VBA kóddal.

1. A munkalapon megváltoztatja a cella színét, amikor rákattint, kattintson jobb gombbal a lap fülre, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

2. Ban,-ben Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be az alábbi VBA kódot a Kód ablak.

VBA: a cellák színének megváltoztatása, amikor rákattintanak

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. nyomja meg más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.

Ezután, amikor duplán kattint egy cellára, vörös lesz. És amikor jobb egérgombbal kattint egy cellára, az zöld színű lesz. Lásd a képernyőképet:


Egy kattintással kiemelheti az Excel kiválasztott cellájának sorát és oszlopát:

Kutools for Excel's Olvasás elrendezés segédprogram segítségével gyorsan kiemelheti az Excel kiválasztott cellájának sorát és oszlopát, az alábbi bemutató szerint.
Töltse le és próbálja ki most! (30 napos ingyenes nyomvonal)


Változtassa meg a kiemelt színt, ha a cellákat VBA kóddal választja ki

Alapértelmezés szerint egy cellatartomány kiválasztásakor a kiemelt szín szürke. Ha a kiválasztott tartományt jobban ki szeretné emelni, akkor a kiemelt színét megváltoztathatja a kívántra. Kérjük, tegye a következőket.

1. Kattintson a jobb gombbal azon a lapfülön, amelyen meg akarja változtatni a kijelölt tartomány kiemelt színét, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

2. Ban,-ben Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be az alábbi VBA kódot a Kód ablak.

VBA kód: a kijelölt tartomány kiemelt színének megváltoztatása

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. nyomja meg más + Q gombokat egyidejűleg a Microsoft Visual Basic for Applications ablak.

Ezentúl a kijelölt tartomány vagy cella kiemelt színe sárgára változik. Ha egy másik cellára vagy cellatartományra kattint, a cellák automatikusan színeződnek.


Jelölje ki az aktív cellák teljes sorát és oszlopát a Kutools for Excel alkalmazással

Ha nagy munkalapról van szó, akkor az olvasás megkönnyítése érdekében ki kell jelölni az aktív cella teljes sorát és oszlopát. Itt a Olvasás elrendezés hasznossága Kutools for Excel segítségével.

Alkalmazás előtt Kutools for ExcelKérjük, először töltse le és telepítse.

1. kettyenés Kutools > Olvasás elrendezés. Lásd a képernyőképet:

Ezután az olvasási elrendezés engedélyezve van, láthatja, hogy az aktív cella sora és oszlopa azonnal kiemelve van.

Megjegyzések: Megváltoztathatja az olvasási elrendezés beállításait igényei szerint, az alábbi képernyőképen.

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Jelölje ki az aktív cellák teljes sorát és oszlopát a Kutools for Excel alkalmazással


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
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 · 10 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.
    Kris · 1 years ago
    @shea honig 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.
    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.
    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.
    crystal · 1 years ago
    @Vishnu Subind 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.
    Vishnu Subind · 1 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.
    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.
    crystal · 2 years ago
    @vuongngocsangbkdn@gmail.com Good day,
    Sorry can't help you with that. Thanks for commenting.
  • 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
    @devika.kalika@gmail.com 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.
    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.
    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.
    crystal · 2 years ago
    @Michelle 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.
    Michelle · 2 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.
    madhav neupane · 3 years ago
    thank you thank you so much. I appreciate you for this.