如何在Excel VBA中同时多选一个以上的列表框

Question

Scenario

I have two listboxes named openItemList and serialNumber . serialNumber entries are unique numbers for every row of openItemList . It means every openItemList has a unique serialNumber . But openItemList can have duplicate values in different rows. User can understand only openItemList and they select this. Since respective serialNumber also select based on openItemList selection, my program is finding related row data by using serialNumber as search word criteria and update the correct row accordingly.

Currently I am able to select both listboxes simultaneously because, I set multiselect property to single entry. I use following code to do so

Private Sub openItemList_Click()
    serialNumber.ListIndex = openItemList.ListIndex
End Sub

Private Sub openItemList_Scroll()
    serialNumber.TopIndex = openItemList.TopIndex
End Sub

Private Sub serialNumber_Click()
    openItemList.ListIndex = serialNumber.ListIndex
End Sub

Private Sub serialNumber_Scroll()
    openItemList.TopIndex = serialNumber.TopIndex
End Sub

Current Problem

Now I want to let user to select multiple rows in the listbox so that user can update multiple rows at once. The moment I changed property of the two listbox to MultiSelectExtended , the selection dependency is no more working. Due to this, I cannot search the respective rows based on serialNumber anymore. Anyone knows how to select both listbox simultaneously when change to MultiSelectExtended mode?

Currently this is how the two listboxes behave. The moment I choose one listbox, the respective value of the other listbox highlight as well.

The moment I change to Multiselect, it is acting as below without any simultaneous selection

Answer 1

you have to:

• use Change event instead of Click one

• match both listboxes each element Selected property:

as follows:

Private Sub openItemList_Change()
    Dim i As Long
    With openItemList
        For i = 0 To .ListCount - 1
            serialNumber.Selected(i) = .Selected(i)
        Next
    End With
End Sub

also, change openItemList_Scroll() to openItemList_MouseDown() to pair listboxes visible elements