excel - 列表框选择变成文本框选择

Question

我希望用户能够单击列表框中的值并将所选值变为文本框值。我从Textbox1.Value = selectedItems.Text编译错误中得到一个错误：invalid qualifier for selecteditems. 我希望选择的值也出现在文本框中。

Private Sub ListBox1_Click()
Dim selectedItems As String, i As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
        selectedItems = selectedItems & ListBox1.List(i) & vbNewLine
    End If
Next i

TextBox1.Value = selectedItems.Text

End Sub

标签： excelvbauserform

Answer 1

selectedItems是一个字符串，字符串没有任何属性，例如Text

TextBox1.Value = selectedItems

将是你需要的