元元娱

 找回密码
 立即注册
搜索
查看: 6073|回复: 0

EXCEL VBA ListBox 控件如何多列显示并添加数据

[复制链接]

19

主题

19

帖子

3000万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
30000099
发表于 2016-10-14 08:00:31 | 显示全部楼层 |阅读模式
代码如下

Private Sub CommandButton1_Click()
Dim i As Integer

UserForm4.ListBox1.ColumnCount = 4  '列数

ListBox1.AddItem                        '增加表头
ListBox1.List(0, 0) = "序号"
ListBox1.List(0, 1) = "姓名"
ListBox1.List(0, 2) = "工资"
ListBox1.List(0, 3) = "备注"

For i = 1 To 20                  '循环添加数据

    ListBox1.AddItem
    ListBox1.List(i, 0) = i
    ListBox1.List(i, 1) = "姓名"
    ListBox1.List(i, 2) = "工资"
   
Next i

End Sub


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|元元娱 ( 冀ICP备15001683号

GMT+8, 2017-11-21 12:08 , Processed in 0.112486 second(s), 23 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表