轻松: vba:查看列表框并选择内容

Question

我知道这是件很简单的事情，现在它正滑向我的矿井。如何循环遍历列表框并选择内容？

下面是我现在做的代码：

Dim allGrps As Integer
Dim i As Integer
allGrps = lstAllGroups.ListCount
For i = 1 To allGrps
lstAllGroups
Next

Answer 1

请记住，列表框是零索引的，因此您必须从i中减去一个：

For i = 1 To allGrps
    lstAllGroups.Selected(i - 1) = True
Next i

另外，确保您已经获得了SelectSheetsList.MultiSelect = fmMultiSelectMulti，以便能够在列表中选择多个项。

有关更多信息，请参见ListBox文档。