Як змінити колір фігури на основі значення комірки в Excel?
Змінити колір фігури на основі конкретного значення комірки може бути цікавим завданням у Excel, наприклад, якщо значення комірки в А1 менше 100, колір фігури - червоний, якщо А1 більше 100 і менше 200, колір фігури - жовтий, а коли А1 більше 200, колір фігури - зелений, як показано на наступному знімку екрана. Щоб змінити колір фігури на основі значення клітинки, ця стаття представить метод для вас.
Змінюйте колір фігури на основі значення комірки за допомогою коду VBA
Змінюйте колір фігури на основі значення комірки за допомогою коду VBA
Нижче наведений код VBA може допомогти вам змінити колір фігури на основі значення клітинки. Будь ласка, виконайте такі дії:
1. Клацніть правою кнопкою миші вкладку аркуша, для якої потрібно змінити колір фігури, а потім виберіть Переглянути код з контекстного меню, що з’явиться Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наступний код у порожнє Модулі вікна.
Код VBA: Зміна кольору фігури на основі значення комірки:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
2. А потім, коли ви вводите значення в клітинку А1, колір фігури буде змінено відповідно до значення комірки, як ви визначили.
примітки: У наведеному вище коді, A1 - це значення клітинки, на якому буде змінено колір вашої фігури, і Овальний 1 - це назва фігури, яку ви вставили, ви можете змінити їх відповідно до своїх потреб.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!