VBA之Listbox控件基础教程

wlianke · 发表于 2024-1-29 09:03

太强大啦，亲

2667884679 · 发表于 2024-2-6 18:29

请教ivccav老师，

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

ivccav · 发表于 2024-2-7 21:27

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

我添加ListBox到工作表中时，

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

2667884679 · 发表于 2024-2-7 23:13

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

ivccav老师您好，

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

2667884679 · 发表于 2024-2-7 23:45

@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是可以解决的，
在这里反馈提供参考，感谢各位先进的襄助。

风筝那根线 · 发表于 2024-5-6 16:51

本帖最后由风筝那根线于 2024-5-20 15:07 编辑

首先感谢分享，最近不会用，又回来看了一下ListBox的用法

lzqmsy · 发表于 2024-5-6 20:19

再次留个标记,好好学习!

赵桢0611 · 发表于 2024-5-10 02:34

非常好的学习资料，感谢！

浦东坡 · 发表于 2024-5-11 21:45

非常好的资源,学习到了

HANERBABA · 发表于 2024-6-23 14:24

学习了，嘻嘻嘻

		自动登录	找回密码
密码			免费注册

[原创] VBA之Listbox控件基础教程

评分