VBA 列表框删除所有项目

在VBA中，可以使用List Box控件来展示一个选项列表。有时候，我们需要在程序中清空这个列表框的所有选项，这时可以使用VBA来实现。

代码片段

下面是一个VBA代码片段，用于删除一个List Box控件中所有的选项：

Private Sub clearListBox()
    Dim i As Long
    With ListBox1
        For i = .ListCount - 1 To 0 Step -1
            .RemoveItem (i)
        Next i
    End With
End Sub

代码解读

这段代码中，我们首先使用了With语句将ListBox1控件与一个代码块相关联。然后我们使用一个循环来遍历这个列表框的选项，每次都调用RemoveItem方法来删除当前选项。注意循环是从后往前遍历的，因为如果从前往后遍历的话，删除某个选项后，后面的选项的索引就会变化，所以要倒序循环。

结论

以上是一个简单的VBA代码片段，可以用于删除一个List Box控件中所有的选项。需要注意的是，这个代码片段只能用于删除选择列表，如果是势头的列表，需要使用Rows属性来删除选项。