用户窗体全局变量值无法传递至子程序问题排查

核心问题是变量作用域不匹配：

• 模块中用Dim monthYearEntered As String声明的是模块级私有变量，仅在当前模块内有效。
• 用户窗体代码未声明monthYearEntered且未指定作用域，导致窗体自动创建了同名的窗体级变量，和模块里的变量是两个独立存储单元。窗体里赋值的是自身变量，DeleteMonth子程序访问的是模块自己的变量，自然拿不到正确值。

方案1：将变量声明为全局变量 #

修改模块中的变量声明，把Dim改成Public，让变量在整个VBA工程中可见：

Option Explicit
Public monthYearEntered As String ' 改为Public，全局可见

同时在用户窗体代码顶部添加Option Explicit，避免隐式变量声明：

Option Explicit

Private Sub CBN_OK_Click()
    If YearMonthField.Value = "" Then
        MsgBox "Value cannot be blank. Please enter correct value."
        Exit Sub
    Else
        monthYearEntered = YearMonthField.Value ' 现在访问的是全局变量
        MsgBox monthYearEntered
        Me.Hide
        DeleteMonth ' 直接调用子程序，无需Application.Run
    End If
End Sub

方案2：明确指定变量的模块作用域（不使用全局变量） #

如果不想用全局变量，可保留模块级Dim声明，在窗体代码中明确引用模块的变量（假设模块名为Module1）：

Option Explicit

Private Sub CBN_OK_Click()
    If YearMonthField.Value = "" Then
        MsgBox "Value cannot be blank. Please enter correct value."
        Exit Sub
    Else
        Module1.monthYearEntered = YearMonthField.Value ' 明确指定模块的变量
        MsgBox Module1.monthYearEntered
        Me.Hide
        Module1.DeleteMonth ' 明确调用模块的子程序
    End If
End Sub

额外优化建议 #

• 避免使用Application.Run调用同一工程内的子程序，直接调用名称即可，代码更简洁易维护。
• 窗体Show方法默认是模态（vbModal），你的场景下模态更合适，无需修改。
• 在DeleteMonth子程序中，建议先判断monthYearEntered是否为空，避免无效查找。

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