简单：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 ，以便能够在列表中选择多个项目。

有关详细信息，请参阅the ListBox documentation。