vba链接在用户窗体中的列表框和通过button访问

我已经创build了两个带有多个选项的Listbox的用户窗体。

• Listbox1填充表单Result的列L的Location 1。
• 列表框2填充表单Result的列M的位置2。

我有一个buttondevise为“GO !!”

现在，我有一个代码，这种方式，你点击列表框1（例如：德国是位置1，它过滤的位置）同样，如果您select列表框2（例如美国在地点2，它过滤地点）

我想有一个代码，这样的两个列表框应该通过button相互连接和访问的方式。

例如。 如果我从Listbox1单击“美国”。 我从列表框2中select“德国”，点击“GO”，它会显示美国的结果，德国在我的表格中。

另外，如果我不selectListbox2，那么它应该只显示listbox1的结果，反之亦然。

这里是我用于listbox1的代码。 我改变第二个列表框的列表框名称和列号相同的代码。

Private Sub DoFilter1() Dim ws As Worksheet Dim strCriteria() As String, i As Integer, arrIdx As Integer ReDim Preserve strCriteria(0 To arrIdx) arrIdx = 0 For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) Then ReDim Preserve strCriteria(0 To arrIdx) strCriteria(arrIdx) = Me.ListBox1.List(i) arrIdx = arrIdx + 1 End If Next i Set ws = Sheets("Result") If arrIdx = 0 Then ws.UsedRange.AutoFilter Else ws.Range("A:P").AutoFilter Field:=12, Criteria1:=Array(strCriteria), Operator:=xlFilterValues End If End Sub 

有人可以build议我，我怎么可以互相链接，并通过button访问。 任何潜在客户都会有帮助。

这是我的用户窗体的样子。 我想从列表中selectcheckbox，然后单击确定以显示结果。 另外，我应该可以在checkbox中select多个选项。

Answer 1

请尝试下面的代码，这可能会有所帮助。 谢谢

  With ListBox1 For x = 0 To .ListCount - 1 If .Selected(x) Then temp = temp & Chr(10) & .List(x) End If Next End With With ListBox2 For x = 0 To .ListCount - 1 If .Selected(x) Then temp = temp & Chr(10) & .List(x) End If Next End With MsgBox temp & " is selected"