我設定只可以輸入192 to 255.
Private Sub Text1_Change()
If Text1.Text = "" Then Exit Sub
If Not (Val(Text1.Text) ＜= 255 And Val(Text1.Text) ＞= 192) Then
MsgBox "Value must be ＞=192 and ＜=255"
End If
End Sub
當我輸入數字"192"時,先輸入"1"字,msgbox就會彈出,跟著輸入"9"字,msgbox會彈出,怎樣寫才會解決以上問題?
Private Sub Text1_Change()
If Text1.Text = "" Then Exit Sub
If Not (Val(Text1.Text) ＜= 255 And Val(Text1.Text) ＞= 192) Then
MsgBox "Value must be ＞=192 and ＜=255"
End If
End Sub
當我輸入數字"192"時,先輸入"1"字,msgbox就會彈出,跟著輸入"9"字,msgbox會彈出,怎樣寫才會解決以上問題?
請先 登入 以發表留言。