VBA用户表单：按ComboBox值及J列状态填充两个ListBox

我来帮你实现这个需求，下面是完整的VBA代码方案，直接集成到你的用户表单里就行：

首先，我们需要编写一个刷新ListBox内容的核心子过程，再把它绑定到ComboBox的Change事件上，这样每次选择不同的撰稿人（Redactor）时，两个ListBox会自动更新对应的数据。

步骤1：编写刷新ListBox的核心代码 #

Private Sub RefreshListBoxes()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim col_redactor As Integer ' Redactor列（J列）的列号
    Dim col_pagado As Integer ' Si/NO所在列的列号（请根据你的实际表格调整）
    Dim currentRedactor As String
    
    ' 设置工作表和列号
    Set ws = ThisWorkbook.Worksheets("Pedidos")
    col_redactor = 10 ' J列的列号是10
    col_pagado = 11 ' 假设Si/NO在K列，若实际位置不同请修改这个值
    currentRedactor = Me.cbox_rrhh.Value
    
    ' 清空两个ListBox的现有内容
    Me.lbox_por.Clear
    Me.lbox_done.Clear
    
    ' 获取数据区域的最后一行
    lastRow = ws.Cells(ws.Rows.Count, col_redactor).End(xlUp).Row
    
    ' 遍历数据行（假设第1行是表头，从第2行开始遍历）
    For i = 2 To lastRow
        ' 先判断当前行的Redactor是否匹配ComboBox选中的值
        ' 如果ComboBox为空，显示所有数据；否则只显示匹配的
        If currentRedactor = "" Or ws.Cells(i, col_redactor).Value = currentRedactor Then
            ' 判断Si/NO的值，分配到对应的ListBox
            Select Case UCase(ws.Cells(i, col_pagado).Value)
                Case "SI"
                    ' 添加行数据到lbox_por，可根据实际字段位置调整列号
                    Me.lbox_por.AddItem ws.Cells(i, "A").Value ' Fecha（假设在A列）
                    Me.lbox_por.List(Me.lbox_por.ListCount - 1, 1) = ws.Cells(i, "B").Value ' Palabras（B列）
                    Me.lbox_por.List(Me.lbox_por.ListCount - 1, 2) = ws.Cells(i, "C").Value ' Tasa（C列）
                    Me.lbox_por.List(Me.lbox_por.ListCount - 1, 3) = ws.Cells(i, "D").Value ' Monto（D列）
                    Me.lbox_por.List(Me.lbox_por.ListCount - 1, 4) = ws.Cells(i, col_pagado).Value ' Pagado
                    Me.lbox_por.List(Me.lbox_por.ListCount - 1, 5) = ws.Cells(i, col_redactor).Value ' Redactor
                Case "NO"
                    ' 添加行数据到lbox_done
                    Me.lbox_done.AddItem ws.Cells(i, "A").Value
                    Me.lbox_done.List(Me.lbox_done.ListCount - 1, 1) = ws.Cells(i, "B").Value
                    Me.lbox_done.List(Me.lbox_done.ListCount - 1, 2) = ws.Cells(i, "C").Value
                    Me.lbox_done.List(Me.lbox_done.ListCount - 1, 3) = ws.Cells(i, "D").Value
                    Me.lbox_done.List(Me.lbox_done.ListCount - 1, 4) = ws.Cells(i, col_pagado).Value
                    Me.lbox_done.List(Me.lbox_done.ListCount - 1, 5) = ws.Cells(i, col_redactor).Value
            End Select
        End If
    Next i
End Sub

步骤2：绑定ComboBox的Change事件 #

在表单的代码窗口里，找到cbox_rrhh的Change事件，添加调用上面子过程的代码：

Private Sub cbox_rrhh_Change()
    ' 每次ComboBox选择变化时自动刷新ListBox
    RefreshListBoxes
End Sub

步骤3：表单初始化时自动加载数据（可选） #

如果希望表单打开时就自动加载默认数据，还可以添加UserForm_Initialize事件，同时给ComboBox自动填充去重后的撰稿人选项：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Set ws = ThisWorkbook.Worksheets("Pedidos")
    lastRow = ws.Cells(ws.Rows.Count, 10).End(xlUp).Row
    
    ' 给ComboBox添加去重后的撰稿人选项
    For i = 2 To lastRow
        If ws.Cells(i, 10).Value <> "" And Not IsInComboBox(Me.cbox_rrhh, ws.Cells(i, 10).Value) Then
            Me.cbox_rrhh.AddItem ws.Cells(i, 10).Value
        End If
    Next i
    
    ' 初始化刷新ListBox
    RefreshListBoxes
End Sub

' 辅助函数：检查值是否已在ComboBox中（避免重复选项）
Private Function IsInComboBox(cbox As ComboBox, val As String) As Boolean
    Dim i As Long
    For i = 0 To cbox.ListCount - 1
        If cbox.List(i) = val Then
            IsInComboBox = True
            Exit Function
        End If
    Next i
    IsInComboBox = False
End Function

关键说明 #

• 列号调整：代码里的col_pagado是Si/NO所在列的列号，如果你实际表格中这个值不在K列（列号11），请修改这个数字；同理，Fecha、Palabras等字段的列号如果和示例中的A/B/C/D列不同，也要对应调整。
• 大小写兼容：用UCase()转换后判断，这样不管表格里是"si"、"SI"还是"Si"都能正常匹配。
• 空ComboBox处理：如果ComboBox没有选中任何值，会显示所有符合Si/NO条件的数据，你可以根据需要去掉这个逻辑（删掉currentRedactor = "" Or即可）。

内容的提问来源于stack exchange，提问作者Juan Hernandez