Question

我有一个小的VBA代码，其中包含3个listBox，列表基于定义的范围。是否可以对多个列表框UsernameNotFoundException

进行循环迭代

这是我的下面的代码。

Sheet4.ListBox & i & .AddItem "Select All"

请帮助。如果不是易感染的，则需要其他解决方法

Answer 1

ListBox & i创建字符串“ ListBox1”或“ ListBox2”，等等。您不能像尝试使用的那样直接使用它来标识列表框对象，但是可以使用该字符串来标识合格集合中的列表框。

有两种方法可以从工作表的私有代码表（右键单击工作表名称标签，查看代码）中遍历工作表的ListBox对象。

Option Explicit

Sub refLBs()
    Dim c As Object, i As Long

    For Each c In Me.OLEObjects
        Debug.Print c.Name
    Next c

    For i = 1 To Me.OLEObjects.Count
        Debug.Print Me.OLEObjects("listbox" & i).Name
    Next i
End Sub

循环更新多个列表框

1 个答案: