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

Hur ändrar jag cellfärg när man klickar på eller väljer en cell i Excel?

Den här artikeln visar några metoder för hur du ändrar cellfärg medan du klickar på en cell och ändrar den markerade färgen medan du väljer ett cellområde i Excel.

Ändra cellfärg när du klickar på cell med VBA-kod
Ändra den markerade färgen när celler väljs med VBA-kod
Markera hela raden och kolumnen med aktiv cell med Kutools för Excel


Ändra cellfärg när du klickar på cell med VBA-kod

Här kan du ändra bakgrundsfärgen på en cell när du dubbelklickar på den eller högerklickar på den med följande VBA-kod.

1. I kalkylbladet kommer du att ändra cellfärgen när du klickar på den, högerklicka på arkfliken och klicka Visa kod från högerklickmenyn.

2. I Microsoft Visual Basic för applikationer kopiera och klistra in nedanstående VBA-kod i Koda fönster.

VBA: ändra cellfärg när du klickar på den

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. Tryck andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.

Sedan, när du dubbelklickar på en cell, färgas den i rött. Och när du högerklickar på en cell kommer den att färgas i grönt. Se skärmdump:


Ett klick för att markera rad och kolumn för vald cell i Excel:

Kutools för Excel's Läslayout verktyget hjälper dig att snabbt markera rad och kolumn i den valda cellen i Excel enligt nedanstående demo.
Ladda ner och prova nu! (30- dag gratis spår)


Ändra den markerade färgen när celler väljs med VBA-kod

Som standard är den markerade färgen grå när du väljer ett cellområde. Om du vill göra det valda intervallet mer utstående kan du ändra dess markerade färg till den du behöver. Gör så här.

1. Högerklicka på den arkflik som du vill ändra den markerade färgen för det valda intervallet och klicka på Visa kod från högerklickmenyn.

2. I Microsoft Visual Basic för applikationer kopiera och klistra in nedanstående VBA-kod i Koda fönster.

VBA-kod: ändra den markerade färgen för det valda intervallet

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. Tryck andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.

Från och med nu ändras den markerade färgen för det valda intervallet eller cellen till gul. När du klickar på en annan cell eller ett cellområde, färgas cellerna automatiskt.


Markera hela raden och kolumnen med aktiv cell med Kutools för Excel

Om du har att göra med ett stort kalkylblad är det nödvändigt att markera hela raden och kolumnen i den aktiva cellen för att göra det lättare att läsa. Här är Läslayout nytta av Kutools för Excel kan hjälpa dig.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

1. klick Kutools > Läslayout. Se skärmdump:

Då är läslayouten aktiverad, du kan se att raden och kolumnen i aktiv cell markeras omedelbart.

Anmärkningar: Du kan ändra läsinställningarna baserat på dina behov enligt nedanstående skärmdump.

  Om du vill ha en gratis provperiod (30-dag) för detta verktyg, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


