如何通过VBA实现Excel中ListBox的实时更新

下面提供两种实用方案，解决ListBox无法实时同步表格内容的问题：

方法一：通过工作表Change事件自动刷新 #

当目标列（BP列）的内容被修改时，自动触发ListBox的刷新操作，完全无需手动干预。

1. 打开VBA编辑器，双击工程窗口中的DataStorage工作表，添加以下事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的单元格在BP列（第68列）时执行刷新
    If Not Intersect(Target, Me.Columns(68)) Is Nothing Then
        ' 检查用户窗体是否处于打开状态，避免报错
        If UserForms.Count > 0 Then
            ' 如果有多个窗体，把UserForms(1)改成你的窗体名称，比如UserForm1
            RefreshListBox UserForms(1).ListBox1
        End If
    End If
End Sub

2. 在你的用户窗体代码模块中，把原有的加载逻辑抽成通用刷新过程，方便重复调用：

' 通用的ListBox刷新过程
Public Sub RefreshListBox(lb As MSForms.ListBox)
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("DataStorage")
    Dim i As Integer
    
    Application.ScreenUpdating = False
    lb.Clear
    
    For i = 2 To Application.CountA(sh.Range("BP:BP"))
        lb.AddItem sh.Cells(i, 68).Value
    Next i
    Application.ScreenUpdating = True
End Sub

' 窗体激活时调用刷新
Private Sub UserForm_Activate()
    RefreshListBox Me.ListBox1
End Sub

方法二：直接绑定数据源（更简洁） #

让ListBox直接关联到BP列的数据区域，Excel会自动同步内容变化，无需额外写刷新逻辑。

修改用户窗体的激活事件代码：

Private Sub UserForm_Activate()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("DataStorage")
    ' 获取BP列有数据的有效区域（从第2行开始）
    Dim dataRange As Range
    Set dataRange = sh.Range("BP2:BP" & Application.CountA(sh.Range("BP:BP")))
    ' 绑定ListBox的数据源
    Me.ListBox1.RowSource = dataRange.Address(External:=True)
End Sub

注意：如果BP列新增了数据行，需要重新激活窗体才能识别新行；若要自动识别新增行，可以结合方法一的Change事件重新设置RowSource。

可选：手动刷新按钮 #

如果不需要完全自动，可在窗体上添加一个按钮，点击手动刷新：

1. 在用户窗体添加一个CommandButton（命名为cmdRefresh）
2. 按钮的点击事件代码：

Private Sub cmdRefresh_Click()
    RefreshListBox Me.ListBox1
End Sub

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