下载文档原格式
（九）列表框（ListBox）为用户提供选项列表，可选一项或多项，但不能进行类似文本框的编辑修改。
项目数超出列表框显示的范围，会自动添加垂直滚动条（若是多列列表，可添加水平滚动条）。
无下拉按钮。
一、列表框的属性：1．Name属性：2．Text属性：（编程用）总是对应用户在运行时选定的列表项目的内容。
3．ListIndex属性：（编程用）（1）设置列表框中当前要选用的项目，相当于触发Click事件。
（2）返回列表框中当前选中项目的索引值：第一项为0，第二项为1……未选中为– 14．NewIndex属性：（编程用）始终定位在最后一个添加到列表中的项目的索引值。
5．List属性：（编程用）本属性包括项目全部组成的一个数组，以下标来区分每一个项目元素，引用格式为：<控件名>．List（<索引值>）6．ListCount属性：（编程用）返回列表框中项目的总数（最大索引值 + 1）。
7．Sorted属性：选True时，自动按字母顺序排序。
（缺省值为False）8．Selected（索引值）属性：（编程用）返回值为True时，表示索引值所指的项目被选中。
9．Style属性：0：表示只能单选（默认值）1：表示可选多项10．MultiSelect属性：0：表示只能单选1：可用鼠标单击方式选多项2：可用 <Ctrl> + 单击或 <Shift> + 单击的方式选多项二、列表框的事件和方法：1．Click事件：2．Dblchick事件：注：程序中常应考虑到双击某一项目的效果，应和单击该项目后再单击一命令按钮（如“确定”）的效果相同。
（方法是：将<命令按钮名>_Click 或 <命令按钮名>．Value=True 的语句放入双击列表的事件过程中。
）3．AddItem方法：（1）向列表中添加项目，引用格式为：<列表框名>．AddItem <项目字符串表达式> [，<索引值>]（2）说明：①本方法通常用在Form_Load（）事件的过程中。
列表框和下拉列表框基本控件谈之二：使用列表框和下拉列表框列表框和下拉列表框(即Style属性为2的组合框控件---下拉列表)为用户提供了包含一些选项和信息的可滚动列表。
列表框中，任何时候都能看到多个项；而在下拉列表中，只能看到一个项，用户可单向下按钮来显示可滚动的下拉列表框。
要查看如何使用列表框和下拉列表框的演示示例，请看SAMPLES\SOLUTON目录下的SOLUTION.APP，其中包括下列内容：●向一个列表中添加图片。
●在一个列表中选择多项。
●使用不同来源的值填充列表。
●排序列表中的各项。
●在列表之间移动项。
注意：如果表单上有足够的空间，并且想强调可以选择的项，请使用列表，要想节省空间，并且想强调当前选定的项，请使用下拉列表框。
（1）常用的列表属性和方法程序设计时经常设置的列表框属性：注意：列表的Value属性可以是数值型，也可以是字符型，默认值为数值型。
如果RowSource是一个字符型值，并且用户想让Value 属性反映列表中选定的字符串，请将Value的属性输入一个空串。
常用的列表框方法程序：（2）填充列表框或组合框通过设置RowSourceType和RowSource属性，可以用不同数据源中的项填充列表框。
RowSourceType属性决定列表框或组合的数据源类型（如数组或表）。
设置好RowSourceType后，设置RowSource属性可指定列表项的数据源。
RowSourceType属性与列表项数据源以下详细介绍RowSourceaType的不同设置。
●无：如果将RowSourceaType属性设置为0（默认值），则不能自动填充列表项。
可以用AddItem方法程序添加列表项：frmForm1.lsaMyList.RowSourceType = 0frmForm1.lsaMyList.AddItem("First Item")frmForm1.lstMyList.AddItem("Secomd Item")frmForm1.lstMyList.AddItem("Secomd Item")RemoveItem方法程序从列表中移去列表项。
在Excel中，列表框是一个非常实用的工具，它为用户提供了一组条目（数据项），用户在使用时可以通过鼠标选择一个或多个条目。
列表框不仅可以用于显示数据，而且还可以作为输入控件，使数据的输入更加轻松。
要将列表框添加到Excel工作表中，你需要先选中"列表框"，然后在右键的下拉菜单中点击"控件设置"。
接着，你可以在"设置控件格式"对话框中点击"控制"菜单，然后选取"数据源区域"和"单元格链接"。
完成这些步骤后，点击【确定】即可。
对于列表框的使用方法，主要包括以下几种：
1. Clear 方法：此方法可以从Listbox控件中删除所有项。
2. RemoveItem 方法：此方法用于从列表框或组合框的列表中删除一行。
语法是：Listbox1.RemoveItem index，其中index指定要删除的行，第一行的行号为0，第二行的行号为1，依此类推。
3. AddItem 方法：对于单列的列表框，可以使用此方法在列表中添加一项。
对于多列的列表框或组合框，此方法可以在列表中添加一整行。
6、列表框（List Box） 列表框为⽤户提供了选项的列表。
作⽤:显⽰项⽬列表，⽤户可从中选择⼀个或多个项⽬。
（1）List Box控件常⽤的⽅法⽅法描述AddItem向列表框添加新项⽬，其格式为：ListBox控件名．AddItem＜项⽬＞[，＜索引值＞]其中：为字符串表达式，表⽰添加到列表框中的新项⽬。
为数值表达式，指定在列表框中插⼊新项⽬的位置。
若为0，则插⼊到第⼀个项⽬位置；若缺省且Sorted属性为False，则插⼊到最后⼀个项⽬位置；若缺省且Sorted属性为True，则插⼊到合适的排序位置。
RemoveItem从列表框中删除项⽬，其格式为：ListBox控件名．RemoveItem＜索引值＞Clear清除列表框中所有项⽬，其格式为：ListBox控件名.Clear例如添加代码到List1列表框中，运⾏后的结果如下：Private Sub Form_Load()List1.AddItem "Germany"List1.AddItem "India"List1.AddItem "France"List1.AddItem "USA"List1.AddItem "Japan", 0List1.AddItem "China", 1End Sub要从列表中删除项⽬，可使⽤RemoveItem⽅法，如要删除列表中的第⼀个项⽬，可添加如下代码：Private Sub Command1_Click()List1.RemoveItem 0End Sub要删除连结版或标准版的列表框、组合框中的所有项⽬。
可使⽤Clear⽅法：List1.Clear注意：1）可以在设计时添加项⽬。
做法：选列表框“属性”窗⼝中[List]属性，在下拉的空⽩框中输⼊项⽬，并按[CTRL]+[回车]键进⾏换⾏。
Excel设置数据有效性实现单元格下拉菜单的3种方法一、直接输入：1.选择要设置的单元格，譬如A1单元格；2.选择菜单栏的“数据”→“有效性”→出现“数据有效性”弹出窗口；3.在“设置”选项中→“有效性条件”→“允许”中选择“序列”→右边的“忽略空值”和“提供下拉菜单”全部打勾→在“来源”下面输入数据，譬如“1,2,3,4,5,6,7,8,9”(不包括双引号，分割符号“,”必须为半角模式)→按“确定”就OK了，再次选择该A1单元格，就出现了下拉菜单。
二、引用同一工作表内的数据：如果同一工作表的某列就是下拉菜单想要的数据，譬如引用工作表Shee t1的B2：B5，B2：B5分别有以下数据：1、2、3、4，操作如下：1.选择要设置的单元格，譬如A1单元格；2.选择菜单栏的“数据”→“有效性”→出现“数据有效性”弹出窗口；3.在“设置”选项中→“有效性条件”→“允许”中选择“序列”→右边的“忽略空值”和“提供下拉菜单”全部打勾→在“来源”下面输入数据“=$B$2:$B$5”，也可以按右边带红色箭头的直接选择B2：B5区域→按“确定”就OK了，再次选择该A1单元格，就出现了下拉菜单。
三、引用不同工作表内的数据（必须用到定义名称）：如果不同工作表的某列就是下拉菜单想要的数据，譬如工作表S heet1的A1单元格要引用工作表She et2的B2：B5区域，工作表She et2的B2：B5分别有以下数据：1、2、3、4，操作如下：1.定义名称：菜单栏→“插入”→“名称”→“定义”→弹出“定义名称”窗口，在“在当前工作薄中的名称”下面输入“DW”（可以自己随便明明）→“引用位置”下面输入“=Sheet2!$B$2:$B$5”，也可以按右边带红色箭头的直接选择B2：B5区域→按“添加”后再按“确定”完成第一步。
文章标题：探讨Excel VBA列表框的用法与应用1. 前言Excel VBA是一种强大的工具，可以帮助用户在Excel中自动化执行任务和处理数据。
其中，列表框是VBA中常用的控件之一，它可以用于展示、选择和操作数据。
在本文中，我们将深入探讨Excel VBA列表框的用法与应用，帮助读者更好地理解和利用这一功能。
2. Excel VBA列表框的基本概念列表框是VBA中的一种控件，它允许用户在一组选项中进行选择。
在Excel中，我们可以通过VBA代码来创建列表框，向其中添加选项，并对用户的选择进行响应。
列表框通常用于展示一系列相关的选项，让用户选择其中一个或多个，以便后续处理。
3. 列表框的创建和设置要在Excel中使用列表框，首先需要在VBA中创建一个用户窗体或工作表表单，并向其中添加列表框控件。
我们可以通过VBA代码来设置列表框的各种属性，如大小、位置、字体、颜色等。
另外，还可以通过代码向列表框中添加选项，设置默认选择项，以及与其他控件进行联动。
4. 列表框的基本用法一旦列表框创建并设置好了，我们就可以利用VBA代码来实现各种功能。
可以通过代码动态地向列表框中添加选项，或者根据条件来隐藏或显示特定的选项。
还可以通过代码来获取用户的选择，进行相应的数据处理或操作。
5. 列表框的高级应用除了基本的使用方法外，列表框还可以用于一些高级的应用场景。
可以利用列表框来实现数据筛选和搜索功能，让用户根据特定条件来选择数据。
另外，还可以通过列表框来实现数据的多选和批量操作，大大提高工作效率。
6. 个人观点和理解对于Excel VBA列表框的用法与应用，我个人认为它是一个非常实用的功能，可以帮助用户更高效地处理和操作数据。
通过合理地设置和利用列表框，可以让Excel表格变得更加灵活和易用。
我在实际工作中也经常使用列表框来实现各种功能，深感它的强大和实用。
7. 总结Excel VBA列表框是一个功能强大的控件，可以帮助用户在Excel中实现数据的展示、选择和操作。
4.4 列表框
本节主要内容：1 、列表框的常用属性 2 、列表框的常用方法
（用于提供一些可供选择的列表项目，用户可从中选择一项或多项。
）
在实际应用中，常常有这样的情况：列出若干个项，供用户从中任意选择，并对其作某种处理。
如果项目较多，超过了列表框的长度，则系统自动在列表框边上加一个垂直滚动条，通过移动滚动条可以使列
表框中的内容作上下滚动，以使用户能够看到所需要的内容，列表框的图标为。
1 、列表框的常用属性（返回）
1 .List 属性
用于设置或返回控件的列表项的内容。
既可在属性窗口中设置，也可在设计中设置。
该属性是一个字符串数组，每个数组元素都是列表框中的一个列表项。
List 数组的下标从 0 开始，即List （ 0 ）保存表中的第一个数据项的内容， List （ 1 ）保存第二个数据项的内容，依次类推， List （ ListCount-1 ）保存表中的最后一个数据项的内容。
2 .ListCount 属性
表示列表框中有多少个列表项。
ListCount-1 代表列表框中最后一项的序号。
该属性只能在程序中引用它。
3 .Text 属性
返回被选中列表项的文本内容，与 List(ListIndex) 相同。
该属性是只读的，不能在属性窗口中设置，也不能在程序中设置，如果列表框中选择了多项，列表框的 Text 属性返回的是最后一次选中的文本内容。
4 .ListIndex 属性
使用 ListIndex 属性判断列表框中哪个项被选中，即设置或返回被选中的选项在 List 数组中的下标序号。
① 如果用户没有从列表框中选择任何一项，则 ListIndex 为 -1 。
② 在列表框 List1 中选中第3 项，即 List1.List 数组的第 3 项，则 ListIndex ＝ 2 （ ListIndex 从 0 开始）。
③ 与 List 配合使用，可获得当前被选中的列表项的内容。
List1.List （ List1. ListIndex ）。
④ 设置默认选项 List1. ListIndex=0 ，第 0 项为默认选项。
ListIndex 属性不能在设计时设置，只有程序运行时才起作用。
5 .Selected 属性
该属性是一个逻辑数组，表示相应的项在程序运行期间是否被选中。
例如， List1.Selected （ 0 ）的值为 True ，表示列表框控件中第一项被选中，如为 False ，表示未被选中。
6 .MultiSelect 属性
该属性值表明是否允许在列表框控件中选择多项，它必须在设计时设置，运行时只能读取该属性。
Multiselect 属性值的说明如表所示。
MultiSelect 属性设置说明
7 .Columns 属性
Columns 属性指定列表框中可见列数。
缺省值为 0 ，列表框只允许显示一列。
当 Columns 值大于或等于 1 时，列表框中能显示多列，自动增加滚动条。
8 .Sorted 属性
True ：列表框中的项按字母升序排列。
False ：列表框中的项按加入的先后顺序排列，默认值。
9 .Style 属性
列表框的 Style 属性有两个值， 0( 默认值 ) 和 1 。
对于不同的 Style 值，列表框有不同的形式。
图 4 .5 Style 属性示例
2 、列表框的常用方法（返回）
1 .AddItem 方法
该方法向列表框中加入列表项，其语法是：
对象名 .AddItem 列表项内容 [ ，列表项序号 ]
列表项序号是从 0 开始的顺序号，标明新增的项在列表框中的位置。
如果省略，则把新增的项添加到列表的末尾。
项索引号对应于列表框的 ListIndex 属性，可以通过列表框的 ListIndex 属性确定所选择
的项。
装入列表项内容的语句，通常放在窗体的 Load 事件过程中完成。
List1.AddItem " 北京 " ， 2
【例 4 .4 】实现上图所示的界面设计，用代码实现。
Private Sub Form_Load()
List1.AddItem " 北京 "
List1.AddItem " 上海 "
List1.AddItem " 天津 "
List2.AddItem " 北京 "
List2.AddItem " 上海 "
List2.AddItem " 天津 "
End Sub
2 .RemoveItem 方法
该方法用于删除列表框中的某一个列表项，其语法是：
对象名 .RemoveItem 索引号
List1.RemoveItem 1 ，当执行这个命令后，列表框 List1 中序号为 1 的项被删除。
但是，需要注意的是，后面每个列表项的序号都会自动减 1 。
（避免序号的混乱，利用 Text 属性而不利用 ListIndex 属性。
）
3 .Clear 方法
该方法删除列表框控件中的所有列表项。
其语法是：
对象名 .Clear
补充作业： 1 、例4.6 的扩充，当没有选中列表框中的列表项时，应有处理信息。
2 、修改中奖的例子，当三个标签框出现相同的一位整数时，中奖。
