我有一个带有选项样式的多选列表框(左侧是复选框)。
我有以下代码将选定的数据传输到工作表(这必须是动态的,因为列表框本身由动态命名范围提供)。
Private Sub cmdRun_Click()
Dim i As Integer
i = 0
Do While i < lstProperties.ListCount + 1
If lstProperties.Selected(i) = True Then
Sheet7.Cells(i + 1, 1) = lstProperties.List(i)
End If
i = i + 1
Loop
End Sub
它似乎想要工作,但我认为当我运行命令时,它在第一个循环后取消选择列表框数据,因此只转换列表框中的第一个选择。
我意识到这是一个旧线程,但它是我能找到的唯一一个关于这个主题的内容,它从未被解决过。
我的用户窗体遇到完全相同的问题(只有列表中的第一个选定项目返回到工作表,因为它似乎在循环其余项目之前取消选择列表框数据),但在阅读此线程后,我能够想出一个解决方案。
问题是RowSource是一个动态命名范围(“FilterData”),当第一个选定的项目返回到工作表时,它会触发工作簿重新计算所有公式,包括动态命名范围的公式,从而刷新列表框RowSource并清除所选项目之前它有机会遍历所有项目。
解决方案是在Do While Loop语句之前关闭自动公式计算(并在之后重新打开......非常重要),如下所示:
Application.Calculation = xlCalculateManual
Do While i < lstProperties.ListCount
If lstProperties.Selected(i) = True Then
Sheet7.Cells(Rw, 1) = lstProperties.List(i)
Rw = Rw + 1
End If
i = i + 1
Loop
Application.Calculation = xlCalculateAutomatic
希望这有助于其他任何人寻找同一问题的解决方案。
干杯!
您将需要一个单独的行参考变量,以便只有在选中列表框中的项目时才能增加它...
Private Sub cmdRun_Click()
Dim Rw As Integer
Dim i As Integer
Sheet7.Columns(1).ClearContents
Rw = 1
i = 0
Do While i < lstProperties.ListCount
If lstProperties.Selected(i) = True Then
Sheet7.Cells(Rw, 1) = lstProperties.List(i)
Rw = Rw + 1
End If
i = i + 1
Loop
End Sub