Excel中制作多列显示的下拉列表

《Excel中制作下拉列表》介绍了利用数据有效性的序列功能，在Excel中制作一级和多级级联下拉列表的方法。

《Excel中制作自动缩小选择范围的下拉列表》介绍了根据输入内容自动缩小选择范围的下拉列表制作方法，使数据录入时选择更精准、更方便。

在实际应用中，经常遇到需要选择编码作为关键字的信息，譬如项目编号。如果下拉列表中仅仅显示项目编号，很难清晰知道自己要选择的项目，如能在下拉列表中把项目名称也同时显示出来，相信就很好做选择了。

接下来，就介绍多列显示下拉列表的制作方法，以及选中数据后的多列数据显示问题的解决办法。

基本思路大致如下：

[1] 增加辅助列，存放下拉列表中需要显示的多列数据；

[2] 以辅助列数据作为下拉列表的数据源；

[3] 编写代码处理选中数据的显示问题；

接下来具体介绍制作方法：

[1] 增加辅助列

在E列增加辅助列，公式如下：

=A2 & ':' & B2 & ':' & C2

[2] 设置下拉列表的数据源

在A12:A19数据输入区域，设置下拉列表

数据源：辅助列(=$E$2:$E$9)

[3] 添加代码显示选中的数据

在输入数据的工作表标签上点右键菜单中的“查看代码 ”，把下面的代码粘贴到右侧的代码窗口中。

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    If Target.Row >= 12 And Target.Column = 1 And Target <> '' Then

    '确保只对下拉列表列做处理

    

        Application.EnableEvents = False

        

        datas = Split(Target, ':')

       '分别在A/B/C列显示项目编号、项目名称、项目优先级

        Cells(Target.Row, Target.Column) = datas(0)

        Cells(Target.Row, Target.Column 1) = datas(1)

        Cells(Target.Row, Target.Column 2) = datas(2)

        

        Application.EnableEvents = True

    End If

End Sub

[4] 实际操作

选中上图中P20180303后显示如13行所示：

特别提示：

由于需要运行代码，文件类型必须是【Excel 启用宏的工作簿】或【Excel二进制工作簿】，同时需要启用宏。否则，下拉列表选中数据项后，无法正常显示相关列的数据。