Hur ändrar jag värde baserat på cellfärg i Excel?
Den här artikeln talar om att ändra cellvärde automatiskt baserat på dess bakgrundsfärg i Excel. Till exempel, om celler som fylls med röd bakgrundsfärg i markeringen, fyller du i dessa celler med nummer 1 och för de blå bakgrundsfärgscellerna fyller du i nummer 0.
Ändra värde baserat på cellfärg med VBA-kod
Ändra värde baserat på cellfärg med VBA-kod
Du kan köra nedanstående VBA-kod för att ändra värde baserat på cellfärg i Excel. Gör så här.
1. Välj det intervall du behöver för att ändra värden baserat på bakgrundsfärg och tryck sedan på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna, kopiera och klistra in nedanstående VBA-kod i modulfönstret.
VBA-kod: Ändra värde baserat på cellfärg i Excel
Sub ChangeValueBasedOnCellColor()
Dim rg As Range
Dim xRg As Range
Set xRg = Selection.Cells
Application.DisplayAlerts = False
For Each rg In xRg
With rg
Select Case .Interior.Color
Case Is = 255 'Red
.Value = 1
Case Is = 15773696 'Blue
.Value = 0
End Select
End With
Next
Application.DisplayAlerts = False
End Sub
3. tryck på F5 för att köra koden, då kan du se att alla röda celler i det valda intervallet är fyllda med nummer 1 och de blå cellerna är fyllda med nummer 0 enligt nedanstående skärmdump.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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!