vba编程代码大全(附:所有代码大全及语法)

Excel 中的列表框操作，可以很有序地实现选择功能，本文将介绍一个对象，以实现对列表框的新建、删除等操作。

ControlFormat对象可以通过Shape对象的ControlFormat属性返回。

如下代码：

Set xListObj = Shapes(2).ControlFormat

xListObj就是一个ControlFormat对象。

ControlFormat方法和属性

如上图所示，本示例实现多种方法给ListBox控件添加列表值。

首先新建一个列表框，代码如下：

PrivateSub AddListBox()\\\’新建ListBox列表框DimxShape As ObjectSetxShape = Me.Shapes.AddFormControl(xlListBox, 100, 100, 210, 280)SetxShape = NothingEndSub

利用Additem 方法添加列表值

Private Sub AddListItems() \\\’添加列表值 On Error Resume Next Dim xShape As Object Dim xListObj As Object SetxListObj = Shapes(2).ControlFormat WithxListObj .RemoveAllItems .AddItem \\\”列表1\\\”.AddItem \\\”列表2\\\”.AddItem \\\”列表3\\\”EndWithSetxListObj = NothingSetxShape = NothingEndSub

List方法添加列表值

Private Sub AddListItems() \\\’添加列表值 On Error Resume Next Dim xShape As Object Dim xListObj As Object SetxListObj = Shapes(2).ControlFormat xListObj.List = Array(\\\”eee\\\”, \\\”dddd\\\”, \\\”fff\\\”) SetxListObj = NothingSetxShape = NothingEndSub

ListFillRange属性设置列表值

PrivateSub AddlistRange()\\\’添加列表值OnError Resume NextDimxShape As ObjectDimxListObj As ObjectSetxListObj = Shapes(2).ControlFormatxListObj.ListFillRange= \\\”B3:B10\\\”SetxListObj = NothingSetxShape = NothingistFillRangeEndSub

删除列表值

PrivateSub DelListItems()\\\’删除列表值OnError Resume NextDimxShape As ObjectDimxListObj As ObjectSetxListObj = Shapes(2).ControlFormatWithxListObj.RemoveItem.ListIndexEndWithSetxListObj = NothingSetxShape = NothingEndSub

ListBox列表框在编写种类功能性应用时，非常方便，熟练掌握可大大提高对Excel表格的自动化应用技巧。

赞 (0) 打赏

分享人：江逐浪，中国传媒大学副教授，广播电视艺术学博士，主要从事影视艺术和文艺美学、文化学研究。在中国传媒大学开设本科生通识课《希腊神话与西方艺术》、研究生通识课《欧洲艺术史》和其…

养老房现在已经成为一种时髦，主要是因为我们现在已经进入老龄化社会，处于老人晚年幸福的要求，也就催生了养老产业的发展。毫无疑问，我国海南省的海花岛作为一座人工岛，气候适宜，尤其值得老…

“四十而不惑”这句话出自《论语》，意思是人到了40岁，对于生活就不会充满无知和困惑，对于人生拿捏得清楚、明白。 也可以认为，到了40岁，人就没有什么顾虑和疑惑了。 所以说，人到了4…

SEO专员 2022年9月13日 • 投稿 00