表单控件(EXCEL窗体)的列表框添加数据源(VBA)

表单控件（EXCEL窗体）的列表框添加数据源（VBA）先建立如图模型

代码1

Sub setdata()

Dim shp As Shape

Set shp = ActiveSheet.Shapes(1)

shp.ControlFormat.ListFillRange = "A1:A6"

End Sub

运行结果：

代码2

Sub setdata()

Dim shp As Shape

Dim i As Integer

Set shp = ActiveSheet.Shapes(1)

With shp.ControlFormat

For i = 1 To 6

.AddItem Range("A" & i)

Next

End With

End Sub

运行结果：

代码3

Sub setdata()

Dim shp As Shape

Dim i As Integer

Dim arr

Dim obj As Object

Set shp = ActiveSheet.Shapes(1)

Set obj = shp.ControlFormat

arr = Range("A1:A6")

obj.List = arr

End Sub

运行结果：

1.代码1与直接在EXCEL操作录制宏得到的代码是一样的，运行后在设置控件格式里可以看到设置的数

据源，但是代码2和代码3无法在EXCEL的设置控件格式中看到设置的数据源，如下图，数据源区域中将会是空

2.代码3中要注意一下，在赋值的过程中必须要通过一个Object对象和数组来过渡，不能在一个表达

中一次性完成，即

shp.ControlFormat.List = arr 和

obj.List = Range("A1:A6")

都是错误的，当然再进一步用一句代码完成也是无法实现的。