解决,多选列表框不循环的问题

yedaoan

发现,多选列表框,用dubug.pring输出,只是输出同一个数据,不会向下循环,参考的MS的例子,解决这个问题,跟大家分享一下,
Sub AllSelectedData()
    Dim frm As Form, ctl As Control
    Dim varItm As Variant, intI As Integer

    Set frm = Forms!Contacts
    Set ctl = frm!Names
    For Each varItm In ctl.ItemsSelected
        For intI = 0 To ctl.ColumnCount - 1
            Debug.Print ctl.Column(intI, varItm)
        Next intI
        Debug.Print
    Next varItm
End Sub

roych

印象中应该是ItemData(i)的吧？
详细看：http://www.office-cn.net/thread-96517-1-1.html
附件中的删除部按钮单击事件的代码（建议多录入几条后再执行删除）。

鱼儿游游

给力，此方法可直接对列表框的内容，做类似单元格的操作：<列表框>.Column(<列号>,<行号>)。