过程声明与同名事件或过程的描述不匹配
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii
Case 48 To 57
Exit Sub
Case Else
KeyAscii = 0
End Select

End Sub

这段话在excel vba里面没有问题，为何拷贝到vb里面就报错这个了呢？谢谢
[最优解释]
ByVal KeyAscii As Integer
[其他解释]
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

改为

Private Sub TextBox2_KeyPress(ByVal KeyAscii As Integer)


[其他解释]
应该是你复制了过去 本身本来就有这个事件，所以重复了？ 又或者是你应该在textbox2那里选择事件，再在事件里加上代码，而不是单纯的整个过程复制过去
[其他解释]

引用:

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

改为

Private Sub TextBox2_KeyPress(ByVal KeyAscii As Integer)

还是报这个错。。。
[其他解释]

引用:

应该是你复制了过去 本身本来就有这个事件，所以重复了？ 又或者是你应该在textbox2那里选择事件，再在事件里加上代码，而不是单纯的整个过程复制过去

解决了，ByVal去掉就可以了，嘿嘿