Excel中级联菜单的实现

日期：2007年5月26日作者：查看:[大字体中字体小字体]

　　大家知道，在Excel中可以通过设置数据的有效性来实现类似于网页表单中的下拉菜单功能，这样可以大大地提高数据的录入速度和可靠性。但采用此方法要求下拉菜单中的选项不能过多，否则会影响录入的速度。如果这些选项内容之间可进行分类、分组，那我们就可以用多个下拉选项（即级联菜单）来解决此类问题。下面我们就从一个实例出发，给出在Excel中实现级联菜单的两种方法，希望能给使用Excel进行办公的朋友提供帮助。

　　一、自定义数据的有效性

　　这里有两个工作表，其中Sheet1用来采集客户资料，并将其名称改为“客户数据采集”，在Sheet2的A列中保存了所有的省份， B列中的数据为各省份所属的县市并将工作表名称改为“地区”（假设这里设置了三个省份，即江苏省、浙江省和安徽省）。

　　1．定义单元格区域名称

　　选中“地区”表中江苏省所属县市的单元格区域B2∶B14，依次单击“插入”菜单中的“名称”，选择“定义”，弹出“定义名称”对话框，在“在当前工作簿中的名称”框中输入所定义的名称“江苏”，单击“确定”按钮。类似地，我们可以将浙江省和安徽省所属县市的单元格区域名称分别定义为“浙江”和“安徽”。

　　2．设置数据的有效性

　　切换到“用户数据采集”表中，选择要选择输入省份的D列，单击“数据”菜单中的“有效性”命令，弹出设置“数据有效性”对话框，在有效性条件的“允许”列表中选择“序列”，在“来源”框中输入“江苏,浙江,安徽”（分隔符为英文状态下的逗号），单击“确定”按钮。接下来选中“所属县市”所在的E列，再次打开“数据有效性”对话框，在有效性条件的“允许”列表中选择“序列”，在“来源”框中输入公式“=INDIRECT(D2)”，单击“确定”按钮

　　Cico提示：在关闭设置E列数据有效性对话框时，如系统弹出警告提示“源目前包含错误，是否继续？”，只需确认就可以了。如果指定的D2单元格中已经选择了一个省份再设置E列数据的有效性就不会出现此提示了。

　　3．数据录入

　　录入客户资料时，首先选择客户所在的省份，然后再打开其右侧“所属县市”所在的单元格时，我们就可以从下拉菜单中找到我们所需的选项了。

　　二、用组合框工具实现

　　该方法是借助控件工具箱和VBA代码来实现的。

　　1．设计组合框

　　在工作表Sheet1中我们借助“控件工具箱”设计了录入界面，将工作表名称改为“客户数据采集”，在采集客户的所属地区时我们设计了两个组合框，第一个组合框ComboBox1用来存放省份，第二个组合ComboBox2用来存放对应于第一个组合框的下属的县市。Sheet2（“地区”表）仍保留和原来一样的内容。

　　 Photoshop教程数据结构五笔输入法专题 QQ病毒专题共享上网专题 Google工具和服务专题
　　2．编写组合框事件代码

　　双击“客户数据采集”表中的组合框ComboBox1，进入VBE编辑器，在代码窗口中输入其GotFocus事件代码：

　　Private Sub ComboBox1_GotFocus( )

　　'清除组合框中的数值

　　ComboBox1.Clear

　　ComboBox2.Clear

　　'读出"地区"表A列中的不同省份并将其添加到组合框1中

　　For i = 2 To Sheet2.[a1].End(xlDown).Row

　　target = Sheet2.Cells(i, 1)

　　'利用设置标志位要判断数据是否重复

　　flag = 0

　　For j = 0 To ComboBox1.ListCount - 1

　　If ComboBox1.List(j) = target Then flag = 1

　　Next

　　If flag = 0 Then
[1] [2] 下一页
Excel中级联菜单的实现相关文章：
Excel中级联菜单的实现相关软件

上一篇:Excel工作表中移动行或列

下一篇:在Excel中输入0开头数字

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

Excel中级联菜单的实现

精品推荐

热点TOP10

特别推荐