嗨，Jan！当然可以实现这个实时更新的需求，这在VBA用户窗体开发里是非常常见的场景，我来给你拆解清楚怎么做：

核心思路 #

要实现下拉菜单选择变化时自动更新其他字段，关键是要用到下拉控件的**Change事件**——这个事件会在用户修改下拉选项的瞬间自动触发，我们只需要在这个事件里编写对应字段的更新逻辑就行。

具体实现步骤 #

1. 打开你的用户窗体代码窗口：右键点击窗体空白处，选择「查看代码」。
2. 在代码窗口的左侧下拉列表中选择你的下拉控件名称sourceDropDown，右侧下拉列表选择Change，这时会自动生成sourceDropDown_Change的事件框架。
3. 在这个事件里编写判断逻辑，根据下拉选项更新orderQuantity的值：

Private Sub sourceDropDown_Change()
    ' 根据下拉选项实时更新订单数量
    Select Case sourceDropDown.Value
        Case "A"
            orderQuantity.Value = 1
        Case "B"
            orderQuantity.Value = 2
        ' 可以继续添加更多选项的对应规则
        Case Else
            ' 若选择了未定义的选项，可设置默认值或清空
            orderQuantity.Value = "" ' 也可以设为0，根据你的业务需求调整
    End Select
End Sub

额外优化建议 #

如果你的findQuantity函数本身就可以根据下拉选项返回对应数值，那可以把逻辑写得更灵活，不用硬编码每个选项的值：

Private Sub sourceDropDown_Change()
    ' 假设findQuantity可以接收下拉选项作为参数返回对应数量
    orderQuantity.Value = findQuantity(sourceDropDown.Value)
End Sub

注意事项 #

• 确保控件名称完全匹配：你的下拉控件确实叫sourceDropDown，数量输入框叫orderQuantity，名称写错会导致事件无法触发或找不到控件。
• 初始化时的预填值不会受影响：你在UserForm_Initialize里设置的orderQuantity.value = orderQty会作为初始值，用户修改下拉选项后会自动覆盖这个值。

备注：内容来源于stack exchange，提问作者Jan V