附:所有代码大全及语法 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 = 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【附:所有代码大全及语法 vba编程代码大全】 ListBox列表框在编写种类功能性应用时，非常方便，熟练掌握可大大提高对Excel表格的自动化应用技巧。

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

推荐阅读

十大足浴液品牌排行榜：干草妍上榜，狮傲康第一

关于中秋节的六个传说中秋节的传说

炸糖糕烫面要加生面吗

请问我怎么提高学生的学习成绩

户外逆光摄影技巧逆光拍摄的3个技巧

东川省在中国什么地方

芦荟砍头方法如何给一棵芦荟砍头

社会保障卡密码忘了怎么找回

济宁失业金怎么申请领取济宁失业险领取条件

肠胃不好不宜吃的水果有哪些？胃不好不能吃的水果有哪些？

巧克力草莓的做法（湖北小吃）

苹果马提尼鸡尾酒的做法

瘦身养颜汤做法

兰芳园丝袜奶茶好喝吗多少钱

北岳恒山在哪个省有这个景点的介绍吗

为什么警车来了要开警报

男人醉酒后必备的九种家常解酒食物

豆角炒肉怎么做好吃

同学聚会祝酒词怎么写

因为烹饪方式不同英语