如何使用ListBox根据市场选择对UserForm进行编程

Question

我创建了以下用户窗体：

已创建的基础Subs：

Private Sub ListBox1_Click()

End Sub

Private Sub CommandButton1_Click()

End Sub

我基本上想做的是：选择相关市场，并在此基础上以活动表中列出的格式输入那些被选择进入单独单元的交易所。

一个简短的过程示例：选择Xetra，Xontro和Euronext->单击“确定”->用上述名称填充A1至A3。

我会发送想法，但是由于我在VBA中相对较新，并且不知道如何从ListBox中提取值，然后在Sub中使用它们。任何帮助将不胜感激...

Answer 1

在线上有很多示例。这是一个基本示例，该示例将选定的项目放在sheet1的A1中（及以下）。

Private Sub CommandButton1_Click()

Dim i As Long, j As Long

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        j = j + 1
        Sheet1.Cells(j, 1).Value = ListBox1.List(i)
    End If
Next i

End Sub