Excel 2019 VBA ListBox初始选中项点击无返回值求助

问题原因 #

1. 表单初始化时通过lstbx.ListIndex = 0设置的选中状态属于程序赋值的初始状态，并非用户交互触发，因此不会自动触发Click或Change事件。
2. ListBox默认逻辑中，当用户点击已处于选中状态的项时，由于ListIndex未发生变化，Change事件不会触发；部分场景下Click事件也会因系统判定“选中状态无变更”而不执行。

解决方法 #

方法一：初始化时手动触发事件逻辑 #

在设置默认选中项后，直接调用对应的事件处理代码，确保初始选中项的业务逻辑被执行，后续用户点击时也能正常响应：

Private Sub UserForm_Initialize()
    ' 填充ListBox数据
    LstBx.List() = ThisWorkbook.Sheets("info").Range("E2:E13").Value
    ' 设置默认选中第一项
    LstBx.ListIndex = 0
    ' 手动触发Click事件的业务逻辑
    Call LstBx_Click
End Sub

' ListBox Click事件处理代码
Private Sub LstBx_Click()
    ' 这里编写你的业务逻辑，比如获取选中值
    MsgBox "当前选中值：" & LstBx.List(LstBx.ListIndex)
End Sub

方法二：通过MouseDown事件捕获重复点击 #

利用MouseDown事件判断用户点击的项，即使是已选中的项也强制执行逻辑：

Private Sub LstBx_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim clickedIdx As Integer
    clickedIdx = LstBx.PointToIndex(X, Y)
    ' 确认点击的是当前选中项且有效
    If clickedIdx = LstBx.ListIndex And clickedIdx <> -1 Then
        ' 执行业务逻辑或直接调用Click事件
        Call LstBx_Click
    End If
End Sub

Private Sub LstBx_Click()
    MsgBox "当前选中值：" & LstBx.List(LstBx.ListIndex)
End Sub

注意事项 #

• 若使用Change事件，需注意该事件仅在ListIndex发生变化时触发，无法捕获“重复点击同一选中项”的操作，此时优先使用Click或MouseDown事件。
• 确保ListBox的MultiSelect属性设置为fmMultiSelectSingle（默认值），避免多选逻辑干扰选中状态判断。

内容的提问来源于stack exchange，提问作者A. choofe