在 VBA 中,我需要一个模块 sub 来告诉实例设置一些变量。
在模块 1 中我有:
Sub Load()
ThisWorkbook.SetupVariables
ThisWorkbook.TestVariables
End Sub
在本工作簿中我有:
Private Variable1 As Integer
Private Variable2 As String
Private Variable3 As MyUserDefinedObjectType
Public Sub SetupVariables()
Variable1 = 5
Variable2 = "Five"
Set Variable3 = New MyUserDefinedObjectType()
End Sub
Sub TestVariables()
MsgBox Variable1 & " is spelled " & Variable2
Variable3.SomeFunction
End Sub
在 Load() 内对 TestVariables 的调用会产生正确的结果,但对 TestVariables 的后续调用会失败。如何使 Variable1 和 Variable2 保持其值? (在我的现实情况中,这些变量是我定义的对象,不能成为公共变量。)
事件顺序:
Load
存储在Module1
并与表单按钮相关联Worksheet1
。这是首先按下的。
随后,ActiveX 控件Worksheet2
tells ThisWorkbook
打电话TestVariables
.
正如你所拥有的那样,它对我有用。为 Variable1 创建一个监视(视图 - 监视窗口)并选择“值更改时中断”。您应该能够看到它何时变为零。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)