Question

我正在尝试使用Excel宏创建一个简单的表单。此表单将用于输入将存储在Sheet2中的数据。保存数据后，我想清除表单中的内容。除了listbox之外，我已经能够为大多数输入框实现此功能。下面是我试图实现此功能的代码。

     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）未指定的错误”

Answer 1

取消选择列表框中的所有项目

For clearlstbox = 0 To AOI.ListCount - 1
    AOI.Selected(clearlstbox) = False
Next

Answer 2

您可以通过运行以下命令取消选择列表框中的任何选定值：

Me.Listbox1.Value = ""

其中“Listbox1”是列表框的名称

要清除多选列表框，请使用以下代码：

Me.listbox1.MultiSelect = fmMultiSelectSingle
Me.listbox1.Value = ""
Me.listbox1.MultiSelect = fmMultiSelectMulti

这会将其设置为单个选择以清除它，然后返回到原始功能的多选项

清除从ListBox中选择的项目

2 个答案: