如何於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

感謝您的回答!^_^