《表单控件的列表框添加数据源(VBA)》由会员分享，可在线阅读，更多相关《表单控件的列表框添加数据源(VBA)（3页珍藏版）》请在装配图网上搜索。
1、表单控件（EXCEL窗体）的列表框添加数据源（VBA）先建立如图模型审AECDEA2BA3办4D5E6F78代码1Sub setdata()Dim shp As ShapeSet shp = ActiveSheet.Shapes(1)shp.ControlFormat.ListFillRange = A1:A6End Sub运行结果：代码2Sub setdata()Dim shp As ShapeDim i As IntegerSet shp = ActiveSheet.Shapes(1)With shp.ControlFormatFor i = 1 To 6.AddItem Range(A
2、& i)NextEnd WithEnd Sub运行结果：ACDEA2BA3-：4.Di)5EE6FF78*9代码3Sub setdata()Dim shp As ShapeDim i As IntegerDim arrDim obj As ObjectSet shp = ActiveSheet.Shapes(1)Set obj = shp.ControlFormatarr = Range(A1:A6) obj.List = arrEnd Sub运行结果：1. 代码 1 与直接在 EXCEL 操作录制宏得到的代码是一样的，运行后在设置控件格式里可以看到设置的数 据源，但是代码2和代码3无法在EXCEL的设置控件格式中看到设置的数据源，如下图，数据源区域 中将会是空2. 代码 3 中要注意一下，在赋值的过程中必须要通过一个 Object 对象和数组来过渡，不能在一个表达 中一次性完成，即shp.ControlFormat.List = arr 和obj.List = Range(A1:A6) 都是错误的，当然再进一步用一句代码完成也是无法实现的。
表单控件的列表框添加数据源(VBA)
