Excel 365 Mac下VBA接口测试编译报错：Expected Function or variable

核心问题 #

你遇到的编译错误，根源是**ManMessage是Sub过程，而Debug.Print只能接收有返回值的表达式（如Function返回值、变量）**。Sub过程仅执行操作，不返回任何值，无法作为Debug.Print的参数。

两种解决思路 #

思路1：将Sub改为Function（需要返回消息内容时） #

如果你的需求是获取ManMessage的文本内容并打印，需要把接口中的ManMessage从Sub改为Function，类实现时同步修改：

1. 接口IHuman修改：

Public Function ManMessage() As String
Public Sub WomanMessage() ' 若WomanMessage不需要返回值可保留Sub

2. cMan类实现修改：

Private Function ManMessage() As String Implements IHuman.ManMessage
    ManMessage = "这里是男性消息内容"
End Function

3. Test模块调用：

Sub Test()
    Dim Man As cMan
    Set Man = New cMan
    Debug.Print Man.ManMessage ' 此时Function返回字符串，可正常打印
End Sub

思路2：直接调用Sub（仅执行操作时） #

如果ManMessage的作用是直接完成打印操作（不需要返回值），则去掉Debug.Print，直接调用Sub，并在类的Sub内部实现打印逻辑：

1. 接口IHuman保持原定义：

Public Sub ManMessage()
Public Sub WomanMessage()

2. cMan类实现：

Private Sub ManMessage() Implements IHuman.ManMessage
    Debug.Print "这里是男性消息内容" ' 把打印逻辑放在Sub内部
End Sub

3. Test模块调用：

Sub Test()
    Dim Man As cMan
    Set Man = New cMan
    Man.ManMessage ' 直接调用Sub，内部会执行打印
End Sub

额外注意事项 #

• VBA中实现接口时，类里的成员必须用Implements关键字关联接口成员，且访问修饰符需为Private（除非显式需要对外暴露）。
• 确保接口和类中的成员名称、参数列表完全匹配，否则会出现实现不完整的错误。

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