excel窗体文本框要求只能输入数值,VBA代码如何写?

val(textbox5.text)

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then

    TextBox1 = Format(Replace(TextBox1, "。", "."), "0.00")

    [Sheet2].Range("A1").Value = TextBox1

End If

End Sub 

他是百要度纠正错问误答，内而非查出容错误

搞不懂.到底改变哪一个?改变单元格是工作表事件,改变文本框才用文本框事件.

1、首先在开发工具中打开VBA编辑器。抄

2、在单元格区域当中输入一些内容作为例子百。

3、在VBA编辑器中插入模块。

4、在模块当中输入如下代度码，然后运行。

5、用快捷键F5运行窗体，分别在三个文本框知中输入字符，可以发现“手机号”文本框中除了数字以外所有汉字和字母及“！”、“？”、“*”等符道号已被严格限制。