Question

我正在尝试使用vba在excel上做一个小的“另存为”界面，以便我可以将我在工作表中放置的一些信息保存在另一个工作表中。我几乎完成了它，它看起来像这样：click here to see my Save As interface

我的问题是我想把一个事件双击我的列表中的一个元素，让我们说SoCs2。双击，我希望字符串“SoCs2”出现在下面的文本框中。

我尝试过类似的东西：

Private Sub Listbox1_BeforeDoubleClick(ByVal Cancel As MSForms.ReturnBoolean)

With Me.ListBox1
     For i = 0 To .ListCount - 1
       If .Selected(i) Then
         Me.TextBox1.Value = .List(i, 0)
         Exit For
       End If
     Next
End With

End Sub

我的ListBox名为ListBox1，我的TextBox名为TextBox1。不幸的是，这段代码不起作用：当我双击我的ListBox的一个项目时，它什么都没做。有人可以帮我解决这个问题吗？

Answer 1

要查找的事件处理程序的名称为Listbox1_DblClick。试试这个：

DBOUND

在Userform VBA的ListBox的项目上双击事件

1 个答案: