Question

VBA的On Error GoTo语句无效，仍然提示“运行时错误‘13’：类型不匹配”。

Answer 1

iinputbox输入的是文本字符串，要用函数val()转换成aa的类型integer 。至于提示，ON ERROR语句要放在可能出现错误的前面而不是后面。系统执行到INPUTBOX这一行时，即已产生错误，因而后面的ON ERROR语句是不会执行的。

Answer 2

on error goto 要放在可能发生错误的语句前面的。
还有vba 中变量不能定义类型的。
就这样：dim aa

Answer 3

最好给出源程序哦

追问

Sub a()
Dim aa As Integer
aaa:
aa = inputbox("输入aa的值")
On Error Goto aaa
End Sub