[發問] TextBox如何限制輸入範圍(程式碼更改)

liebe

各位大大們好!

請問該如何設定TextBox，才能限制輸入範圍
目前只能限制讓他輸入數值而已，
想要限制範圍為:  21<=TextBox<161
不知道該如何設定才能當它的超過限制範圍時，會出現錯誤訊息呢?
感謝大家!

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
        MsgBox "Please enter the value!"
End Sub

Hsieh

回復 1# liebe

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. If KeyCode = 13 Then '按下Enter鍵為輸入完成
   
3.    If TextBox1 < 21 Or TextBox1 >= 161 Then MsgBox "超出範圍" '判斷數值範圍
   
4. End If
   
5. End Sub

複製代碼