Excel VBA 窗体Combobox预选中后点击按钮取值返回空问题

这是VBA用户窗体Combobox控件的已知隐性特性：当连续为多个未绑定数据源的Combobox直接赋值Value属性时，前一个控件的Value内部缓存会被后续的赋值操作覆盖，界面虽然会正常显示预选中的内容，但内存中存储的Value属性不会被正确持久化。
观察到的「过程排布顺序影响返回结果」的现象，是因为VBA模块内的过程编译顺序会影响控件的内部属性注册优先级，排在后面的过程关联的控件赋值会保留，排在前面的会被清空。

推荐优先用ListIndex属性实现预选中，这是最稳定的实现方式，修改后的初始化代码如下：

Private Sub UserForm_Initialize()
    Dim book As Workbook
    Dim i As Long
    ' 填充下拉选项
    For Each book In Workbooks
        pricing.AddItem book.Name
        costReport.AddItem book.Name
    Next

    ' 遍历选项索引匹配目标名称，通过ListIndex完成选中
    For i = 0 To pricing.ListCount - 1
        If InStr(1, pricing.List(i), "pricing", 1) > 0 Then
            pricing.ListIndex = i
        End If
        If InStr(1, costReport.List(i), "cost", 1) > 0 Then
            costReport.ListIndex = i
        End If
    Next
End Sub

如果不想修改选中逻辑，也可以在每次赋值Value后加DoEvents强制刷新控件缓存即可生效：

' 预选中逻辑修改为如下即可
For Each book In Workbooks
    If InStr(1, book.Name, "pricing", 1) > 0 Then
        pricing.Value = book.Name
        DoEvents
    End If
    If InStr(1, book.Name, "cost", 1) > 0 Then
        costReport.Value = book.Name
        DoEvents
    End If
Next

两种方案都可以解决预选中后Value返回空的问题，无需手动重新选择选项。

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