作者：绿色风
分类：
时间：2022-08-17
浏览：71
楼主
水星钓鱼 |
Q：运行以下代码- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- On Error Resume Next
- Dim ole As OLEObject
- Dim obj
- Dim oWS As Worksheet
- Set oWS = Target.Parent
- If oWS.OLEObjects.Count >= 1 Then
- For Each ole In Me.OLEObjects
- ole.Delete
- Next
- End If
- '在工作表中新建一个列表框控件（ActiveX控件)
- Set ole = oWS.OLEObjects.Add(ClassType:="Forms.ListBox.1")
- '将封装的列表框控件赋值给obj对象变量
- Set obj = ole.Object
- '给列表框附初值
- obj.List = Array(1, 2, 3)
- End Sub
将在工作表中单击单元格的同时新建一个列表框控件，但是新建的列表框控件无法选中其中的项目，必须执行一次“打开设计模式”-“关闭设计模式”操作才可以激活该控件，如何用代码一次性实现以上目的呢？
A：需要使用OLEObject对象的verb方法给该控件发送一个默认的操作，达到激活该对象的目的，修改后的代码如下：- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- On Error Resume Next
- Dim ole As OLEObject
- Dim obj
- Dim oWS As Worksheet
- Set oWS = Target.Parent
- If oWS.OLEObjects.Count >= 1 Then
- For Each ole In Me.OLEObjects
- ole.Delete
- Next
- End If
- '在工作表中新建一个列表框控件（ActiveX控件)
- Set ole = oWS.OLEObjects.Add(ClassType:="Forms.ListBox.1")
- '将封装的列表框控件赋值给obj对象变量
- Set obj = ole.Object
- '给列表框附初值
- obj.List = Array(1, 2, 3)
- ole.Verb
- End Sub
附件如下：
 自动添加列表框控件.rar
|
2楼
xmyjk |
谢谢水星分享。 |
3楼
天空真蓝/qt |
写的真好，感谢水星，我在社区里发了个类似的问题，麻烦水星大架光临。
http://www.exceltip.net/thread-49177-1-1.html
|
4楼
xd3210 |
响应它的change和dbclick事件又如何写呢？请水版指点！ |
5楼
老糊涂 |
谢谢水星分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一