Как изменить цвет текстового поля в зависимости от значения в Excel?
В Excel мы можем применить функцию условного форматирования для изменения цвета фона в зависимости от значения ячейки, но в этой статье я расскажу о том, как изменить цвет текстового поля на основе значения ячейки или значения в текстовом поле.
Изменить цвет текстового поля на основе значения ячейки с кодом VBA
Изменить цвет текстового поля на основе значения в текстовом поле с кодом VBA
Изменить цвет текстового поля на основе значения ячейки с кодом VBA
Скажем, если значение ячейки в A1 больше, чем значение ячейки в B1, я хочу, чтобы текстовое поле было заполнено красным цветом, напротив, текстовое поле должно быть заполнено желтым цветом. Для выполнения этой работы выполните следующие действия:
1. Вставьте текстовое поле, нажав Застройщик > Вставить > Текстовое поле (элемент управления 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, цвет фона текстового поля станет зеленым, другие значения станут желтыми, как показано на следующем снимке экрана:
Статьи по теме:
Как вставить картинку в текстовое поле?
Как установить значение по умолчанию в текстовом поле?
Как разрешить ввод только чисел в текстовое поле?
Как применить проверку орфографии в текстовом поле?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!