将变量从表单代码传递到模块代码

Question

我在将表格代码中的变量传递给模块代码时遇到了问题。这是表格代码：

Public Sub Update()

Dim plan As String

plan = "PlanB"

'Code stuff here

Call LookForManualData(plan)

'Code stuff here

End Sub

这是模块：

Public Sub LookForManualData(plan As String)

'Code stuff here

MsgBox plan

'Code stuff here

End Sub

请注意，代码已简化，不相关的部分将被排除在外。此外，我已经尝试将计划定义为变量的可能性很大，尽管必须有一些东西没有出现在我的脑海中。基本的想法是让模块知道什么计划能够使用它，因为它现在是空的。

Answer 1

要传递变量值并按照您的要求在任何模块中声明变量：

Option Explicit
Public plan As String '~~> at the very top of the module outside any sub

Public Sub Anysub()
'~~> any code
End Sub

然后，您可以根据需要在任何工作表代码中进行设置，然后在任何子代码中调用它。