附:所有代码大全及语法 vba编程代码大全 _生活百科

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

文章插图
ControlFormat对象可以通过Shape对象的ControlFormat属性返回。
如下代码：
Set xListObj = Shapes(2).ControlFormat
xListObj就是一个ControlFormat对象。
ControlFormat方法和属性
方法
属性
AddItem
Application
List
Creator
RemoveAllItems
DropDownLines
RemoveItem
Enabled
LargeChange
LinkedCell
ListCount
ListFillRange
ListIndex
LockedText
Max
Min
MultiSelect
Parent
PrintObject
SmallChange
Value

文章插图
如上图所示，本示例实现多种方法给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 = NothingEndSubListFillRange属性设置列表值
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 = NothingEndSubListBox列表框在编写种类功能性应用时，非常方便，熟练掌握可大大提高对Excel表格的自动化应用技巧。
赞 (0) 打赏

文章插图

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

文章插图

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