Як змінити колір текстового поля на основі значення в Excel?

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

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

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

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

Скажімо, якщо значення комірки в А1 більше, ніж значення комірки в В1, я хочу, щоб текстове поле було заповнене червоним кольором, навпаки, текстове поле повинно бути заповнене жовтим кольором. Будь ласка, виконайте цю роботу, виконавши такі дії:

1. Вставте текстове поле, клацнувши Розробник > Insert > Текстове поле (керування ActiveX), а потім намалюйте текстове поле, див. знімок екрана:

2. Потім клацніть правою кнопкою миші текстове поле та виберіть Переглянути код з контекстного меню, щоб відкрити Microsoft Visual Basic для додатків вікно, а потім замініть оригінальний код таким кодом VBA у порожній модуль:

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

Private Sub TextBox1_Change()
    If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
        Me.TextBox1.BackColor = vbRed
    Else
        Me.TextBox1.BackColor = vbYellow
    End If
End Sub

примітки: У наведеному вище коді, TextBox1 це назва текстового поля, яке ви вставили, A1 та B1 - це дві клітинки, на яких ви хочете змінити колір текстового поля, змініть їх відповідно до ваших потреб.

3. Потім збережіть і закрийте вікно коду та вийдіть з Режим дизайну, тепер, якщо клітинка A1 більше B1, при введенні тексту в текстове поле він буде заповнений червоним кольором, а якщо A1 менше B1, то при введенні значення в текстове поле він буде заповнений жовтим кольором, див. скріншот:

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

Якщо ви хочете змінити колір текстового поля на основі значення в текстовому полі, наприклад, коли значення в текстовому полі становить від 1 до 10, кольором заповненого текстового поля є червоний, кольором текстового поля є зелений, якщо значення між 11 і 20, якщо є інші значення, колір текстового поля жовтий. Щоб вирішити це завдання, застосуйте наведений нижче код VBA.

1. Вставивши текстове поле, клацніть правою кнопкою миші та виберіть Переглянути код з контекстного меню, щоб відкрити Microsoft Visual Basic для додатків вікно, а потім замініть оригінальний код таким кодом VBA у порожній модуль:

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

Private Sub TextBox1_Change()
    On Error Resume Next
    Select Case TextBox1.Value
        Case 1 To 10:
            TextBox1.BackColor = vbRed
        Case 11 To 20:
            TextBox1.BackColor = vbGreen
        Case Else:
            TextBox1.BackColor = vbYellow
    End Select
End Sub

примітки: У наведеному вище коді, Текстове поле1 - це назва вставленого текстового поля, і ви можете змінити значення та колір тла в коді на свій власний.

2. Потім збережіть і закрийте вікно коду та вийдіть з Режим дизайну, тепер, якщо ви введете значення від 1 до 10 у текстове поле, колір його фону стане червоним, значення від 11 до 20, колір фону текстового поля стане зеленим, інші значення, він стане жовтим, як показано на наступному скріншоті:

Статті по темі:

Як вставити малюнок у текстове поле?

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

Як дозволити вводити в текстове поле лише цифри?

Як застосувати перевірку правопису в текстовому полі?