实现NIGOcomboBox与ListBox1从工作表自动填充及动态适配新增条目

嘿，我懂你遇到的问题了——要让DropDownMenus工作表里的NIGOcomboBox和ListBox1联动起来，还得支持后续新增条目时自动选中对应行，不用手动改代码对吧？我来一步步给你解决：

一、先给两个控件绑定动态数据源 #

首先得让NIGOcomboBox和ListBox1都能自动读取DropDownMenus表A2:A列的所有非空数据，这样新增内容时不用手动调整数据源范围。咱用VBA来实现：

1. 动态填充控件的基础代码 #

右键点击DropDownMenus工作表标签→选择「查看代码」，在弹出的代码窗口里粘贴这段代码（这段代码会在你切换到该工作表时自动刷新控件数据）：

Private Sub Worksheet_Activate()
    Dim lastRow As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("DropDownMenus")
    
    ' 获取A列最后一行非空单元格的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 清空并填充NIGOcomboBox
    Me.NIGOcomboBox.Clear
    If lastRow >= 2 Then ' 数据从A2开始，避免空行
        Me.NIGOcomboBox.List = ws.Range("A2:A" & lastRow).Value
    End If
    
    ' 同步填充ListBox1（如果ListBox1需要显示和ComboBox相同的列表）
    Me.ListBox1.Clear
    If lastRow >= 2 Then
        Me.ListBox1.List = ws.Range("A2:A" & lastRow).Value
    End If
End Sub

二、实现新增条目时自动选中下一行 #

分两种场景来处理，你可以根据自己的需求选：

场景1：手动在A列新增数据后自动选中 #

如果是直接在A列单元格里新增内容，切换回DropDownMenus工作表时要自动选中ListBox1的最新行，那就在上面的Worksheet_Activate代码末尾加上这段：

' 自动选中ListBox1的最后一行（有数据时才执行）
    If Me.ListBox1.ListCount > 0 Then
        Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1
    End If

场景2：通过NIGOcomboBox直接输入新增条目 #

如果允许用户在NIGOcomboBox里输入新内容并自动添加到A列，那就在同一个代码窗口里再粘贴这段Change事件代码：

Private Sub NIGOcomboBox_Change()
    Dim ws As Worksheet
    Dim lastRow As Long
    Set ws = ThisWorkbook.Worksheets("DropDownMenus")
    
    ' 检查输入的内容是否已经在A列存在
    On Error Resume Next
    Dim matchRow As Long
    matchRow = Application.WorksheetFunction.Match(Me.NIGOcomboBox.Value, ws.Range("A:A"), 0)
    On Error GoTo 0
    
    ' 如果不存在，就添加到A列末尾
    If matchRow = 0 Then
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
        ws.Cells(lastRow, "A").Value = Me.NIGOcomboBox.Value
        
        ' 重新刷新两个控件的列表
        Me.NIGOcomboBox.Clear
        Me.NIGOcomboBox.List = ws.Range("A2:A" & lastRow).Value
        Me.ListBox1.Clear
        Me.ListBox1.List = ws.Range("A2:A" & lastRow).Value
        
        ' 自动选中ListBox1里的新增条目
        Me.ListBox1.ListIndex = Me.ListBox1.ListCount - 1
    End If
End Sub

三、几个要注意的点 #

• 确保你的NIGOcomboBox和ListBox1是ActiveX控件（不是表单控件），因为表单控件的代码逻辑会不一样，ActiveX更适合做这种联动。
• 所有代码都要放在DropDownMenus工作表的代码模块里，别放错到普通模块了。
• 测试的时候，要么在A列新增内容后切换到其他工作表再切回来，要么在ComboBox里输入新内容，看看ListBox1是不是自动选中最新行啦～

这样设置好之后，后续人员新增条目完全不用碰代码，系统会自动处理数据源更新和选中逻辑！

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