Question

首先，对不起，标题似乎令人困惑，但是我找不到更好的解释方式。所以我有这段代码：

 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），我在其中注册一些东西。但是，在以该形式注册某些内容之前，用户可能需要参考一系列潜在变量。因此，我在该用户窗体中有一个命令按钮，该按钮调用了userform2（我们将其称为form2。上面的代码来自form2）。这个form2显示了表的特定部分，我在其中声明了变量（我认为这是一个列表框之类的东西，基本上是一个空白的正方形，在我运行代码时会充满信息）。我的问题是，是否可以安排某种交互，当用户单击或双击表单2内的参数时，该参数会自动复制到form1的文本框中吗？

Answer 1

在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，文本框名为Textbox1。当您单击列表框时，它将获得第二列的值，并以另一种形式将其放入文本框

Vba Excel是否可以从显示表格部分的用户窗体中选择一个值？

1 个答案: