Jak zmienić wartość na podstawie koloru komórki w programie Excel?

W tym artykule mowa o automatycznej zmianie wartości komórki na podstawie jej koloru tła w programie Excel. Na przykład, jeśli zaznaczone komórki wypełniają się czerwonym kolorem tła, wypełnij te komórki liczbą 1, a dla komórek z niebieskim tłem - liczbą 0.

Zmień wartość na podstawie koloru komórki za pomocą kodu VBA

Zmień wartość na podstawie koloru komórki za pomocą kodu VBA

Możesz uruchomić poniższy kod VBA, aby zmienić wartość na podstawie koloru komórki w programie Excel. Wykonaj następujące czynności.

1. Wybierz zakres, w którym chcesz zmienić wartości w oparciu o kolor tła, a następnie naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj i wklej poniższy kod VBA do okna modułu.

Kod VBA: Zmień wartość na podstawie koloru komórki w programie 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. wciśnij F5 Aby uruchomić kod, możesz zobaczyć, że wszystkie czerwone komórki w wybranym zakresie są wypełnione numerem 1, a niebieskie komórki są wypełnione numerem 0, jak pokazano poniżej.