Excel VBA编程 组合框和列表框控件

Excel VBA编程组合框和列表框控件

在许多情况下，从列表中选择一个值，要比输入一个值更快、更容易。另外，选择列表中的选项，还可以帮助确保输入值的正确性。若需要通过较少空间显示较多数据信息，可以在表单中使用组合框或使用列表框。

1．组合框控件

组合框是一种下拉列表框，在窗体中使用得非常广泛，主要用来显示一些数据项，供用户进行选择。组合框与列表框不同，不会显示其列表项，只有在用户需要时才将其展开，另外，组合框中的列表项每次只能选中一个。

在工作表中添加组合框控件与添加按钮控件的方法相同。组合框控件没有显示文本，只有一个文本框与一个向下箭头图片的按钮组合在一起的控件。

在工作表中添加一个【组合框】控件，然后在工作表中选择一列，并在该列的单元格中连续输入要显示在组合框中的值。右击【组合框】控件，执行【设置控件格式】命令，打开【设置控件格式】对话框。如图11-12所示。

输入

右击

执行

输入

图11-12 【控制】选项卡

在【组合框】控件的【设置控件格式】对话框中，其【大小】、【保护】、【属性】和【Web】选项卡的作用与【按钮】控件中该对话框中相同选项卡的作用一样，在【控制】选项卡中，则用于设置【组合框】控件的显示设置。该对话框中的各项设置的功能如下：

●数据源区域

该文本框用于设置组合框的列表项，文本框中输入工作表内列的开始和结束，如$A1：$A10或A1：A10，表明组合框中的列表项的值为工作表中单元格A1到A10的值。

●单元格链接

在该本文框中输入一个单元格的引用，如$B1或B1，当在组合框中选择了某个选项时，该单元格将显示所选选项在组合框中的位置，其值为数字。

●下拉显示项数

该文本框用于设置组合框的列表中可以看到的选项的行数，当前列表项多于设置的下拉显示项数时，组合框的下拉列表框中多出一个垂直滚动条，用于滚动显示它其无法显示的项。

●三维阴影启用【三维阴影】复选框，工作表中的组合框的外观将以“三维阴影”的样式显示。2．列表框控件

与组合框类似，列表框控件用于在多个项目中做出选择的操作。其不同之处在于，列表框在屏幕上将显示多个项目供选择，如项目太多，列表框将自动在右侧显示垂直滚动条。另外，列表框中的选项可以选中一顶或多项。

列表框控件的设置与组合框控件的设置也非常类似，都是在其【设置控件格式】对话框的【控

制】选项卡中进行的。

首先在工作表中添加【列表框】控件，并在工作表中任选一列输入列表项的值，然后右击【列表框】控件，执行【设置控件格式】命令，打开【设置控件格式】对话框，如图11-13所示。

右击

执行

图11-13 【设置控件格式】对话框

在【控制】选项卡中，【数据源区域】文本框用于设置【列表框】控件的列表项，【单元格链接】用于显示列表项选择后的值。在【选定类型】栏用于设置该控件的选择方式，其中有三个单选按钮分别为：

●单选

指定【列表框】控件中的列表项只能选择一项。【单元格链接】引用的单元格中显示该“列表项”在【列表框】中的位置，值为数值型数字。

●复选

指定在【列表框】控件中能够选择多个列表项，方法为单击列表项来选择，如果单击选择过的列表项，将取消列表项的选择。所选择的列表项可连续的或分散的，这时【单元格链接】引用的单元格中显示的数据始终为0。

●扩展

指定在【列表框】控件中能够选择多个列表项，通过在控件中按下鼠标左键并拖动的方式来选择多个列表项，选择的列表项均为连续的选项，再次选择时，上次的选择将自动取消。选择该选项按钮，【单元格链接】引用的单元格中显示的数据始终为0。