简单：vba：浏览列表框并选择内容

Question

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

这里是我做了现在的代码：

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

Answer 1

请记住，列表框的索引从零开始，所以你一定要减去一个从我一：

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

此外，请确保您已获得SelectSheetsList.MultiSelect = fmMultiSelectMulti ，以便能够选择列表中的多个项目。

有关更多信息，请参阅the ListBox documentation。