Excel 365工作表VB组合框行隐藏功能实现咨询

操作步骤： #

1. 插入ActiveX组合框

   • 打开Excel 365，切换到「开发工具」选项卡（未显示的话，在Excel选项→自定义功能区里勾选启用）
   • 点击「插入」，选择ActiveX控件组里的「组合框（ComboBox）」，在工作表上绘制合适大小的控件

2. 设置组合框选项

   • 右键点击组合框，选择「属性」
   • 在属性窗口中：
     • 若已关联单元格，在ListFillRange栏填写对应单元格范围（比如A1:A2，假设A1是2 Wheelers、A2是4 Wheelers）
     • 也可直接在List属性里手动输入两个选项，每行一个

3. 编写触发代码

   • 右键点击组合框，选择「查看代码」，打开VBA编辑器
   • 粘贴以下代码（注意替换控件名称）：

Private Sub ComboBox1_Change()
    ' 重置目标行的显示状态
    Rows("5:7").Hidden = False
    Rows("9:11").Hidden = False
    
    ' 根据选择执行隐藏操作
    Select Case Me.ComboBox1.Value
        Case "4 Wheelers"
            Rows("5:7").Hidden = True
        Case "2 Wheelers"
            Rows("9:11").Hidden = True
    End Select
End Sub

关键说明： #

• 代码中的ComboBox1要替换成你实际的组合框名称（在属性窗口的「(名称)」项查看）
• 选项文本必须和代码里的字符串完全匹配（包括空格、大小写）
• 每次选择前先重置行状态，避免多次操作后出现逻辑错误

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