VBA Excel“错误 13：类型不匹配”

VBA Excel中的"错误 13：类型不匹配"是一种常见的错误类型，它表示在程序执行期间，出现了数据类型不匹配的情况。这意味着程序尝试将不兼容的数据类型进行操作或赋值，导致出错。

vba
Sub TypeMismatchErrorExample()
    Dim strValue As String
    Dim intValue As Integer
    ' 将一个字符串赋值给整数变量
    strValue = "123"
    intValue = strValue  ' 这里会引发"错误 13：类型不匹配"错误
    ' 处理错误
    On Error GoTo ErrorHandler
    intValue = CInt(strValue)  ' 使用CInt函数将字符串转换为整数
    ' 输出结果
    MsgBox "转换后的整数值为: " & intValue
    Exit Sub
ErrorHandler:
    ' 处理"错误 13：类型不匹配"错误
    MsgBox "发生了类型不匹配的错误，请输入一个有效的整数值。"
End Sub