请教InputBox函数输入问题，如何控制用户输入的是数字？在线等，急

[ajianchen2002]

请教InputBox函数输入问题，如何控制用户输入的是数字？
包含小数，请教各位大哥赐教
非常感谢

[ajianchen2002]

还有在使用InputBox时，为什么在弹出的对话框中，单击 取消 按纽程序总是提示错误，类型不匹配 ，请教高手这是什么原因，怎么解决？
谢谢

[kxyzjm]

Private Sub Command1_Click()
ks:
If IsNumeric(InputBox("请输入数字", "输入窗口")) Then
MsgBox "你输入的正确", vbOKOnly, "程序提示"
Else
MsgBox "你输入的不正确", vbOKOnly, "程序提示"
GoTo ks
End If
End Sub

[ryuginka]

我的建议:
最好自己做个输入窗口,可以好好控制,
对于你说的报错,可以加上ON ERROR GOTO YUJU 屏蔽
on error goto aa
..............
exit sub
aa:
msgbox "请输入!"
exit sub

[kxyzjm]

InputBox函数返回的是字符串，在按取消时，返回的是“ ”，

[szmickylee]

为什么不做一个class呢？？

[starsoulxp]

Private Sub Command1_Click()
ks:
If IsNumeric(InputBox("请输入数字", "输入窗口")) Then
MsgBox "你输入的正确", vbOKOnly, "程序提示"
Else
MsgBox "你输入的不正确", vbOKOnly, "程序提示"
GoTo ks
End If
End Sub

[zcm123]

赞同楼上的
Private Sub Command1_Click()
ks:
If IsNumeric(InputBox("请输入数字", "输入窗口")) Then
MsgBox "你输入的正确", vbOKOnly, "程序提示"
Else
MsgBox "你输入的不正确", vbOKOnly, "程序提示"
GoTo ks
End If
End Sub

[tommychim]

Private Sub Command1_Click()
Dim s As String

Do
s = InputBox("请输入数字", "输入")
If s = "" Then Exit Sub
Loop While Not IsNumeric(s)

'继续处理
End Sub

[of123]

不如做一个窗体，用TextBox 的 KeyPress 事件来控制，只让数字键生效。

Private Sub Text1_KeyPress(Keyascii As Integer)
Keyascii = Digit_Only(Keyascii)
End Sub

Public Function Digit_Only(x As Integer) As Integer
Select Case x
Case &H30 To &H39
Digit_Only = x
End Select
End Function

[szmickylee]

刚才我就是这么想的。和楼上的of123 一样。