如何点击List Box表单控件值运行宏且不影响滚动条功能？

方法1：优化表单控件的宏逻辑，避免滚动触发核心代码 #

表单控件的ListBox绑定宏后，所有交互（包括滚动）都会触发Click事件，这是控件的默认行为。你可以在宏里添加判断，仅当选中有效列表项时才执行核心逻辑：

1. 打开工作表模块，修改你的宏代码，加入选中状态判断：

Public Sub ListBox_Click()
    Dim targetLB As ControlFormat
    ' 替换为你的工作表名称和ListBox控件名称
    Set targetLB = ThisWorkbook.Sheets("你的工作表名").Shapes("ListBox1").ControlFormat
    
    ' 滚动操作时ListIndex为-1或未变化，直接退出
    If targetLB.ListIndex = -1 Then Exit Sub
    
    ' 这里写入你的核心业务代码
    ' 示例：获取选中内容并处理
    Debug.Print "选中内容：" & targetLB.List(targetLB.ListIndex)
End Sub

• 原理：滚动ListBox时，控件的ListIndex不会变为有效索引（保持-1或之前的选中值），只有点击列表项时才会更新为对应索引，通过这个判断可以跳过滚动触发的无效执行。

方法2：重新启用ActiveX ListBox实现动态数据源（纠正误解） #

你提到ActiveX控件无法实现动态值需求，其实可以通过动态命名范围或工作表事件实现自动更新：

方式A：用动态命名范围绑定数据源 #

1. 点击Excel菜单栏的「公式」→「定义名称」，新建名称（比如DynamicList），引用位置输入：

   =OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),1)
   

   （假设你的动态数据存放在Sheet1的A列，可根据实际位置调整）
2. 右键ActiveX ListBox→「属性」，将RowSource属性设置为DynamicList，此时列表会自动随A列数据的增减更新。
3. 在工作表模块中使用Change事件（仅当选中项改变时触发，滚动不会触发）：

Private Sub ListBox1_Change()
    ' 仅当选中有效项时执行
    If Me.ListBox1.ListIndex <> -1 Then
        ' 核心业务代码
        MsgBox "选中：" & Me.ListBox1.Value
    End If
End Sub

方式B：用工作表事件手动更新 #

如果动态数据来自复杂计算，可通过Worksheet_Change事件触发更新：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 假设数据范围是A1:A1000，当该范围变化时更新ListBox
    If Not Intersect(Target, Me.Range("A1:A1000")) Is Nothing Then
        Me.ListBox1.Clear
        Me.ListBox1.List = Me.Range("A1:A" & Me.Cells(Me.Rows.Count, "A").End(xlUp).Row).Value
    End If
End Sub

内容的提问来源于stack exchange，提问作者G.D.