EXCEL制作过程中，下拉菜单会常常被用到。默认只显示一级菜单，在其下面显示与这个菜单相应的子菜单的内容，利用worksheet的change事件、offset函数、match函数组成的简单代码，就能轻松实现，是净利润效果如下图：
制作方法如下：
1、首先，构造子菜单及与之相关的内容。如在A1单元格输入一个子菜单，在A2:A7输入点击这个子菜单后需要显示的内容；在B1单元格输入另一个子菜单，在B2:B3输入与这个子菜单相关的内容；其他，依此类推（图2）。
2、接下来，选择公式选项卡，点击名称管理器，在弹出的窗口中点击新建，在弹出窗口的名称处输入日系，引用位置处选择A2:A7。新建名称韩系，引用位置处选择B2:B3，依此类推；新建名称临时选择，引用位置处选择G1；新建名称提取，引用位置处选择I1:L1（图3）。
3、接着，选中G1单元格，选择数据选项卡，点击数据验证，在弹出窗口的设置选项卡验证条件的允许处选择序列，来源处选择A1:D1，这样在G1单元格就建立了下拉菜单。
选择开发工具选项卡，点击Visual Basic，在编辑窗口中，点击插入→模块，在右侧窗口输入如图所示的几行代码（图4）。
双击Sheet1，在右侧编辑窗口输入如下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call ss
Application.EnableEvents = True
End Sub
小提示：如果窗口中没有开发工具选项卡，可以点击文件→选项，在弹出窗口中勾选开发工具就可以了。
最后，再选中G1单元格，设置好它的字体、字号等，点击文件→另存为，在弹出窗口的文件类型处选择Excel 启用宏的工作簿（*.xlsm），进行保存就可以了。
本文来自互联网或AI生成，不代表系统内阁立场。本站不负任何法律责任。
