VBA Excel 组合框

使用VBA Excel 组合框提供了一个方便的方式来交互和管理数据。组合框是一种常见的用户界面元素，允许用户从预定义的选项中选择一个值。本文将介绍如何在 Excel 中使用 VBA 编程语言来创建和操作组合框，并提供一个实际的案例代码来演示其用法。

Sub AddOptions()
    Dim cmbBox As Object
    Set cmbBox = Sheet1.Shapes("ComboBox1").OLEFormat.Object
    cmbBox.AddItem "选项1"
    cmbBox.AddItem "选项2"
    cmbBox.AddItem "选项3"
End Sub

Sub ComboBox1_Change()
    Dim cmbBox As Object
    Set cmbBox = Sheet1.Shapes("ComboBox1").OLEFormat.Object
    MsgBox "您选择了：" & cmbBox.Value
End Sub

Sub FilterData()
    Dim cmbBox As Object
    Dim rngData As Range
    Dim cell As Range
    
    Set cmbBox = Sheet1.Shapes("ComboBox1").OLEFormat.Object
    Set rngData = Sheet1.Range("A2:C10") '假设数据范围为A2:C10
    
    '清除之前的筛选结果
    rngData.AutoFilter
    
    '根据选择的部门进行筛选
    rngData.AutoFilter Field:=2, Criteria1:=cmbBox.Value
    
    '显示筛选结果
    For Each cell In rngData.SpecialCells(xlCellTypeVisible)
        Debug.Print cell.Value
    Next cell
End Sub