Excel表单ListBox：聚焦最后选中项且保留多选状态的实现方法

这个问题我太熟悉了！Excel的多选ListBox有个坑——直接设置.ListIndex会强制取消所有其他选中项，这是控件的默认行为。不过别担心，有两种简单的方法能实现你要的效果：聚焦到最后选中的项，同时保留所有已选状态。

方法1：通过TopIndex+SetFocus实现（无需API） #

这种方法不需要修改ListIndex，而是先让目标项滚动到可视区域顶部，再给控件设置焦点，既保证用户能看到最后选中的项，又完全保留原有选中状态。

With Me.listName
    Dim lastSelectedIndex As Long
    lastSelectedIndex = -1
    
    ' 遍历找到最后一个被选中的项的索引
    For lsti = 0 To .ListCount - 1
        If .Selected(lsti) Then
            lastSelectedIndex = lsti
        End If
    Next lsti
    
    If lastSelectedIndex > -1 Then
        ' 将目标项设置为可视区域的第一个项，确保它显示出来
        .TopIndex = lastSelectedIndex
        ' 给ListBox设置焦点，完成聚焦
        .SetFocus
    End If
End With

方法2：使用Windows API精准滚动（灵活控制滚动位置） #

如果你不想把目标项顶到可视区域最顶部，只想让它出现在可视范围内即可，可以用Windows API发送滚动消息，这种方式更灵活，且完全不影响选中状态。

首先需要在模块顶部声明API（适配64位Office的兼容性）：

Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_ENSUREVISIBLE = &H199

然后编写核心逻辑：

With Me.listName
    Dim lastSelectedIndex As Long
    lastSelectedIndex = -1
    
    ' 遍历找到最后一个被选中的项的索引
    For lsti = 0 To .ListCount - 1
        If .Selected(lsti) Then
            lastSelectedIndex = lsti
        End If
    Next lsti
    
    If lastSelectedIndex > -1 Then
        ' 发送消息让ListBox自动滚动，确保目标项进入可视区域
        SendMessage .hwnd, LB_ENSUREVISIBLE, lastSelectedIndex, 0
        ' 给ListBox设置焦点，完成聚焦
        .SetFocus
    End If
End With

两种方法的区别 #

• 方法1操作简单，无需额外API声明，适合大多数场景；
• 方法2更灵活，只会在目标项不可见时才滚动，不会强制把项顶到顶部，适合对滚动位置有要求的情况。

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