如何更简洁地获取表单控件ComboBox的选中值

1. 缓存控件对象减少重复调用 #

你当前的代码重复访问了两次ws.Shapes("ComboBox1").ControlFormat，可以先把这个对象存到变量里，代码更简洁，也更高效：

Dim cbCtrl As ControlFormat
Set cbCtrl = ws.Shapes("ComboBox1").ControlFormat
Dim selectedVal As Variant
selectedVal = cbCtrl.List(cbCtrl.ListIndex)

2. 直接使用Value属性（最简洁方案） #

表单控件类型的ComboBox自带Value属性，能直接返回当前选中的内容，完全不用借助List和ListIndex：

Dim selectedVal As Variant
selectedVal = ws.Shapes("ComboBox1").ControlFormat.Value

小提醒：如果ComboBox没有选中任何选项，Value会返回Null，使用前可以加个判断，比如If Not IsNull(selectedVal) Then 执行后续操作

3. 批量处理多个ComboBox的小技巧 #

如果你要处理工作表里的多个表单控件ComboBox，可以用循环遍历，避免重复写代码：

Dim shp As Shape
Dim selectedVals As Collection
Set selectedVals = New Collection

For Each shp In ws.Shapes
    ' 判断是否是表单控件类型的下拉框（ComboBox）
    If shp.Type = msoFormControl And shp.FormControlType = xlDropDown Then
        selectedVals.Add shp.ControlFormat.Value, shp.Name
    End If
Next shp

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