【分享成果，随喜正能量】人生是需要等候的，等候一阵风的拂过，等候一朵花的盛开，等候伊人的到来，等候生命爆发的强音。心灵是需要在等候中坚守的，坚守无风的日月，坚守落花的寂寞，坚守情感的空白，坚守生活的平凡。懂得等候与坚守，我们才能从容不迫，最终能够沐浴清风，笑看花开，情有所属，人生无悔。

《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是“VBA之EXCEL应用”的第十五章“ActiveX控件（ActiveX Controls）”的第4节：列表框（List Box）之应用实例

大家好，我们这讲开始列表框的学习。这个控件显示一个值列表，并允许用户选择其中的一个或多个值。可以说这个控件无论是VBA还是VB都是一个非常重要的控件。用这个控件显示值或者选择多个值都是非常方便的操作。

为了在工作表窗口添加列表框控件，我们在工作表窗口“开发工具”中，单击“插入”。在弹出的控件列表中选择“列表框”。

然后，在工作表上拖动，这时就在工作表上出现了列表框，如下：

我们可以通过右键单击控件(确保选择了设计模式)，然后单击属性来更改控件的名称。这里，我们保留ListBox1作为列表框的名称。如下面图：

这种修正方法类似于之前text文本框的属性修改。在接下来的讲解中，我会给大家讲解一下这个控件的属性和方法。其中一些属性和方法是各个控件所通用的。

1）BackColor 属性：设定Listbox的背景色。可采用任意整数来表示某一种有效的颜色，也可采用由红、绿、蓝三种成分构成的RGB 函数来指定颜色，每一种色素的值是0 至255 之间的任意整数。

2）BorderColor 属性：指定Listbox的边框颜色。

3）BorderStyle 属性：指定Listbox边框类型。其值可为fmBorderStyleNone ：控件无可见的边框线（默认值）和fmBorderStyleSingle：控件有一单线的边框。BorderStyle 用 BorderColor 来定义其边框的颜色。

4）ColumnCount 属性：指定Listbox的显示列数。

5）ColumnWidths 属性：指定多列的Listbox中的各列的宽度。以磅为单位，设为 0 时则隐藏该列。ColumnWidths接受一个字符串参数，假如Listbox控件有3列，可这样设置：ListBox1.ColumnWidths = "80;90;100"。

6）ColumnHeads 属性：设置是否显示Listbox列标题，布尔值。只有设置RowSource时，才可以显示标题。通过AddItem、List或Column赋值的Listbox无法显示标题。

7）Enabled 属性：指定一个控件能否接受焦点和响应用户产生的事件。

8）Font 对象：定义控件所用文字的特征，包括字体，字号大小，斜体，下划线等。

9）ForeColor 属性：指定控件的前景色，即文字的颜色。

10）Height、Width 属性：设置或返回控件的高度和宽度，以磅为单位。

11）Left、Top 属性：控件与所在容器的左边或顶边之间的距离。

12）ListStyle 属性：规定列表框列表的外观。可选值有两个：fmListStylePlain 和fmListStyleOption。fmListStyleOption显示选项按钮，形状跟MultiSelect属性有关。当Listbox可以多选时，选项按钮为方形□，否则为圆形○。

13）MultiSelect 属性：设置Listbox控件是否允许多项选择。可选值为：

fmMultiSelectSingle 只可选择一个条目（默认）。fmMultiSelectMulti 按空格键或单击鼠标以选定列表中条目或取消选定。fmMultiSelectExtended 按Shift并单击鼠标，或按Shift的同时按一个方向键，将所选条目由前一项扩展到当前项。按Ctrl的同时单击鼠标可选定或取消选定。

14）TextAlign 属性：定义控件中文本的对齐方式。其值可为：fmTextAlignLeft 将所显示文本的第一个字符与控件显示或编辑区的左边界对齐（默认值）。fmTextAlignCenter 在控件的显示或编辑区中，使文本中央对齐。fmTextAlignRight 将所显示文本的最后一个字符与控件显示或编辑区的右边界对齐。

15）TopIndex 属性：设置和返回出现在表格最顶端位置的项目。出现在顶端位置的表项的编号默认值是 0（或表中第一个项目）。如果表是空的或未被显示，返回值为 -1。

16）Visible 属性：定义一个对象是可视的还是被隐藏的。

今日内容回向：

1） 如何在工作表上添加列表框？

2） 列表框控件的属性有哪些？

本讲内容参考程序文件：工作簿15.xlsm

分享成果，随喜正能量

VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了八部VBA专门教程，学习顺序七、一（或者四）、三、二、六、五；或者七、八。其中七，一（或者四）是初级；三，二，八是中级；六，五是高级：

第一套：VBA代码解决方案 是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。

第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。

第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。

第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，视频更易接受。

第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。

第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。

第七套教程：VBA之EXCEL应用 这是一部初级教程这部教程共三册，从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起，到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用，函数过程等方面，一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须。

第八套教程：VBA之WORD应用 是围绕“面向对象编程”展开的讲解，让大家充分认识Word中VBA的对象，以及对象的属性、方法及利用。教程共分三册，十六章，其中前十五章是各种对象属性、方法的讲解，每节都有专门的实例说明这些属性方法的具体应用，最后一章是结和具体应用场景的讲解，详细讲解了二十八个实际工作中有代表性的实例，紧扣word数据的批量处理，发挥VBA的长处。本套教程实例众多，大家可以拿来即用，或者修正后加以利用。由于这套教程是围绕“面向对象编程”来展开，建议大家先学《VBA之Excel应用》，对VBA中的对象、属性、方法、事件有一定认识后再来学习这套教程。