我有以下代码,当然它不起作用,但我希望它表明我的意图。
Dim lItem As Long
Dim input_sh As Worksheet
Dim lb As ListBox
Set input_sh = ActiveWorkbook.Sheets("Input")
For i = 1 To 4
lb = "ListBox" & i
For lItem = 0 To lb.ListCount - 1
If lb.Selected(lItem) = True Then
input_sh.Cells(1, 14 + i) = lb.List(lItem)
lb.Selected(lItem) = False
End If
Next lItem
Next i
基本上我在用户窗体中有 4 个列表框,并且会使用 for 循环来获取所选项目,而不是为每个列表框设置一个 for 循环。