Markera hela raden och kolumnen med aktiv cell med Kutools för Excel


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (28)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
tack tack så mycket. Jag uppskattar dig för detta.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag älskar hur lätt att formatera mitt kalkylblad koden för "ändra cellfärg när du klickar på den" skulle göra mitt dagliga arbete! Jag hamnar dock i en hake. När jag kopierar mitt blanka ark med koden inmatad enligt beskrivningen får jag ett felmeddelande. Det går utmärkt tills jag skapar nya ark. Jag är nybörjare på kodning och jobbar utifrån läroböcker och internet. Jag uppskattar all hjälp du kan erbjuda!
Denna kommentar minimerades av moderatoren på webbplatsen
Kära Michelle,
Jag följde stegen som du beskrev, men koden fungerade också i mitt fall. Kan du berätta din Office-version?
Tack för din kommentar.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej. bara lite heads up. jag använder office 2007.
Jag försökte din kod, och medan den fungerade, var det inte vad jag letade efter. så jag raderade bara koden helt. men den senast valda/aktiva cellen innan jag tog bort koden är fortfarande grön (jag ändrade färgen från vbYellow till vbGreen), och färgen försvinner inte. den påverkas inte heller av fyllningsfärgen.
den enklaste lösningen jag hittade var att bara ta bort cellen. kopiering och inklistring fungerar inte, det kommer också att kopiera färgen.
tänkte bara berätta för dig. du kanske hittar en annan lösning/felsökning för detta, förutom radering och manuell inmatning. ändå, tack! Jag bekräftar att koden fungerar :)
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något sätt att bara tillämpa detta på vissa celler samtidigt som andra celler lämnas tillgängliga för nummerinmatning?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag försökte alternativet "Ändra den markerade färgen när celler väljs med VBA-kod" och sparade mitt excel som Macro Enabled Worksheet. Nu är de senaste cellerna som markerades markerade och kommer inte att markera andra celler när de markeras. Jag har tagit bort koden och skrivit in den igen och sparat, men fortfarande ingen förändring. Jag kan inte heller ta bort föregående markering. Jag är vilse på vad jag ska göra.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Koden fungerar bra i mitt fall efter att ha sparat arbetsboken som en Excel Macro-Enabled Workbook.
Kan du berätta din Excel-version?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har ett problem.
Jag vill ändra färg på en hyperlänk om den hade länkats med en PDF till RÖD och om den inte hade länken till en PDF kommer den att visa BLÅ färg.
Hur kan jag göra nu?
Denna kommentar minimerades av moderatoren på webbplatsen
God dag,
Jag kan tyvärr inte hjälpa dig med det. Tack för din kommentar.
Denna kommentar minimerades av moderatoren på webbplatsen
Salam...
sy sudah installera kutools, tp kok td muncul tab kutools di layar excel ya? gmn cara mmunculkannya?trimakasih
Denna kommentar minimerades av moderatoren på webbplatsen
td muncul=tidak muncul
Denna kommentar minimerades av moderatoren på webbplatsen
trimakasih
Denna kommentar minimerades av moderatoren på webbplatsen
Hej killar, så jag brukade först koda för att ändra cellfärgen till grön/röd vid dubbelklick/högerklick. Jag skulle dock vilja att den här koden bara fungerar på ett specifikt cellområde, i mitt fall D9:P9. kan någon hjälpa mig hur man gör det? Jag är ny på VBA
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
VBA-koden nedan kan göra dig en tjänst, försök gärna. Tack för din kommentar.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Om (Inte Application.Intersect(Target, Me.Range("D9:P9")) är ingenting) Då
Avbryt = Sant
Target.Interior.Color = vbRed
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Om (Inte Application.Intersect(Target, Me.Range("D9:P9")) är ingenting) Då
Avbryt = Sant
Target.Interior.Color = vbGrön
End If
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag försöker ta reda på hur man ändrar färgen på en cell, baserat på ett urval från en rullgardinslista. Till exempel HÖG=röd, MEDIUM=gul, LÅG=grön.

