Как да променя цвета на раздела на листа въз основа на стойността на клетката?
Обикновено можете лесно и бързо да промените цвета на раздела в Excel, но опитвали ли сте някога да промените цвета на раздела въз основа на стойността на клетка в работен лист? Ако се интересувате от тази задача, ще говоря за някои кодове, за да оцветите раздела на листа въз основа на конкретна стойност на клетка в Excel.
Променете цвета на раздела на един лист въз основа на стойността на клетката с VBA код
Променете няколко раздела на листа въз основа на стойността на клетка с VBA код
Променете цвета на раздела на един лист въз основа на стойността на клетката с VBA код
Например, искам цветът на раздела на текущия лист да бъде зелен, ако стойността на клетката в A1 е текстът „TRUE“, цветът на раздела ще бъде червен, ако текстът в A1 е „FALSE“, а цветът на раздела ще бъде син, ако стойността в клетка A1 е всеки друг текст, както е показано на следната екранна снимка:
1. Щракнете с десния бутон върху раздела на листа, чийто цвят искате да промените въз основа на данните в клетка A1, и след това изберете Преглед на кода от контекстното меню.
2. В Microsoft Visual Basic за приложения прозорец, копирайте и поставете кода VBA по-долу в Модули прозорец.
VBA код: Променете цвета на раздела на един лист въз основа на стойността на клетката:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
Забележка: В горния код, A1 е препратката към клетката, въз основа на която искате да оцветите раздела, “Вярно","Фалшив” са текстът, от който се нуждаете, можете да ги промените според нуждите си и можете да промените цвета в кода според нуждите си.
3. След това запазете и затворете този прозорец с код, сега, когато въведете текста „Вярно“ в клетка A1, текущият цвят на раздела ще стане зелен, а когато въведете текста „Невярно“ в клетка A1, цветът на раздела ще стане червен, и ако в клетка A1 бъде въведен друг текст, цветът на раздела автоматично ще стане син.
Променете няколко раздела на листа въз основа на стойността на клетка с VBA код
Ако трябва да промените цвета на разделите на няколко листа въз основа на стойност на клетка, ето и код, който може да ви помогне, моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец, в отворения прозорец кликнете два пъти Тази работна книга под VBAProject раздел, след което копирайте и поставете кода по-долу в празното поле Модули:
VBA код: Променете няколко раздела на листа въз основа на стойността на клетката:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
Забележка: В горния код, A1 и Master са клетката и работния лист, въз основа на които искате да оцветите раздела, Sheet1, Sheet2, Sheet3 са работните листове, чиито раздели искате да оцветите. KTE, KTW, СЗО са стойностите на клетките в A1, въз основа на които искате да оцветите разделите, можете да промените препратките и цветовете в кода според нуждите.
2. След това запазете и затворете този прозорец с код, сега, когато въведете текста KTE в клетка A1 на основния лист, разделът Sheet1 ще бъде оцветен в червено, когато въведете KTO в клетка A1, Sheet2 ще бъде оцветен в зелено и когато въведете KTW в клетка A1, Sheet3 ще бъде оцветен в синьо, вижте екранната снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
