Forms Excel表单VBA组合框重置

这应该很容易，但我似乎找不到任何解决办法。我有一个表格在Excel中使用VBA。Excel工作表有四列数据填充，表单显示这些字段

然后，用户在组合框中选择一个值，使用命令按钮提交响应，并将组合框中的值写入Excel工作表

然后用户使用命令按钮在电子表格中向下推进一行，并从新行加载四个值。这一切都很好

我试图解决的问题是，组合框保持选中状态，与先前选择中的值相同。我想重置组合框，这样就不会选择任何内容，用户必须再次为下一行进行选择

下面是我用来加载组合框并为用户选择的内容设置变量的代码。在用户提交表单后，似乎无法将组合框恢复到默认状态

Private Sub cbDesAccWanted_Change()
    Select Case cbDesAccWanted.Text
        Case "Yes"
            desacc = "Yes"
        Case "No"
            desacc = "No"
    End Select
    cbDesAccWanted.Text = desacc
End Sub

Private Sub cbDesAccWanted_DropButtonClick()
    cbDesAccWanted.List = Array("Yes", "No")
End Sub

---

有两种方法可以重置组合框。请选择：

1. 2. 线路

cbdesacccwanted.Text=desacc

完全没有必要

使用CBDESACCU DropButton单击不是填充值列表的正确位置。此列表应在表单首次显示给用户时设置。 （取消对其显示的值的设置，在这种情况下，当行发生更改或其他事情时更改它，而不是当用户单击它时更改它）

因此，当用户单击向下箭头移动到下一条记录时，请包含以下行

Me.cbDesAccWanted.text = Me.cbDesAccWanted.List(1) 

注（1）访问列表中的第二项，即第

因此，这会将其重置为默认值No

---

好。

类似于

cbDesAccWanted.ListIndex=-1的解决方案是否有效？@JoeDion这些解决方案在您的场景中是否有效？
cbDesAccWanted.ListIndex = -1

Me.cbDesAccWanted.text = Me.cbDesAccWanted.List(1)