excel vba列表框不返回值,即使单击

7cjasjjr  于 2023-06-07  发布在  其他
关注(0)|答案(1)|浏览(104)

我有一组VBA列表框(excel-2019),我用这样的代码从工作表上的各个范围填充它们

LstBx.List() = ThisWorkbook.Sheets("info").Range("E2:E13").Value

然后我选择了第一个带有lstbx.ListIndex = 0的Item,因为否则在运行时单击列表框项会抛出错误。表单加载后,所有列表框都选择了第一个项目,但主要问题是当我单击同一个项目(第一个)时,将不会返回任何值。如果我选择另一个项目,单击和更改事件都会运行,即使我在单击列表中的另一个项目后单击第一个项目,值也会正常流动。想知道发生了什么以及如何修复它吗?
我尝试了点击事件和改变事件,但没有运气

nx7onnlm

nx7onnlm1#

您面临的问题是,当您使用ListIndex属性选择列表框中的第一个项目时,不会触发Click事件,因为该项目已被选中
要解决此问题,可以在使用数据填充列表框后将其ListIndex属性设置为-1

LstBx.List() = ThisWorkbook.Sheets("info").Range("E2:E13").Value
    LstBx.ListIndex = -1

单击列表框中的项目时,将触发Click事件,您应该能够按预期检索其值

相关问题