Ярлык, связанный с значением текстового поля
Доброе утро, я редактирую пользовательскую форму в VBA Excel, и я хотел бы показать предупреждение, если пользователь введет определенное значение в текстовое поле. Я написал этот код:
If txtbox.Value < 0 Then lbl_Alert.Visible= True Else lbl_alert.Visible=False End IF Код работает правильно, но как только появится предупреждение, если я изменю значение в текстовом поле, оно не исчезнет. Какую строку следует добавить в мой скрипт, чтобы метка исчезла, когда я изменил значение текстового поля?
Спасибо!
- Зацикливание через файлы Txt с использованием проблемы VBA - DIR ()
- Excel VBA - получить слово с двойным щелчком в многострочном текстовом поле userform
- Как выбрать данные в TextBox или ListBox, а затем отправить электронную почту через Outlook на основе этих данных
- Ячейка, подключенная средствами управления, продолжает терять формулу
- Получение значения из текстового поля и сохранение его в переменной в VBA
- Значение по умолчанию для текстового поля VBA Userform и выделено
- Выделить текст в Userform TextBox
- Размер текста Excel / PowerPoint после сжатия
- Копирование / управление форматированным текстом в текстовых блоках в Excel 2013 с использованием VBA
- Получить значения для текстового поля из ячейки Excel в C #
- VBA Excel Укажите текущую дату в текстовом поле
- Текстовое поле Excel ActiveX - количество символов или регистр изменений
- Очистка строки, при выборе элемента в текстовом поле, из текстового поля и исходного листа
поместите свой код под событие textbox_change
Следующие работы отлично
Private Sub TextBox1_Change() If Me.TextBox1.Value < 0 Then Me.Label1.Visible = True Else Me.Label1.Visible = False End If End Sub
Сначала создайте суб (в свой модуль UserForm или в обычный модуль, но с Public объявлением), например:
Public Sub AlertDisplay() If UserForm1.txtbox.Value < 0 Then UserForm1.lbl_alert.Visible = True Else UserForm1.lbl_alert.Visible = False End If End Sub
И затем назовите этот sub в свой Private Sub TextBox_Change (дважды щелкните по этому текстовому Private Sub TextBox_Change , чтобы легко его получить), просто добавив строку: AlertDisplay