excel - 单击时更改列表框的颜色

Question

我正在尝试将列表框的 BackColor 更改为白色。我已成功将其更改为红色(以显示缺少的输入)，但我希望它在单击时变回白色。我的代码是:

Private Sub lstEqualToOrAround_Click()
    lstEqualToOrAround.BackColor = &H8000000F
End Sub

通过使用 watch，我可以看到事件被触发并运行代码，但它并没有改变颜色。我不知道为什么。

我试过让它调用另一个 Sub 并从那里改变颜色，但我没有为这种情况工作。但是，我可以在 New Sub 或“Click”事件中执行其他操作，但无法更改 BackColor

编辑:我已经使用“DblClick”事件让它工作了，但这不是我想要的用户。(我必须使用 vba，因为我们无权访问其他任何东西)

Answer 1

因为函数没有来自屏幕的参数，所以无法刷新到屏幕。

您可以使用 MouseDown事件而不是 Click事件

Private Sub lstEqualToOrAround_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 lstEqualToOrAround.backColor = &H8000000F
End Sub