VBA創建列表框循環

Question

我想創建一個列表框循環但我總是得到一個語法錯誤，不知道爲什麼。

這是實際的代碼：

'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 

有人可以幫我嗎？

Answer 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