VBA Sub过程无法返回值编译错误排查求助

你的核心问题是搞混了VBA里Sub过程和Function过程的本质区别：Sub是没有返回值的过程，不能用来给变量赋值；只有Function过程才能返回值，当作“变量”一样赋值给其他变量。

咱们拆开来一步步解决：

1. 先看你的简单示例代码 #

你写的这段Sub代码：

Sub fIVe()
 Dim i As Integer
 i = 5
 fIVe = i
End Sub

编译错误的根源就是你试图给Sub过程名fIVe赋值——这完全不符合Sub的设计逻辑。要让它能返回值，必须改成Function：

Function fIVe() As Integer
    Dim i As Integer
    i = 5
    fIVe = i 'Function可以通过给自身赋值来返回结果
End Function

修改后，你就能正常调用它获取返回值了，比如：

Dim myNum As Integer
myNum = fIVe() 'myNum会被赋值为5

2. 再看你实际代码里的getClassification问题 #

你用了sClassification = getClassification("Activities")这种调用方式——这明显是把它当作“能返回值的函数”来用，但你却把它定义成了Sub过程，这就直接导致了编译错误。

只需要把Sub改成Function，并指定返回值的类型（这里是String），就能解决问题：

Public Function getClassification(sTabName As String) As String
    Dim sClassificationCode As String, sClassification As String
    'Step 1: Find Code for tab name
    sClassificationCode = Application.WorksheetFunction.Index(Sheets("Cover Master").Range("B7:B12"), _
    Application.WorksheetFunction.Match(sTabName, Sheets("Cover Master").Range("A7:A12"), 0), 1)
    'Step 2: Find definition in Type Definitions tab using code from above
    sClassification = Application.WorksheetFunction.Index(Sheets("Type Definitions").Range("F6:F21"), _
    Application.WorksheetFunction.Match(sClassificationCode, Sheets("Type Definitions").Range("E6:E21"), 0), 1)
    getClassification = sClassification '给Function名赋值，返回结果
End Function

修改后，原来的调用代码sClassification = getClassification("Activities")就能正常工作了，因为现在它是一个标准的返回字符串的Function。

补充说明：为什么VBA会识别名称还自动改大小写？ #

这是因为VBA的名称空间里已经存在getClassification这个名称了（你定义成Sub的时候已经注册了），所以它会自动帮你修正大小写，但这和语法正确性无关——Sub本身就不支持返回值，所以即便名称能被识别，语法上还是错误的。

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