VBA无法将自定义函数返回值赋值给变量问题求助

问题核心原因 #

1. VBA函数返回值规则错误：VBA中函数需要将返回值赋值给函数自身名称才能向外返回结果，你当前的check_timing函数中仅对内部临时变量timing赋值，没有给check_timing本身赋值，因此函数永远返回空值。
2. 变量作用域冲突：你在工作表模块声明的Public timing是工作表级公共变量，而check_timing函数内部未声明timing的前提下，会自动生成一个函数内的局部变量timing，两者完全独立不互通，哪怕直接读取全局变量也无法拿到预期值。
3. 缺少兜底判断：如果ActiveSheet.Range("B5")的值不属于你判断的两个选项，函数也会返回空，后续Application.Run拼接字符串时必然报错。

修正方案 #

第一步：修改模块中的check_timing函数

' 显式声明返回值类型更规范，避免隐式类型转换问题
Function check_timing() As String
    ' 建议替换ActiveSheet为明确的工作表名称，比如Sheets("数据填写页")，避免切换工作表后取值错误
    Select Case ActiveSheet.Range("B5").Value
        Case "Q1 and Q3"
            check_timing = "q1q3" ' 给函数名赋值，才会向外返回结果
        Case "Q2 and Q4"
            check_timing = "q2q4"
        Case Else
            MsgBox "B5单元格取值不符合要求，请检查后重试！"
            End ' 匹配失败直接终止程序，避免后续报错
    End Select
End Function

第二步：简化工作表中的点击事件代码

不需要单独声明公共变量存储timing，用局部变量接收返回值即可，避免命名冲突：

Option Explicit

Sub ButtonLoan1_Click()
    Dim timing As String
    timing = check_timing()
    ' 非空才执行调用，增加鲁棒性
    If timing <> "" Then
        Application.Run "loan_" & timing & "_req01"
    End If
End Sub

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