VBA执行调用自定义函数的子过程时触发Type Mismatch错误

错误根因 #

报错并非出在SetColumn函数返回值与接收变量的类型匹配环节，核心问题有两处：

1. MsgBox拼接逻辑错误：VBA中+运算符存在二义性：两侧均为字符串时执行拼接，任意一侧为数值类型时会优先尝试算术加法，无法将字符串转为数值时就会抛出类型不匹配错误。你的代码中MsgBox "intColumn: " + intColumn行，intColumn是Integer类型数值，VBA会尝试把"intColumn: "转为数值和1做加法，转换必然失败触发报错。第一个MsgBox能正常运行是因为两侧均为字符串，刚好触发了拼接逻辑。
2. 函数分支缺失兜底：SetColumn函数仅判断了1月、2月的返回值，传入其他月份时会默认返回Integer类型初始值0，存在逻辑隐患。

提示：因为报错触发位置紧邻intColumn = SetColumn(strMonth)行，很容易误判为函数返回值类型异常。

修复方案 #

• 所有字符串拼接场景统一使用VBA专用拼接运算符&，彻底规避+的二义性问题
• 给SetColumn函数补全分支兜底逻辑，避免无返回值的异常情况
• 读取单元格值时显式指定.Value属性，避免隐式读取其他单元格属性带来的异常

修复后完整代码 #

Function SetColumn(strMonth As String) As Integer
    Select Case strMonth
        Case "January"
            SetColumn = 1
        Case "February"
            SetColumn = 2
        ' 可按业务需求补充其余月份分支
        Case Else
            ' 兜底返回0代表无效月份，可按需调整
            SetColumn = 0
    End Select
End Function

Sub ReturnColumn()
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim intColumn As Integer
    Dim strMonth As String
    
    strMonth = ws.Range("A1").Value
    
    MsgBox "strMonth: " & strMonth
    
    intColumn = SetColumn(strMonth)

    MsgBox "intColumn: " & intColumn
End Sub

效果验证 #

当活动工作表A1单元格值为January时，代码会依次弹出两个提示框：

• 第一个提示框内容：strMonth: January
• 第二个提示框内容：intColumn: 1
  不会再触发类型不匹配报错。

注意：VBA开发中做字符串拼接请始终使用&，不要使用+，避免触发隐式类型转换导致的异常。

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