수다닷컴

1-9 를 0-9999로 하면됨

어래래 이상하네여~
1을 쓰면 돼는데 11을 쓰면 \숫자만 입력할수 있듬니다.\
13을써도 \숫자만입력할수있듭니다\

영어는 잘모르겠네요..ㅎ
숫자만 쓸수있게하는법은

Private Sub Text1_Change()
If Not Text1 Like \[1-7]\ Then
Text1 = vbNullString\
MsgBox \숫자만 입력할 수 있습니다.\
End If
End Sub

Private Sub Text1_Change()
if text1.text = \문자\ then
msgbox \정답\
else
msgbox \안대\
end sub

Private Sub Text1_Change()
If Not Text1 Like \[1-9]\ Then
elseif not text1.text like \[a-z]\ then
Text1 = vbNullString\
MsgBox \숫자만 입력할 수 있습니다.\
End If
End Sub