我在Excel中创建了一个用户窗体和几个按钮(该数字将在运行时设置)。 单击时,每个按钮将打开自己的用户窗体版本(相同的用户窗体,但每个按钮将具有自己的用户窗体,例如:button1将打开userform1,button2将打开userform2,依此类推,每个用户窗体都是相同的userform类)。

我正在考虑以某种方式创建一个userform类,每个按钮将实例化一个userform对象。

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

#1楼 票数:0 已采纳

根据您的最新评论,我认为这可能会有所帮助。

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

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

该代码可能不存在,但是可以带您到那里。

  ask by Ehudz translate from so

未解决问题?本站智能推荐:

1回复

多次初始化用户窗体

对于一个我正在从事的项目,我正在编写一个UserForm,以通过向使用表格的人询问某些数据来填写Excel文件。 多组需要相同数据的数据。 因此,我希望多次弹出一个UserForm来填充Excel文件中不同位置的数据。 以下是我要让程序执行的简短分步指南: 询问数据集的数量( i
1回复

错误1004初始化用户窗体对象?

我不知道为什么此行会引发“错误1004:应用程序定义或对象定义的错误”? 有人可以帮忙吗? 对象“ CombQTY”是用户窗体“ MASTER”中的组合框。 我正在尝试使用范围“ QTY_range”(大小为一列中的31行数字= 0、1、2、3,.. 30)填充此组合框的下拉菜单。
1回复

通过命令VBA.Userform.Add(“ UF”)加载时重新初始化用户窗体

我陷入了VBA编码问题。 有两种名为“ UsersForm”和“ Registration”的用户窗体。 在“ UsersForm”中,有一个名为CreateProfile的命令按钮,单击它应该显示“ Registration”表单。 为此,已在一个模块中编写了一个名为“ Show
2回复

用户表单初始化检查然后关闭

我有一个用户表格。 这个想法是要检查“管理”表中第(15)列中是否有任何“真”值。 如果至少有一个“ True”值,则用户窗体将保持打开状态并继续其操作。 但是,如果找不到单个“ True”,则用户窗体将显示一条消息并自动关闭用户窗体。 用户窗体上的所有内容均按预期工作,但无法
1回复

初始化时清除用户表单

我有一个系统,当选中一个复选框时,它将保存用户名和密码信息,但是如果不选中它,它将清除密码。 在某些情况下,当我打开表单时,如果我调试并逐行运行,则可以正常运行,但这几乎就像userform / excel的缓存不会每次都将其清除一样。
2回复

除非我中断用户表单初始化,否则事件处理类不会触发

这是以下问题的后续: Can't set Userform.KeyPreview to true 总结一下:目标是构建一个带有一些命令按钮和一个包含复选框的框架的表单。 复选框在框架中的userform_initialize处动态填充,因此用户可以滚动浏览它们。 我的问题是键盘快捷键。 不可能为每
1回复

如何在初始化期间隐藏某些用户表单字段?

因此,我有一个包含Multipages页的用户togglebuttons ,其中一个页面包含togglebuttons ,这些togglebuttons可隐藏和取消隐藏用户窗体以及excel工作表上的字段。 下图显示了切换按钮页面。 HAZOP / SIL和LOPA的代码相同,只是
2回复

如何在不显示工作簿的情况下触发/初始化Excel VB用户表单?

我创建了一个excel vba工具,该工具利用用户窗体为用户创建购物体验。 用户打开工具后,他将能够从用户表单中选择订单。 然后,代码处理订单并以计算出的估计成本退货。 问题是我不想让用户看到工作簿(和其中的工作表)。 我需要隐藏活动工作簿,而不会弹出任何窗口。 我最近遇到了以