当前位置：首页 > 行业动态 > 正文

Excel如何制作下拉菜单并自动填充数据库数据？

admin
行业动态
2025-05-03
4890

在Excel中使用数据验证功能创建下拉选项：先将数据库内容整理为列表，选中目标单元格，点击“数据”-“数据验证”，选择“序列”并引用数据库范围，即可通过下拉菜单自动填充数据，若数据库更新，下拉选项将同步调整。

基础设置：创建下拉选项

步骤1：准备基础数据表

新建工作表命名为「数据库」，输入基础数据（示例）：
| 产品编号 | 产品名称 | 单价 | 库存 |
|———-|———-|——|——|
| A001 | 笔记本 | 15 | 200 |
| A002 | 钢笔 | 8 | 150 |

步骤2：定义下拉菜单

Excel如何制作下拉菜单并自动填充数据库数据？第1张

切换到需要设置下拉选项的工作表（如「订单表」）
选中目标单元格（如B2）→ 点击「数据」选项卡 → 选择「数据验证」
在「允许」中选择「序列」→ 来源框输入 =数据库!$B$2:$B$3（即产品名称列）

自动填充关联数据

步骤1：使用VLOOKUP函数匹配数据

在「订单表」的C2单元格输入公式：
```
=VLOOKUP(B2,数据库!$B$2:$D$3,2,FALSE)
```
- B2：下拉菜单所在单元格
- 数据库!$B$2:$D$3：匹配范围需包含产品名称和单价列
- 2：返回第2列（单价）

步骤2：扩展公式范围

拖动填充柄将公式复制到下方单元格
使用快捷键 Ctrl + T 将区域转换为智能表格，实现动态扩展

高级技巧：动态数据源

方法1：定义名称管理器

点击「公式」→「定义名称」
输入名称（如「产品列表」）→引用位置输入：
```
=OFFSET(数据库!$B$2,0,0,COUNTA(数据库!$B:$B)-1,1)
```
将数据验证的来源改为 =产品列表

方法2：结合Power Query（2016+版本）

将数据库表导入Power Query
设置「加载到数据模型」并启用自动刷新
通过「数据」→「现有连接」调用动态数据集

自动化进阶：VBA实现

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
        Dim key As String
        key = Target.Value
        With Worksheets("数据库")
            Target.Offset(0, 1).Value = Application.VLookup(key, .Range("B2:D100"), 2, 0)
            Target.Offset(0, 2).Value = Application.VLookup(key, .Range("B2:D100"), 3, 0)
        End With
    End If
End Sub

注意：需在VBA编辑器中设置代码触发区域