清除从列表框中select的项目
我正在尝试使用Excelmacros创build一个简单的表单。 这个表单将被用于input将被存储在Sheet2中的数据。 数据一旦保存，我想清除表格中的内容。 我已经能够实现这个大多数的input框，除了列表框。 下面是通过我试图实现这个function的代码。
Dim clearlstbox As Long With AOI For clearlstbox = .ListCount - 1 To 0 Step -1 If .Selected(clearlstbox) = True Then .RemoveItem clearlstbox End If Next clearlstbox End With ' 'For clearlstbox = AOI.ListCount - 1 To 0 Step -1 ' If AOI.Selected(clearlstbox) = True Then ' AOI.RemoveItem (clearlstbox) ' End If 'Next 与这两个代码它会引发类似的错误消息“运行时错误”-2147467259（80004005）未指定的错误“
取消select列表框中的所有项目
For clearlstbox = 0 To AOI.ListCount - 1 AOI.Selected(clearlstbox) = False Next
您可以通过运行以下命令取消select列表框中的任何选定值：
Me.Listbox1.Value = ""
其中“Listbox1”是您的列表框的名称
要清除多选列表框，请使用以下代码：
Me.listbox1.MultiSelect = fmMultiSelectSingle Me.listbox1.Value = "" Me.listbox1.MultiSelect = fmMultiSelectMulti
这将其设置为单个select来清除它，然后返回到您的原始function的多选