VBA - 从动态创建的 ListView 中将项目添加到组合框

Question

我需要使用 ListView3 中的项目加载 ComboBox3，这些项目会根据 ComboBox1 中的值动态更改。

可以做这样的事情吗？

Private Sub ComboBox1_Change()
Call filterlist

'This line is what I need to change. Not working in this way
UserForm1.ComboBox3.AddItem = ListView3.ListItems 
End Sub

子过滤值:

Private Sub filterlist()
Dim item As ListItem
Dim i As Long
Dim ws As Worksheet
Dim sonsat As Long

Set ws = Sheets("data")

ListView3.ListItems.Clear

 sonsat = ws.Cells(Rows.Count, 3).End(xlUp).Row + 1

For i = 2 To sonsat
    If ws.Cells(i, 3).Value = ComboBox1.Text Then
        Set item = ListView3.ListItems.Add(, , ws.Cells(i, 1))
    item.ListSubItems.Add Text:=ws.Cells(i, 2)
    item.ListSubItems.Add Text:=ws.Cells(i, 3)


    End If
Next i
End Sub

Answer 1

我不确定你所说的“动态变化”是什么意思。我只是猜测，但请参阅下一个示例。如果您的数据结构如图所示，并且您想要在 ComboBox1 中加载 A、B 和 C，并且在组合 1 中选择 A 后，您希望组合 2 填充 101、1010、102 等，请尝试下面的代码。

Private Sub UserForm_Initialize()
    Dim dU1 As Object, cU1 As Variant, iU1 As Long, lrU As Long
    Dim i As Integer

    Set dU1 = CreateObject("Scripting.Dictionary")
    lrU = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
    cU1 = Worksheets("Data").Range("A2:A" & lrU) 'Starts in second row. First row left for titles
    For iU1 = 1 To UBound(cU1, 1)
        dU1(cU1(iU1, 1)) = 1
    Next iU1

    'now dU1 has unique values from column A

    For i = 0 To dU1.Count - 1
        ComboBox1.AddItem dU1.Keys()(i) 'Load Combobox1 with unique values from Column A
    Next

End Sub

Private Sub ComboBox1_Change()
    Dim lLastRow As Long
    Dim i As Integer

    ComboBox2.Clear
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To lLastRow
        If Worksheets("Data").Cells(i, 1) = ComboBox1.Text Then
            ComboBox2.AddItem (Worksheets("Data").Cells(i, 2))
        End If
    Next
End Sub