Note: The other languages of the website are Google-translated. Back to English

Як змінити колір вкладки аркуша на основі значення комірки?

Зазвичай ви можете легко і швидко змінити колір вкладки в Excel, але чи намагались ви коли-небудь змінювати колір вкладки на основі значення комірки на аркуші? Якщо вас цікавить це завдання, я розповім про деякі коди для того, щоб розфарбувати вкладку аркуша на основі певного значення комірки в Excel.

Змініть колір вкладки одного аркуша на основі значення комірки за допомогою коду VBA

Змінюйте кілька вкладок аркуша на основі значення комірки за допомогою коду VBA


стрілка синя права міхур Змініть колір вкладки одного аркуша на основі значення комірки за допомогою коду VBA

Наприклад, я хочу, щоб поточний колір вкладки аркуша був зеленим, якщо значенням клітинки в А1 є текст "TRUE", кольором вкладки буде червоний, якщо текст у A1 "FALSE", а кольором вкладки буде синій, якщо значення в комірці A1 - це будь-який інший текст, як показано на наступному знімку екрана:

doc кольоровий аркуш за значенням 1

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

doc кольоровий аркуш за значенням 2

Примітка: У наведеному вище коді 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

doc кольоровий аркуш за значенням 3

Примітка: У наведеному вище коді A1 і Master - це комірка та робочий аркуш, на яких ви хочете забарвити вкладку, Sheet1, Sheet2, Sheet3 - це аркуші, на яких потрібно забарвити вкладки. КТЕ, KTW, KTO - це значення комірок в А1, на основі яких ви хочете розфарбувати вкладки, ви можете змінювати посилання та кольори в коді, як вам потрібно.

2. Потім збережіть і закрийте це вікно коду, тепер, коли ви вводите текст KTE в комірку A1 головного аркуша, вкладка Sheet1 буде забарвлена ​​червоним кольором, коли ви введете KTO в комірку A1, Sheet2 буде забарвлений зеленим кольором, а коли ви введете KTW в комірку A1, Sheet3 буде забарвлений у синій колір, див. знімок екрана:

doc кольоровий аркуш за значенням 4


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці