0

我创建了一个重置​​按钮，该按钮当前清除了我创建的整个 VBA 表单。但是，我希望它清除整个表单并将名为cbo_deptCode的下拉列表的值设置为“CO - 计算机科学”。我将如何实现这一目标？

到目前为止，这是我的代码：

Private Sub btn_Reset_Click()

    ' Reset form
    Dim ctl As MSForms.Control
    For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                ctl.Text = ""
            Case "CheckBox", "OptionButton", "ToggleButton"
                ctl.Value = False
            Case "ComboBox", "ListBox"
                ctl.ListIndex = -1
        End Select
    Next ctl

End Sub
4

1 回答 1

1

为什么不添加：

cbo_deptCode.Value = "CO - Computer Science"

在你的循环之后？

于 2012-10-18T10:07:13.853 回答