Wie ändere ich den Wert basierend auf der Zellenfarbe in Excel?
In diesem Artikel geht es darum, den Zellenwert basierend auf seiner Hintergrundfarbe in Excel automatisch zu ändern. Wenn beispielsweise Zellen in der Auswahl mit roter Hintergrundfarbe gefüllt werden, füllen Sie diese Zellen mit der Nummer 1 und geben Sie für die blauen Hintergrundfarbenzellen die Nummer 0 ein.
Ändern Sie den Wert basierend auf der Zellenfarbe mit VBA-Code
Ändern Sie den Wert basierend auf der Zellenfarbe mit VBA-Code
Sie können den folgenden VBA-Code ausführen, um den Wert basierend auf der Zellenfarbe in Excel zu ändern. Bitte gehen Sie wie folgt vor.
1. Wählen Sie den Bereich aus, in dem Sie die Werte basierend auf der Hintergrundfarbe ändern möchten, und drücken Sie dann Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > ModulKopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Ändern Sie den Wert basierend auf der Zellenfarbe 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. Drücken Sie die Taste F5 Wenn Sie die Taste drücken, um den Code auszuführen, sehen Sie, dass alle roten Zellen im ausgewählten Bereich mit der Nummer 1 und die blauen Zellen mit der Nummer 0 gefüllt sind (siehe Abbildung unten).
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!