EP06. “Dependent Combo Boxes 联动组合框”

首页 › Microsoft 工具 › Excel · VBA · Userform · EP06

约 5 分钟· #EP06#Excel#Userform

讲怎么在 Userform 上做出「选了第一个下拉选单的选项，第二个下拉选单的内容跟着变」的联动效果
跟 02_Basics/07_Data Validation/EP06（工作表上的联动下拉列表）是同样的需求，这里改用 Userform 的 ComboBox 事件实现
前置知识：Select Case 判断式

重点内容

适用版本

桌面版通用（Excel 365 / 2021 / 2019 等）。

初始化第一个组合框的选项

Private Sub UserForm_Initialize()
  With ComboBox1
    .AddItem "Animals"
    .AddItem "Sports"
    .AddItem "Food"
  End With
End Sub

第一个组合框改变时，联动填充第二个

Private Sub ComboBox1_Change()
  Dim index As Integer
  index = ComboBox1.ListIndex
  ComboBox2.Clear
  Select Case index
    Case Is = 0
      With ComboBox2
        .AddItem "Dog"
        .AddItem "Cat"
        .AddItem "Horse"
      End With
    Case Is = 1
      With ComboBox2
        .AddItem "Tennis"
        .AddItem "Swimming"
        .AddItem "Basketball"
      End With
    Case Is = 2
      With ComboBox2
        .AddItem "Pancakes"
        .AddItem "Pizza"
        .AddItem "Chinese"
      End With
  End Select
End Sub

确认按钮：把结果写进工作表

Private Sub CommandButton1_Click()
  Range("A1").Value = ComboBox2.Value
End Sub

逻辑说明

ComboBox1_Change 事件在使用者改变第一个下拉选单时自动触发
每次触发都先 ComboBox2.Clear 清空第二个选单，再用 Select Case 依照 ListIndex（选中项目的编号，从 0 开始）决定要填哪一组新选项

[截图：第一个组合框选了 "Animals" 后，第二个组合框自动更新成 Dog、Cat、Horse 这组选项的效果]

学完你会

✅ 用 ComboBox1_Change 事件侦测第一个下拉选单的变化
✅ 用 Select Case + ListIndex 决定第二个选单该填哪组选项
✅ 知道联动前要先 Clear 掉旧选项，避免新旧混在一起

常见错误

忘记先 ComboBox2.Clear，切换第一个选单后，第二个选单的旧选项还残留在清单里，新旧混在一起
Select Case 的编号（Case Is = 0/1/2）跟 AddItem 加入的顺序对不上，选到不对应的分类
把逻辑写在 ComboBox1_Click 而不是 ComboBox1_Change，用键盘切换选项时不会触发联动

Sources

Blog / Website：

Dependent Combo Boxes