獲取多選框中的最后一個選定項

為了使ListBox1_Change事件返回上次選擇的列表框值，可以使用該解決方案。它可以檢測所選值，而不受其在列表中的位置影響：

1. 在列表框所在的圖紙模塊頂部（聲明區(qū)域）創(chuàng)建一個Private變量：

Private colS As New Collection

2. 然后復(fù)制下一個自適應(yīng)事件代碼：

Private Sub ListBox1_Change()
    Dim i As Long
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            If colS.Count = 0 Then
                colS.Add ListBox1.List(i), ListBox1.List(i)
            Else
                If Not itExists(colS, ListBox1.List(i)) Then
                    colS.Add ListBox1.List(i), ListBox1.List(i)
                End If
            End If
        Else
            If itExists(colS, ListBox1.List(i)) Then
                colS.Remove ListBox1.List(i): Exit Sub
            End If
        End If
    Next i
    If colS.Count > 0 Then MsgBox colS(colS.Count)
End Sub

如果希望僅在選定值為“全選”時觸發(fā)，則將最后一個事件代碼行替換為以下內(nèi)容：

 If colS.Count > 0 Then 
   If colS(colS.Count) = "Select All" then
     'do whatever you need in such a case
     'but, if you try selecting all of lines, in order to avoid the event 
     'being triggered again, you should use 'Application.EnableEvents = False`, before selecting and 'Application.EnableEvents = True` after
   End If
 End If

最簡單的解決方案應(yīng)該是第一條評論中建議的解決方案：

 If Listbox1.Selected(1) = True Then
   'do whatever you need
 End If

但是，為了使其正常工作，“全選”一行應(yīng)該是列表的第二行。。。