初始化userform类

时间:2012-05-09 19:34:27

标签: excel vba userform

我在excel中创建了一个用户窗体和几个按钮(在运行时将设置该编号)。单击时,每个按钮将打开其自己的userform版本(相同的用户窗体,但每个按钮将有自己的用户窗体,例如:button1将打开userform1,button2将打开userform2等,每个userform是相同的userform类)。

我想以某种方式创建一个userform类,每个按钮都会实例化一个userform对象。

我只是不确定实现此目的的正确代码/语法是什么。

1 个答案:

答案 0 :(得分:0)

根据你上次的评论,我认为这可能有所帮助。

只需创建一个用户表单。然后创建一个打开userform并使用参数化变量填充特定数据的函数。然后为每个按钮调用将变量传递给函数。像这样:

Private Sub Button1_Click()

load_user_form "Handy", "Code"

End Sub

Private Sub Button2_Click()

load_user_form "different", "data"

End Sub

Function load_user_form(strField1 as String, strField2 as String)

userForm.Show
userForm.TextBox1.Value = strField1
userForm.textBox2.value = strfield2
End Function

此代码可能不会出现,但它会让你到那里。