Як змінити значення на основі кольору комірки в Excel?
У цій статті йдеться про автоматичне змінення значення комірки на основі кольору тла в Excel. Наприклад, якщо комірки заповнюються виділеним кольором червоного фону, то заповніть ці клітинки цифрою 1, а для клітинок синього кольору фону - 0.
Змінити значення на основі кольору комірки за допомогою коду VBA
Змінити значення на основі кольору комірки за допомогою коду VBA
Ви можете запустити наведений нижче код VBA, щоб змінити значення на основі кольору комірки в Excel. Будь ласка, виконайте наступне.
1. Виберіть діапазон, який вам потрібно змінити на основі кольору фону, а потім натисніть інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте та вставте наведений нижче код VBA у вікно модуля.
Код VBA: змініть значення на основі кольору комірки в 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 Натисніть кнопку F5 клавішу для запуску коду, тоді ви зможете побачити, що всі еритроцити у вибраному діапазоні заповнені цифрою 1, а сині клітинки - цифрою 0, як показано на знімку екрана нижче.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
