如何将ListBox的有序选中项存入字符串数组？

你的原代码问题在于：它是遍历ListBox的所有项，按列表固有顺序收集选中项，完全忽略了用户的选择先后，所以不管你先选哪个后选哪个，最终数组都是按ListBox里的排列顺序来的。

要实现按选择顺序存储，需要实时跟踪每个项的选中状态变化，在用户选中时把项追加到数组末尾，取消选中时从数组里移除对应项。具体实现如下：

步骤1：声明模块级数组 #

在代码模块的最顶部（所有过程之外）声明一个动态数组，用来持续保存选择顺序：

Option Explicit
' 模块级数组，存储按选择顺序排列的选中项
Dim CVSelections() As Variant

步骤2：修改ListBox的Change事件过程 #

替换你原来的CV_Change过程为以下代码：

Private Sub CV_Change()
    Dim currentIndex As Long
    Dim isSelected As Boolean
    Dim arrLen As Long
    Dim removePos As Long
    Dim tempArr() As Variant
    Dim i As Long, j As Long
    
    currentIndex = CV.ListIndex
    ' 无选中项时直接退出
    If currentIndex = -1 Then Exit Sub
    
    isSelected = CV.Selected(currentIndex)
    
    ' 获取当前数组长度，处理数组未初始化的情况
    On Error Resume Next
    arrLen = UBound(CVSelections) + 1
    If Err.Number <> 0 Then
        arrLen = 0
        Err.Clear
    End If
    On Error GoTo 0
    
    If isSelected Then
        ' 选中新项：追加到数组末尾
        ReDim Preserve CVSelections(arrLen)
        CVSelections(arrLen) = CV.List(currentIndex)
    Else
        ' 取消选中项：从数组中移除对应元素
        If arrLen = 0 Then Exit Sub
        
        ' 查找该项在数组中的位置
        removePos = -1
        For i = 0 To arrLen - 1
            If CVSelections(i) = CV.List(currentIndex) Then
                removePos = i
                Exit For
            End If
        Next i
        
        If removePos <> -1 Then
            ' 数组只剩一个元素时直接清空
            If arrLen = 1 Then
                Erase CVSelections
            Else
                ' 新建临时数组，跳过要移除的元素
                ReDim tempArr(0 To arrLen - 2)
                j = 0
                For i = 0 To arrLen - 1
                    If i <> removePos Then
                        tempArr(j) = CVSelections(i)
                        j = j + 1
                    End If
                Next i
                ' 更新原数组
                CVSelections = tempArr
            End If
        End If
    End If
End Sub

步骤3：测试数组内容（可选） #

可以写一个测试过程，查看当前数组里的项顺序：

Public Sub TestSelectionOrder()
    Dim i As Long
    If Not IsEmpty(CVSelections) Then
        For i = LBound(CVSelections) To UBound(CVSelections)
            Debug.Print "第" & i + 1 & "个选择的项：" & CVSelections(i)
        Next i
    Else
        Debug.Print "没有选中任何项"
    End If
End Sub

逻辑说明 #

• 每次用户点击ListBox的项触发Change事件时，只处理当前状态变化的项：
  • 选中时直接追加到数组末尾，保证顺序是用户选择的先后；
  • 取消选中时找到该项在数组中的位置，移除后保留剩余项的原有顺序。

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