如何实现Catalogus_Hardware表A列数据更新时同步至ComboBox1

你可以直接通过读取工作表数据的方式，一次性填充ComboBox1，替代手动逐个添加项的低效操作，同时实现数据自动同步。

优化后的UserForm代码 #

替换你原有的UserForm_Activate过程，改用以下代码：

Private Sub UserForm_Activate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim hardwareRange As Range
    
    ' 引用存储硬件信息的工作表
    Set ws = ThisWorkbook.Worksheets("Catalogus_Hardware")
    
    With Me.ComboBox1
        .Clear
        ' 添加空选项（保留你原有的需求）
        .AddItem ""
        ' 找到A列最后一行有数据的单元格
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        
        ' 如果A列有数据（至少一行），批量加载
        If lastRow >= 1 Then
            ' 若A列有表头，把范围改成ws.Range("A2:A" & lastRow)
            Set hardwareRange = ws.Range("A1:A" & lastRow)
            ' 一次性将区域数据赋值给ComboBox的List属性
            .List = hardwareRange.Value
        End If
    End With
    
    Call Refresh_Data
End Sub

关键说明 #

• 批量加载数据：通过ComboBox.List = 单元格区域.Value的方式，一次性把A列所有硬件信息导入，比逐个AddItem高效得多。
• 自动同步更新：每次激活用户窗体时，都会重新读取工作表的最新数据，只要Catalogus_Hardware工作表的A列内容更新，下次打开窗体就能看到最新的硬件列表。
• 表头处理：如果你的A列第一行是表头（比如“硬件名称”），记得把hardwareRange的起始行改成A2，避免把表头也加到选项里。

进阶：实时同步（可选） #

如果希望在工作表修改数据后，不用重新打开窗体就能同步更新ComboBox1，可以在Catalogus_Hardware工作表的代码模块中添加以下事件：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的是A列数据时触发更新
    If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
        ' 检查用户窗体是否已打开
        If UserForm1.Visible Then
            ' 调用窗体的激活过程刷新ComboBox
            UserForm1.UserForm_Activate
        End If
    End If
End Sub

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