excel - VBA Excel - 在动态寻址的用户窗体上更新控件

Question

我有许多带有静态控件的用户窗体。我创建了一个类模块来将事件处理程序应用于一组我动态添加到用户窗体的 texbox。当我专门处理类模块中的用户表单时，我可以更新静态控件中的值......

IAFStep2c.Controls("chkOptIn").Value = True

但是，当我尝试使用变量中的用户窗体名称更新控件时，它不起作用......

Dim oUserFOrm As Object
Dim formName As String
formName = "IAFStep2c"
Set oUserFOrm = UserForms.Add(formName)
oUserFOrm.Controls("chkOptIn").Value = True

我可以读取控件的值和其他属性，但不能更新它们。有人可以提供解决方案吗？

编辑

我用下面的类创建了另一个电子表格，结果相同。 TextBox1 和 3 得到更新，textBox2 没有。

Sub doStuff()
'MsgBox ("ping")
Dim oUserFOrm As Object
Dim formName As String
formName = "frmTest"
Set oUserFOrm = UserForms.Add(formName)
frmTest.Controls("TextBox1").Value = oUserFOrm.Controls("TextBox2").Name
oUserFOrm.Controls("TextBox2").Value = "PING"
frmTest.Controls("TextBox3").Value = oUserFOrm.Controls("TextBox2").TextAlign

结束子

Answer 1

我就是这样做的:

UserForm1.Controls("Textbox1").Text = "123"

至少它对我有用，当我尝试时。办公室 2010。