Excel VBA：如何根据ActiveX组合框选择显示/隐藏分组

该需求可直接通过VBA实现，你原有代码未生效是三类问题导致的：

• 事件名错误：ActiveX组合框的选中值变更事件固定为ComboBox1_Change，你多加了_2后缀，事件过程不会被系统触发
• 语法结构不完整：Select Case块缺少对应的End Select结束标记，With块闭合位置错误，还存在无匹配If的孤立End If语句，运行会直接抛出编译错误
• 逻辑不符合需求：原有逻辑是选到2021-2022时反转group_1的显隐状态，而非固定显示group_1，也未覆盖第二个选项对应group_2的显隐规则

正确实现代码 #

进入工作表设计模式，双击组合框进入对应工作表的代码编辑界面，删除原有错误代码，粘贴以下内容：

Private Sub ComboBox1_Change()
    ' 先将两个分组统一设置为隐藏状态
    Me.Shapes("group_1").Visible = False
    Me.Shapes("group_2").Visible = False
    
    ' 根据组合框选中值显示对应分组
    Select Case ComboBox1.Value
        Case "2021-2022"
            Me.Shapes("group_1").Visible = True
        Case "2022-2023"
            Me.Shapes("group_2").Visible = True
    End Select
End Sub

配置注意事项 #

• 上述代码必须放在组合框所在的工作表模块内，不要放在公共标准模块中，否则事件无法正常触发
• 若你修改过组合框的默认名称，请将代码中ComboBox1替换为你实际使用的控件名称
• 确认工作表中两个分组的命名和代码内的group_1、group_2完全一致，可通过Excel「选择窗格」核对形状名称
• 组合框的下拉选项文本要和代码中判断的文本完全匹配，避免存在前后多余空格导致匹配失败

内容的提问来源于stack exchange，提问作者Luke