在VBA UserForm

Question

listview sample我在用户表单上使用listview。我已启用多选。我想在列表视图中选择多个项目，然后在同一表单上的其他一些文本框中找到该值，并将这些值推送到所选项目子项目（列）中。列表视图对我来说有点像新的野兽。我没有问题填写列表视图。我能够将数据推送到单个选定的行，但我不知道如何获取所有选定的行索引，然后相应地推送到所有子项。我最终只得到最后一个选定的行。

THX。

Answer 1

要获取所选项目，请使用以下代码：

ListeCount = myListview.ListItems.Count
For i = 1 To ListeCount
        If myListview.ListItems.Item(i).Selected Then
        MsgBox myListview.ListItems.Item(i).Text
    End If
Next i

编辑＃1：

ListeCount = myListview.ListItems.Count
For i = 1 To ListeCount
    If myListview.ListItems.Item(i).Checked Then
            MsgBox myListview.ListItems.Item(i).Text
            'Check if The column 2 of item 'i' is empty
            If myListview.ListItems.Item(i).SubItems(1) = vbNullString Then
                'Fill the empty column with a value
                myListview.ListItems.Item(i).SubItems(1) = "Test"
            End If
    End If
Next i