过程声明与同名事件或过程的描述不匹配

Question

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)Select Case KeyAscii
    Case 48 To 57
        Exit Sub
    Case Else
        KeyAscii = 0
End SelectEnd Sub这段话在excel vba里面没有问题，为何拷贝到vb里面就报错这个了呢？谢谢

Answer 1

ByVal KeyAscii As Integer

Answer 2

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
改为Private Sub TextBox2_KeyPress(ByVal KeyAscii As Integer)
 

Answer 3

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

Answer 4

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