链接到文本框值的标签

Question

早上好，我正在 VBA Excel 上编辑用户表单，如果用户在文本框中插入特定值，我想显示一个警告。我写了这段代码：

If txtbox.Value < 0 Then
lbl_Alert.Visible= True
Else
lbl_alert.Visible=False
End IF

代码工作正常，但如果我更改文本框中的值，一旦出现警告，它就不会消失。我应该在我的脚本中添加什么字符串才能让标签在我更改文本框值时消失？

谢谢！

Answer 1

将您的代码放在 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

Answer 2

首先创建一个 sub（到您的用户窗体模块中，或在常规模块中但带有 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

然后将该子调用到您的 Private Sub TextBox_Change（双击该文本框即可轻松访问），只需添加一行：AlertDisplay

链接到文本框值的标签

Label linked to a text box value

excel

vba

label

textbox