UserForm中ComboBox未显示指定预设值：代码问题排查求助

你的代码存在几个关键问题，导致ComboBox看不到选项：

• 未触发UserForm显示：你仅给ComboBox添加了选项，但从未调用UserForm1.Show打开窗体。窗体都没加载，自然看不到里面的控件和选项。
• 选项添加时机错误：在普通标准模块的Status过程里直接操作UserForm控件，不符合VBA窗体开发的规范逻辑。正确的做法是把填充选项的代码放到UserForm的Initialize事件中，让窗体加载时自动完成选项初始化。
• 逻辑顺序不合理：添加选项后立刻检查ListIndex，此时用户完全没有选择的机会，ListIndex必然为-1，写入单元格的代码根本不会执行。

修正方案1：规范的窗体初始化逻辑（推荐） #

1. 双击UserForm1打开其代码模块
2. 左侧下拉框选择UserForm，右侧下拉框选择Initialize，添加如下代码：

Private Sub UserForm_Initialize()
    ' 窗体加载时自动填充ComboBox选项
    Me.ComboBox1.AddItem "Forbruger"
    Me.ComboBox1.AddItem "Erhverv"
    Me.ComboBox1.AddItem "Offentlig"
End Sub

3. 在标准模块中编写调用窗体的代码：

Sub ShowStatusForm()
    UserForm1.Show vbModal ' 以模态方式显示窗体，强制用户操作后再返回
End Sub

修正方案2：调整原过程逻辑（仅作参考） #

如果一定要在原Status过程中处理，需要补充显示窗体的步骤，等待用户选择后再获取值：

Sub Status()
    Dim valgtData As String

    ' 先显示窗体让用户选择
    UserForm1.Show vbModal
    
    ' 用户关闭窗体后，检查是否有选中项
    If UserForm1.ComboBox1.ListIndex <> -1 Then
        valgtData = UserForm1.ComboBox1.Value
        ActiveSheet.Range("A20").Value = valgtData
    End If
    
    ' 释放窗体资源
    Unload UserForm1
End Sub

' 同时需要在UserForm的Initialize事件中添加选项（同方案1的初始化代码）

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