VBA：无法将函数的返回值分配给变量[重复]

Question

我的一张工作表中有以下 VBA 代码（即不在模块中）：

Option Explicit

Public timing As String

Sub ButtonLoan1_Click()

    timing = check_timing()
    Application.Run ("loan_" & timing & "_req01")

End Sub

函数check_timing在模块中定义并正常工作：

Function check_timing()
    
    If ActiveSheet.Range("B5") = "Q1 and Q3" Then
        timing = "q1q3"
    ElseIf ActiveSheet.Range("B5") = "Q2 and Q4" Then
        timing = "q2q4"
    End If
    
    Exit Function

End Function

但是，运行 ButtonLoan1_Click() Sub 会返回错误，因为变量 timing 是空的，即它没有像我希望的那样从函数 check_timing 获取它的值。我做错了什么？

Answer 1

我的猜测是你应该使用check_timing 而不是timing 所以VBA 知道这是函数返回给之前调用它的人的内容。

Function check_timing()
    
    If ActiveSheet.Range("B5") = "Q1 and Q3" Then
        check_timing = "q1q3"
    ElseIf ActiveSheet.Range("B5") = "Q2 and Q4" Then
        check_timing = "q2q4"
    End If
    
    Exit Function

End Function