Excel VBA 用户窗体初始化填充列表框但显示随机选择的项目

Question

我正在使用 Excel 2013。我有一个 "BeforeDoubleClick" 事件显示带有一些列表框的用户表单。用户双击任何单元格，用户窗体初始化并填充列表框，但是当启动用户窗体时，列表框显示几个突出显示的项目（已经选择，即使我还没有选择任何东西）：

这是初始化用户窗体时加载列表框的代码：

For Each cel In rng.Cells
  With cel
  If .Value <> "" Then
    lstPEOPLE.AddItem .Value
  End If
  End With
Next cel

显然，列表框应该清除初始化时的任何选择。这不会一直发生 - 它似乎在随机双击单元格时发生。想法？

谢谢。

Answer 1

如果您将该列表中的所有名称设置为 table，您可以在 BeforeDoubleClick 事件中使用以下代码：

lstPeople.RowSource="Insert Table Name Here"

Excel VBA Userform Initialize populates Listbox but shows random selected items