在excel中设置下拉菜单很简单,直接用数据有效性-序列就可以实现。 今天我们介绍的下拉菜单:
制作步骤: 一、 生成多列下拉列表 1、添加辅助列,用&把两列连接起来
1、在工作表标签上右键 - 查看代码 - 点击新打开窗口中右上角的sheet1(当前生成下拉菜单的工作表名称),然后把下面的代码粘贴到右侧的窗口中(不需要此功能时删除代码保存即可) Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Row > 1 And Target.Column = 5 And Target <> '' Then '1 表示下拉列表从1行下面开始, 5 是下拉列表所在的列数 Application.EnableEvents = False Target = Split(Target, ' ')(0) '显示第1列用0,第2列用1,以此类推 Application.EnableEvents = True End If End Sub 2、当前文件另存为“Excel 启用宏的工作簿' (2003版此步忽略) 完工!下面用动画展示我们的成果吧! 选取后显示第一列内容
通过修改代码(把0改为1),选取后显示第二列内容 兰色说:今天VBA又露脸了。在excel中VBA就是这么牛,一般函数和功能实现不了的,它就可以帮你实现。 |
|