过程声明与同名事件或过程的描述不匹配
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那里选择事件,再在事件里加上代码,而不是单纯的整个过程复制过去