VBA LISTBOX初始化代码
2013-11-15 16:37
288 查看
Private Sub UserForm_Initialize()
Dim lsb As Worksheet
Set lsb = Sheets("临时表")
X = lsb.[a65536].End(3).Row
With ListBox1
.ColumnCount = 7 '设置7列
.ColumnWidths = "30,70,70,70,70,70,50" '设置每列宽度
.ColumnHeads = True '是否有标题表头
.RowSource = lsb.Range("a2:g" &
X).Address(External:=True) '设置内容
End With
End Sub
Dim lsb As Worksheet
Set lsb = Sheets("临时表")
X = lsb.[a65536].End(3).Row
With ListBox1
.ColumnCount = 7 '设置7列
.ColumnWidths = "30,70,70,70,70,70,50" '设置每列宽度
.ColumnHeads = True '是否有标题表头
.RowSource = lsb.Range("a2:g" &
X).Address(External:=True) '设置内容
End With
End Sub
相关文章推荐
- VBA数组入门
- VBA 处理字符串
- VBA计算某个集合中哪6个数字的和为…
- VBA窗体模拟显示进度条
- VBA 获取和设置(文件和文件夹属性…
- VBA 检查文件或文件名是否存在
- VBA ADO连接语法及常用参数
- VBA-循环赋值CheckBox
- VBA檢查文件夾里是否存在指定文件…
- VB.net 应用积累
- vb.net 灵活注册事件,达到可以有条件调用事件的目的
- VB.Net 文本框TextBox只允许输入数字判断
- vb.net类的属性定义,使用方式
- VB.NET中IDictionaryEnumerator使用示例
- 按键(vb)启动指定目录的程序以及获取当前应用路径
- Excel删除某一行之后的所有数据 及VBA运行方法
- 访问Vbox的web服务
- VB的一些项目中常用的通用方法-一般用于验证类
- VB将MSHFlexGrid数据导出到Excel文件通用功能
- VB高效导入Excel2003和Excel2007文件到MSHFlexGrid控件显示