Excel VBA用户表单列表框-如何在不选择的情况下突出显示选项

简而言之：

什么等效于

Me.ListBox1.Selected（2）=True

但用于突出显示而不是选择？？（突出显示可能是错误的单词，但我相信我以前在本上下文中见过它-选项周围的大纲框，而不是实际选择它）

**尝试**

Me.ListBox1.ListIndex=2

也什么都不做

With Me.ListBox1
    saveVal = .List(0)
    .Value = ""
    .Value = saveVal
End With

显示“无效属性值”时出错

背景：

为什么我需要在某些项目/框上单击两次

我有一个userform，其中有几个

列表框

，通过逐个添加项来填充，效果很好

ListBox

设置已更改为

MultiSelect

=

1-fmMultiSelectMulti

和

ListStyle

=

1-fmListStyleOption

问题是，当首次尝试在某些框中选择某个选项时，它只会高亮显示该选项而不选择它，而在其他框和其他尝试中，它可能会或可能不会立即选择某个选项。这似乎不是同一个罪魁祸首，而且有点随机——这与我点击选项的位置有关吗？在项目文本上而不是在项目框上？为什么它对某些人有效而对其他人无效

在我在一个框中选择一个选项后，它允许我通过单击选择任何其他选项，这是所需的行为

我发现了一个链接，其中有人建议这种行为是因为工作簿损坏，但我不认为是这样。我刚刚在userform中创建了一本包含1个listbox的新书，更改为所需的设置，复制了listbox 6次，将listsource作为rand（）放在a:G列中，我仍然收到相同的问题

---

编辑：我的计划是“突出显示”每个框的顶部选项，以便第一次单击框时除了选择之外没有其他选项（因为某些内容已突出显示）…

解决我最初问题的诀窍似乎是在填充每个列表以设置

.ListIndex=0

之后，但这只在使用

.SetFocus

解决了！（我想现在）

尽管这并没有突出显示任何内容，但它允许我第一次毫无疑问地选择一些内容