如何於text1.text只能輸入正偶數

Question

如何於text1.text只能輸入正偶數,若輸入其他字元,例如英文..或其他
非正偶數的數值,會有一msgbox"請重新輸入正確值"來顯示提示

Answer 1

用Validate事件
(或者用Losefocus事件)
建議用Validate
Private Sub Text1_Validate(Cancel As Boolean)
'數字檢驗
If IsNumeric(Text1.Text) = False Then
Call MsgBox("請重新輸入正確值", vbCritical)
Cancel = True
Exit Sub
End If

'正數檢驗
If Val(Text1.Text) <= 0 Then
Call MsgBox("請重新輸入正確值", vbCritical)
Cancel = True
Exit Sub
End If

'整數檢驗
If Val(Text1.Text) <> Int(Val(Text1.Text)) Then
Call MsgBox("請重新輸入正確值", vbCritical)
Cancel = True
Exit Sub
End If

'偶數檢驗
If Val(Text1.Text) Mod 2 <> 0 Then
Call MsgBox("請重新輸入正確值", vbCritical)
Cancel = True
Exit Sub
End If
End Sub

2007-07-17 07:56:31 補充：
不客氣 ^ ^

Answer 2

IF VAL(TEXT1.TEXT) <0 OR VAL(TEXT1.TEXT) MOD 2< > 0 THEN MSGBOX ("請重新輸入") ENDIF

這個方法最快

VAL(TEXT1.TEXT) < 0 是在判斷說是否為正數(我是打<0，因為如果要顯示重新輸入的方塊，必需判斷是否小於0)

至於後面那個VAL(TEXT1.TEXT) MOD 2< > 0是說如果用2除不盡一定是單數嘛！

兩個只要其中一個成立就顯示重新輸入的方塊

Answer 3

感謝您的回答!^_^