列表框选择变为文本框选择

Question

我希望用户能够单击列表框中的值并将所选值变成文本框值。我从 Textbox1.Value = selectedItems.Text 收到一个编译错误错误：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

Answer 1

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

TextBox1.Value = selectedItems

就是你需要的

列表框选择变为文本框选择

Listbox selection become textbox selection

excel

vba

userform