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 Sub3. 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.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
