全,
我很难将输入变量从userform传递给模块/sub。我搜索了表格,但找不到匹配的例子。
例如。
表单1:两个输入字段,名为 TextBoxA 和 TextBoxB 和1 Submit按钮。模块1:我想使用TextBoxA和TextBoxB输入变量的一些代码。
用户形式的代码:
Private Sub CommandButton1_Click()
pass = myuserform.TextBoxA
End Sub能为我指明正确方向的人。非常感谢。
发布于 2017-10-04 07:36:53
设置一个方法,该方法接受标准模块中的两个参数,并将TextBox值作为参数传递:
Public Sub TestMethod(ByVal param1 As Variant, ByVal param2 As Variant)
MsgBox "You passed: " & param1 & " and " & param2
End Sub然后,只需在按钮的Click事件中调用该方法:
Private Sub CommandButton1_Click()
TestMethod myuserform.TextBoxA.Value, myuserform.TextBoxB.Value
End Subhttps://stackoverflow.com/questions/46558318
复制相似问题