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

Зазвичай ви можете легко і швидко змінити колір вкладки в 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 буде забарвлений у синій колір, див. знімок екрана: