设为首页收藏本站|繁體中文

Excel 技巧网

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 17352|回复: 4

[Excel VBA] 如何给列表框控件(ListBox)添加条目、设置列宽、添加标题?

[复制链接]
发表于 2010-11-26 16:24:08 | 显示全部楼层 |阅读模式
  • 署名作者: gvntw
  • 版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
  • 本文来自:
  • 引用作品:
  • 适用版本: 2010 2007 2003以前版本 
  • 语言环境: 简体中文
  • 学习方法: 掌握Excel技巧的关键是动手操作 | 下载 ≠ 知识


  • 免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

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

    x
    Q:如何给列表框控件(ListBox)添加条目、设置列宽、添加标题?
    A:一、添加条目以下几种方法都可以。
    1、在控件的 RowSource 属性输入引用的单元格地址。
    知识扩展:输入单元格地址后,在窗体中将直接显示可以看到的结果,如下图所示:

    如何给列表框控件(ListBox)添加条目、设置列宽、添加标题?

    如何给列表框控件(ListBox)添加条目、设置列宽、添加标题?

    注意:在控件的 RowSource 属性输入引用的单元格地址时,必须包含工作表名,否则,显示的条目将是活动工作表的单元格内容。
    2、在窗体的 Initialize 事件设置RowSource 属性,示例代码如下:
    1. Private Sub UserForm_Initialize()
    2.     Me.ListBox1.RowSource = "Sheet1!A1:A6"
    3. End Sub
    复制代码
    3、使用 AddItem 方法,示例代码如下:
    1. Private Sub UserForm_Initialize()
    2.     With Me.ListBox1
    3.         .RowSource = ""
    4.         .AddItem "初中及以下"
    5.         .AddItem "高中或中专"
    6.         .AddItem "大专"
    7.         .AddItem "本科"
    8.         .AddItem "硕士研究生"
    9.         .AddItem "博士研究生"
    10.     End With
    11. End Sub
    复制代码
    4、使用数组对 ListBox 的 List 属性赋值,示例代码如下:
    1. Private Sub UserForm_Activate()
    2.     MyList = Array("初中及以下", "高中或中专", "大专", "本科", "硕士研究生", "博士研究生")
    3.     Me.ListBox1 .RowSource = ""
    4.     Me.ListBox1.List = MyList
    5. End Sub
    复制代码
    二、添加多列、并设置列宽和标题,示例代码如下:
    1. Private Sub UserForm_Initialize()
    2.     With Me.ListBox1
    3.         .RowSource = "Sheet1!I2:K7"
    4.         .ColumnCount = 3  '设置3列
    5.         .ColumnHeads = True '设置标题
    6.         .ColumnWidths = "30;30;30"  '设置列宽
    7.     End With
    8. End Sub
    复制代码
    注意:有列标题时,不要把列标题包含RowSource属性的单元格区域,VBA会自动取RowSource指向的单元格区域第1行上方的行单元格。
    知识扩展:列宽由ColumnWidths属性决定,每个数字间用半角分号隔开,列宽单位为磅(pints),既1/72英寸。
    示例附件: ListBox.rar (20.52 KB, 下载次数: 109)
    发表于 2012-3-2 17:04:18 | 显示全部楼层
    vba中的窗体应用,学习!
    回复 支持 反对

    使用道具 举报

    发表于 2014-5-4 23:31:21 | 显示全部楼层
    除了使用RowSource之外,还有其他方法可以设置ListBox的标题吗?
    回复 支持 反对

    使用道具 举报

    发表于 2015-5-7 09:52:56 | 显示全部楼层
    霜无可奈何顶戴工工
    回复 支持 反对

    使用道具 举报

    发表于 2015-5-7 09:53:24 | 显示全部楼层
    压标地城下于二地厅
    回复 支持 反对

    使用道具 举报

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

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    Archiver|手机版|Excel技巧网 ( 闽ICP备08107682号-2

    GMT+8, 2019-10-14 08:55

    Powered by Discuz! X3.4

    © 2001-2017 Comsenz Inc.

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