Как да променя цвета на формата въз основа на стойността на клетката в Excel?
Промяната на цвета на фигурата въз основа на конкретна стойност на клетка може да бъде интересна задача в Excel, например, ако стойността на клетката в A1 е по-малка от 100, цветът на фигурата е червен, ако A1 е по-голяма от 100 и по-малка от 200, цветът на фигурата е жълт, а когато A1 е по-голям от 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. И тогава, когато въведете стойността в клетка A1, цветът на формата ще бъде променен със стойността на клетката, както сте дефинирали.
Забележка: В горния код, A1 е стойността на клетката, въз основа на която цветът на вашата фигура ще бъде променен, и Овал 1 е името на формата на вашата вмъкната форма, можете да ги промените според вашите нужди.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!