VBA之Listbox控件基础教程

wlianke

太强大啦，亲

2667884679

请教ivccav老师，

我添加ListBox到工作表中时，
一开始时无法选取，
需要去打开设计模式又关掉设计模式之后，
才能选取内容，
这是哪里出了问题？
麻烦拨冗解惑，谢谢。

ivccav

2667884679 发表于 2024-2-6 18:29
请教ivccav老师，

我添加ListBox到工作表中时，

在工作表中加入的控件，都必须退出“设计模式”才能使用。

2667884679

ivccav 发表于 2024-2-7 21:27
在工作表中加入的控件，都必须退出“设计模式”才能使用。

ivccav老师 您好，

感谢您的回复，
我没有把问题说明清楚，
当我点击单元格时，旁边就会出现LISTBOX的控件，
这时候我点开发工具选项卡，
设计模式是退出状态的，(如下图)
但还是无法点选LISTBOX里面的内容，
必须先点一次设计模式，进入设计模式，
然后又再点一次设计模式退出，
这时LISTBOX中的内容才有办法被点选。
不确定是我代码有问题或是这本来就会这样子？
是否有解方？
年关将近还让您拨冗指导，非常感谢，提早给您拜个早年，

2667884679

@ivccav老师，
我在其他文章收到回复，
终于解决问题，
在这里也做个反馈，
---------------
With lstBox
        .Top = rng.Top
        .Left = rng.Left + cw
End With
---------------
有老师回复这里加上.Activate就可以，
于是将这段改写成下面这样，
--------------
With lstBox
        .Activate
        .Top = rng.Top
        .Left = rng.Left + cw
End With

---------------
但会出现"类 OLEObject 的 Activate 方法无效"

我就随便乱试，再把下面这段的Private拿掉，然后就可以正常执行了(瞎猫碰上死耗子)，
------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call a
End Sub

-----------------
但我觉得这个跟有没有Private好像没啥关系，又加回去看看，
然后还是可以正常执行，
所以究竟花生了什么事我也不甚明白，
总之加入.Activate是可以解决的，
在这里反馈提供参考，感谢各位先进的襄助。