Question

我有一个字符串，由用户从一个值列表中选择，我将在稍后输出，但我想用每个值填充一个列表框，以便用户可以看到他们已选择的值。

Example: poString = ('PO_ORDERID','PO_ORDERNO')
List box: PO_ORDERID
          PO_ORDERNO

我试图找出一种方法，用字符串中的每个值填充userform列表框。

任何想法？

Answer 1

使用Split方法：

With ListBox1
    .Clear
    .List = Split(poString, ",")
End With

Answer 2

使用split从字符串填充列表框（它将字符串转换为数组）：

UserForm1.ListBox1.List = Split("Hello,World,A,Test,Entry", ",")

用字符串变量替换字符串，并将逗号保留为分隔符

Answer 3

您尚未指出列表框是来自ActiveX控件还是UserForm，无论

还是如此

Private Sub CommandButton1_Click()
    Dim rng As Range, c As Range
    Set rng = Selection

    With ListBox1
        .Clear
        For Each c In rng.Cells
            .AddItem c
        Next c
    End With

End Sub

使用逗号分隔的值填充字符串中的列表框

3 个答案: