VBA 制作一个列表框循环答案

【问题标题】：VBA Make a Listbox LoopVBA 制作一个列表框循环
【发布时间】：2016-05-25 01:26:12
【问题描述】：

我想做一个列表框循环，但我总是遇到语法错误，不知道为什么。

这是实际的代码：

'deselektion Listbox1
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i

'deselektion Listbox2
    Dim f As Long
    For f = 0 To ListBox2.ListCount - 1
    ListBox2.Selected(f) = False
    Next f
.
.
.
.

以此类推，直到列表框 10

我认为重写代码会很好。

For g= 1 To 10

 Dim i As Long
 For i = 0 To "ListBox & (g).ListCount - 1"
 ListBox & (g).Selected(i) = False
 Next i

Next g

有人可以帮帮我吗？

【问题讨论】：

语法错误到底是什么？
& 给你带来了麻烦，因为它告诉 VBA 有两个单独的项目要作为字符串连接在一起。

标签： vba listbox counter

【解决方案1】：

您需要将每个列表框控件分配给变量数组中的索引。

Dim listboxes(1 to 10) as Variant

Set listboxes(1) = Listbox1
...
Set listboxes(10) = Listbox10

现在您可以循环使用您的代码创建的数组，我将从上面借用一些修改

For g= 1 To 10
    Dim i As Long
    For i = 0 To listboxes(g).ListCount - 1
       listboxes(g).Selected(i) = False
    Next i
Next g

【讨论】：