关于窗体复合框下拉列表中内容设置的问题，求教各位老师帮忙！

leecc3ii

grf1973 发表于 2014-1-21 08:46
那这样最简单了。

您好，老师！请教一下：
Private Sub UserForm_Initialize()
    Dim nColumn%, Arr()
    Workbooks("基站信息表20151204.xlsx").Activate
    noColumn = Range("1XFD").End(xlToLeft)    '上表中的第一行非空单元格数据
    Arr = ThisWorkbook.Sheets(4).Range(nColumn & "1a:1").Value
    gcl.List = Arr '用数组给ComboBox(已用gcl替换)设置数据源
End Sub
   我想用上边的代码来实现在在复合框下拉列表中填充“基站信息表20151204”的第一行非空单元格的内容，提示 “方法range作用于对象_Global时失败”，烦请您给予指点，谢谢

盘尼西林99

先收藏,后消化

曾焱

真不错！！！！！！！！！！

是杨洋啊

厉害了 先收藏收藏

熊文来

grf1973 发表于 2015-1-15 10:27
可以用数组啊，把需要共用一条下拉内容的复合框名放进数组里。比如
arr=array("combobox2","、combobox9", ...

大师，帮忙看看我的文件。谢谢！

1.填写排查时间：
2.填写班主任姓名：
3.每个班级按照2页进行填入。文件里已经设置了打印标题。因为排版问题，第1页填入前面31个学生的数据，第2页填写剩余学生的数据。
4.在第2页最后一行需要统计各项目的总数。
5.第2页还有一条备注。
6.每个班生成独立的工作簿，并用班级作为文件名
7.因为最后还要打印纸质文件，正反面打印。所以希望能添加打印选项，打印第1页还是第2页。
麻烦大师帮忙看看 谢谢！