VBA Input函数运行时出现类型不匹配错误求助

核心错误点 #

• 类型不匹配根源：psales被声明为Integer类型，但InputBox返回的是字符串类型，直接赋值会触发类型不匹配错误（比如输入小数、非数字字符时）。
• StrPtr使用错误：StrPtr()需要传入字符串变量，而psales是Integer，导致取消按钮的判断逻辑失效。
• Val函数未生效：Val(psales)仅计算了值，但没有赋值回变量，属于无效操作。
• 数值判断逻辑颠倒：先把值写入单元格再判断是否为数字，逻辑顺序错误，应该先验证输入合法性再写入。

修正后的代码 #

Sub Profit_Projection()
    Dim psales As String ' 先以字符串接收输入，避免类型不匹配
    Dim inputNum As Double ' 存储转换后的数值（支持小数）
    Dim msg1 As String
    
    ' 接收用户输入
    psales = InputBox("请输入下月销售额预测增长率（小数形式）", "销售额增长率", "1")
    
    ' 判断是否点击取消按钮
    If StrPtr(psales) = 0 Then
        MsgBox "你点击了取消按钮"
        Exit Sub
    ' 判断是否为空输入
    ElseIf psales = "" Then
        MsgBox "你未输入任何内容"
        Exit Sub
    End If
    
    ' 验证输入是否为有效数字
    If IsNumeric(psales) Then
        inputNum = CDbl(psales)
        ' 将转换后的数值乘以100写入单元格
        Range("B5").Value = inputNum * 100
    Else
        msg1 = "输入的不是有效数字，请以小数形式重新输入。"
        MsgBox msg1, vbOKOnly, "输入错误"
    End If
End Sub

关键修改说明 #

• 将psales改为String类型，先接收输入内容，避免直接赋值给数值类型导致的类型不匹配。
• 使用IsNumeric()先验证输入是否为有效数字，再转换为Double类型处理（支持小数输入场景）。
• 调整逻辑顺序：先验证输入合法性，再写入单元格，避免无效值写入后再判断的冗余操作。
• 修正取消按钮的判断逻辑，StrPtr()搭配字符串变量才能正确识别取消操作。

内容的提问来源于stack exchange，提问作者winner261