与文本框值链接的标签

早上好，我正在编辑VBA Excel上的用户窗体，如果用户在文本框中插入某个值，我想显示警报。我写了这个代码：与文本框值链接的标签

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

代码工作正常，但一旦如果我更改文本框中的值出现在戒备它不会消失。当我更改文本框的值时，应该将哪些字符串添加到脚本中以使标签消失？

谢谢！

来源

2015-06-15 Magnicco

把你的代码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

来源

2015-06-15 10:42:12 cyboashu

首先创建一个子（到您的用户窗体模块，或在常规模块，但与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（双击在该文本框可以轻松地访问它），只是ADDI ng line：AlertDisplay

来源

2015-06-15 12:02:40 R3uK

与文本框值链接的标签

回答

相关问题