Hoe verander je de waarde op basis van celkleur in Excel?
Dit artikel heeft het over het automatisch wijzigen van de celwaarde op basis van de achtergrondkleur in Excel. Als cellen bijvoorbeeld worden gevuld met een rode achtergrondkleur, vult u deze cellen in met nummer 1, en voor de cellen met blauwe achtergrondkleur, vult u nummer 0 in.
Verander waarde op basis van celkleur met VBA-code
Verander waarde op basis van celkleur met VBA-code
U kunt de onderstaande VBA-code uitvoeren om de waarde te wijzigen op basis van de celkleur in Excel. Ga als volgt te werk.
1. Selecteer het bereik dat u nodig hebt om waarden te wijzigen op basis van de achtergrondkleur, en druk vervolgens op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module, kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.
VBA-code: waarde wijzigen op basis van celkleur in 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. druk de F5 toets om de code uit te voeren, dan kunt u zien dat alle rode cellen in het geselecteerde bereik zijn gevuld met nummer 1 en dat de blauwe cellen zijn gevuld met nummer 0 zoals hieronder wordt getoond.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!