Excel设置多级下拉菜单教学设计.docxVIP

《Excel 设置多级下拉菜单》教学设计 教学目标： 知识与技能 掌握 1 级、2 级下拉菜单的设置步骤，举一反三来设置多级下拉菜单的步骤并且理解如何撰写 3 级下拉菜单的代码。 过程与方法 利用案例来演示设置下拉菜单的方法，让学生掌握其步骤。 情感态度价值观 通过本节课的案例演示，学生掌握到了实际的操作方法，并运用在生活中， 培养了学生的信息技术技能。 教学重点：实现多级下拉菜单的步骤教学难点：实现多级下拉菜单的代码教学方法：讲授法 教学手段：录屏教学课型：微课 教学活动： 在平时工作学习中，经常会用到 Excel 的下拉菜单功能，这一功能的实现方法也较为简单。但是，如果遇到需要使用二级下拉菜单或多级下拉菜单的情况，就会比较棘手。 实现二级下拉菜单的方法也有很多，本文为大家介绍一种，供大家参考， 我们将以下面的表格为例来展开。 首先，我们需要做一些准备工作：对每一个项目建立一个名称索引。第一级下拉菜单的内容，选中商品类别，然后在左上角的名称位置，将名称改为我们自定义的名称“商品类别”， 记得按回车确定。 接下来选中二级下拉菜单的项，同样在左上角自定义它的名称，名称 要对应商品类别中的项。将剩余家用电器、电脑办公的项也设置好。 然后是三级菜单的项，自定义每一个小项的名称。名称要跟二级菜单中的项对应。 4、好，准备工作完成。现在设置一级菜单。选中 B5 单元格，打开数据- 数据有效性。 在弹出的对话框中，“允许”选择 序列，“来源”中输入“=商品类别”，商品类别即我们之前自定义的名称，最后确定。 这时我们看到，商品栏下可以通过下拉菜单选择内容了。 接下来要设置每一项商品的二级下拉菜单。 选中 C5 单元格， 打开数据有效性， 选择序列， 来源里输入“=INDIRECT(B5)” （indirect 函数的含义引用，并显示其内容），然后确定。这样，C5 单元格的内容就会根据 B5 的内容去索引自定义的名称来显示。 根据上一步的同样的方式，设置品牌下的下拉菜单，注意数据有效性“来源”中输入“=INDIRECT(C5)”。最终效果如下： 到现在，三级下拉菜单就设置完成了。多级下拉菜单的原理是一样的。 但是，有一个问题，当我们修改前一级下拉菜单时，很容易由于疏忽，导致下级与前一级类型不符。 这时，我们希望每种类别能有一个默认的选项，会随着第一级下拉菜单变化时，自动填充。这种要求救只能通过 EXCEL VBA 来实现了。在sheet1 上右击，点击查看代码。 在代码窗内，输入以下代码： Private Sub Worksheet_Change(ByVal Target As Range) ‘当工作表变化时If Target.Row = 5 And Target.Column = 2 Then ‘如果变化的目标是 B5（第 5 行，第 2 列），下边用 if 语句为每一项设置默认值 If Range(B5) = 手机数码 Then Range(C5) = Range(F6) ElseIf Range(B5) = 家用电器 Then Range(C5) = Range(I6) ElseIf Range(B5) = 电脑办公 Then Range(C5) = Range(K6) End If End If If Target.Row = 5 And Target.Column = 3 Then ‘如果变化的目标是 C5（第 5 行，第 3 列），下边用case 语句设置默认值（采用 if 还 是case，请灵活掌握） Select Case Range(C5) Case 手机 Range(D5) = Range(F7) Case 存储卡 Range(D5) = Range(G7) Case 移 动 电 源 Range(D5) = Range(H7) Case 微波炉 Range(D5) = Range(I7) Case 空调 Range(D5) = Range(J7) Case 平板 Range(D5) = Range(K7) Case 笔记本 Range(D5) = Range(L7) End Select End If End Sub