與文本框值鏈接的標籤

早上好，我正在編輯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

與文本框值鏈接的標籤

回答

相關問題