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（进入你的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

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

标签链接到文本框值

2 个答案: