VBA生成列表框循环

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

这是实际代码：

'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

---

有人能帮我吗？

您需要将每个listbox控件分配给变量数组中的索引

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

---

您需要将每个listbox控件分配给变量数组中的索引

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

---

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