Alla tips du kan ge är mycket uppskattade. Tack
Denna kommentar minimerades av moderatoren på webbplatsen
hi
gallret fungerar men jag vill att färgen bara ska vara när cellen är vald och när jag väljer något annat ska den första cellen jag valde inte vara färgad
kan du hjälpa mig med detta tack
Denna kommentar minimerades av moderatoren på webbplatsen
Jag hade exakt samma fråga! Jag hoppas att någon svarar dig! Anledningen till att jag letar efter detta är att jag har ett kalkylblad som jag använder dagligen och lägger in massor av information i enstaka celler. Det blir svårt att se värdena (visuellt stöter det på info i andra celler), och det skulle vara en bra funktion om jag kunde ändra färgen på cellen som redigeras - bara medan den redigeras. Den enklaste lösningen jag kan komma på är att cellvärdet skulle sättas tillbaka till vad det var innan det klickades på - men jag vet inte hur man gör det.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack. Bra jobbat
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
är det möjligt att ha en kod för "ändra cellfärg när du klickar på den" på så sätt att den inte ändrar redan formaterade celler med en annan färg, tack?
Efter att ha applicerat din kod är all min formatering (färger) borta. Tack. Veronika
Denna kommentar minimerades av moderatoren på webbplatsen
Koden fungerar så länge jag inte skyddar kalkylbladet. När jag väl har skyddat kalkylbladet, eftersom jag har villkorlig formatering på låsta celler, kommer koden inte att fungera. Hur kan jag ändra detta så att det fungerar på låst kalkylblad där användaren kan välja olåsta celler?
Denna kommentar minimerades av moderatoren på webbplatsen
Hur man markerar cellen (med data) för att automatiskt markera de andra cellerna (data som är relaterade till andra data i en tidigare cell) med klick på cellen. Kan jag göra det. Finns det något sätt att göra det.
Denna kommentar minimerades av moderatoren på webbplatsen
alguien que me ayude solo quiero que al hacerle klicka a una celda se ponga de un färg y que se mantenga ese färg y si le vuelvo hacer klicka regrese el färg original que tenia
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag försöker använda dubbelklicksalternativet för att ändra en cell till grön men jag vill också att cellen ska gå tillbaka till ingen fyllning eller vit om jag dubbelklickar på den medan den är grön. Är detta möjligt? 
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, koden brukade fungera ett tag, men nu gör den det inte längre. Vad kan det vara för fel?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Rens Borburgh, Det finns två koder i inlägget, vilken använde du? Fick du någon felmeddelande?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har provat båda samtidigt. Efter att ha kopierat det till ett usb-minne fungerade det inte längre.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Rens Borburgh, jag förstår inte riktigt vad du menar. Koderna ska användas i arkkodsfönstret och inte i modulfönstret. Eller kan du ge en skärmdump av ditt kodfönster?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag byggde en instrumentpanel med 37 kalkylblad, alla med ett bord. Alla är låspaneler eftersom de är för stora och jag behöver veta numret och namnet på studenten som jag anger data för. Trots det måste jag hålla fingret på vänster sida av skärmen för att identifiera namnen och siffrorna som de inmatade uppgifterna hänvisar till. Så jag måste identifiera de två första cellerna i raden, i kolumnerna "I" och "J".
Koden som jag tog från internet och inte kunde ändra för de två cellerna i kolumnerna "I" och "J" var:

Dim lTarget As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Om Target.Row >= 16 Då

Om inte lTarget är ingenting då

lTarget.EntireRow.Interior.ColorIndex = 0
End If

Mål.EntireRow.Interior.Color = 9359529

Ställ in lTarget = Target
End If
End Sub

Alla tabeller börjar i olika rader. Det här exemplet börjar i 16 rader men jag lägger koden på alla sidor och anpassar mig efter behoven för det specifika radnumret. 
Jag har redan försökt ändra koden från EntireRow till Range ("I16:J43") men cellerna i intervallet blev alla målade med kodfärgen.
Prova redan en annan väg genom "villkorlig formatering" med formeln =E($I16<>"";LIN()=CÉL("lin")) i intervallet $I16:$J43 och i utvecklarens "arbetsblad ", med "Application.Calculate" och det fungerar. Jag ändrade i de 37 kalkylbladen men jag kopierade och kopierade data från den tidigare filen till den nya och jag märkte att alternativen för att klistra in "värden" etc, försvinner från min instrumentpanel. Koden måste exekvera något som, som att klicka på cellen, inte längre låter den klistra in. Ett enda alternativ var att klistra in med CTRL+V.
Om någon kan hjälpa mig med koden, tar jag bort VBA:n "Application.Calculate" för att komma tillbaka till de tillgängliga collagealternativen.
Tack för din hjälp.

Luís Lopes
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL