首先,我很抱歉,如果标题似乎令人困惑,但是我找不到更好的解释方法。所以我有此代码:
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Sheets("Máquinas").Select
With Lista2
.ColumnCount = 9
.ColumnWidths = "80;0;200;0;0;0;0;0;50"
.RowSource = Sheets("Máquinas").Range("A1:U300").Address
End With
Sheets("Programa").Select
Application.ScreenUpdating = True
End Sub
我有一个用户形式(我们称其为form1),我在其中注册了一些东西。但是,在注册该表单1中的某些内容之前,用户可能需要咨询潜在变量的列表。因此,我在该用户形式中有一个命令按钮,该按钮调用userform2(我们将其称为form2。上面的代码来自form2)。此Form2显示了我在说明变量所在的表的特定部分(我认为它是列表框或其他内容,基本上是一个空白的正方形,在我运行代码时会填充信息)。我的问题是,是否可以安排某种交互,当用户单击或双击表单2中的参数时,它会自动复制到form1?
在form2中添加此
Private Sub ListBox1_Click()
If Me.ListBox1.ListIndex > -1 Then
UserForm1.Controls("Textbox1").Value = Me.ListBox1.Column(2)
End If
End Sub
这是假定列表框命名为ListBox1,第一个用户形式命名为UserForm1,而TextBox称为TextBox1。当您单击列表框并将其放入其他形式