Як змінити колір вкладки аркуша на основі значення комірки?
Зазвичай ви можете легко і швидко змінити колір вкладки в Excel, але чи намагались ви коли-небудь змінювати колір вкладки на основі значення комірки на аркуші? Якщо вас цікавить це завдання, я розповім про деякі коди для того, щоб розфарбувати вкладку аркуша на основі певного значення комірки в Excel.
Змініть колір вкладки одного аркуша на основі значення комірки за допомогою коду VBA
Змінюйте кілька вкладок аркуша на основі значення комірки за допомогою коду VBA
Змініть колір вкладки одного аркуша на основі значення комірки за допомогою коду VBA
Наприклад, я хочу, щоб поточний колір вкладки аркуша був зеленим, якщо значенням клітинки в А1 є текст "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. Потім збережіть і закрийте це вікно коду, тепер, коли ви введете текст «True» у комірку A1, поточний колір вкладки стане зеленим, а коли ви введете текст «False» у комірку A1, колір вкладки стане червоним, а якщо в комірку А1 буде введено інший текст, колір вкладки автоматично стане синім.
Змінюйте кілька вкладок аркуша на основі значення комірки за допомогою коду VBA
Якщо вам потрібно змінити колір декількох вкладки аркуша на основі значення комірки, ось також код може вам допомогти, будь ласка, зробіть наступне:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків у відкритому вікні двічі клацніть ThisWorkbook під 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 - це аркуші, на яких потрібно забарвити вкладки. КТЕ, KTW, KTO - це значення комірок в А1, на основі яких ви хочете розфарбувати вкладки, ви можете змінювати посилання та кольори в коді, як вам потрібно.
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% та зменшує сотні клацань миші для вас щодня!
