我有一个带有模块和用户窗体的 VBA 项目。我想在我的用户表单中使用模块中的一些变量。
我是否有必要在全局声明这些变量?我不喜欢全局变量,因为它们在代码执行后保留在内存中,并且我必须在宏开始时一一重置这些变量。我无法使用关键字 End 从内存中清除变量,因为我需要记住其中一两个变量。人们通常怎么做?
编辑:有没有办法将变量从用户窗体传递到模块而不创建全局变量?
在用户窗体中创建一个公共属性,并使用该属性将变量传递到窗体中。用例只是类模块,只不过它们有一个用户界面组件。示例:在用户表单的代码模块中
Option Explicit
Private msLocalVar As String
Public Property Get LocalVar() As String
LocalVar = msLocalVar
End Property
Public Property Let LocalVar(sLocalVar As String)
msLocalVar = sLocalVar
End Property
Private Sub CommandButton1_Click()
Me.LocalVar = Me.LocalVar & " more strings attached"
Me.Hide
End Sub
在标准模块中
Sub ShowForm()
Dim sLocalVar As String
Dim ufUserForm1 As UserForm1
sLocalVar = "Some string"
Set ufUserForm1 = New UserForm1
ufUserForm1.LocalVar = sLocalVar 'pass in variable
ufUserForm1.Show
'This executes after the .Hide in the form
Debug.Print ufUserForm1.LocalVar
'Close out the form - previously just hidden
Unload ufUserForm1
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)