Excel VBA将项目从第二个用户表单中的另一个列表框添加到打开用户表单中的列表框

问题描述

我想从用户表单 2 中的列表框 2 中将项目添加到用户表单 1 中的列表框 1。

通过单击 Userform1 中的按钮打开 Userform 2

我正在尝试从用户窗体 2 中的 Listbox2 中进行选择，并让它将信息添加到用户窗体 1 中的列表框 1 中，该信息保持打开状态。当用户表单 2 关闭时，这些项目应该在用户表单 1 的列表框 1 中可见

首先，这可能吗？

其次，如果可以，任何人都可以提供帮助。

到目前为止，我已经尝试过这个，但一直出现错误，因为当对所选项目进行匹配时（这样 Me.ListBox1.Selected(i) = True）它会尝试再次打开用户表单 1。

Private Sub CommandButton1_Click()
    Dim i As Long
    
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            userform1.ListBox2.AddItem Me.ListBox1.List(i,0)
        End If
    Next
End Sub

非常感谢任何帮助或建议。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

add excel excel