Question

我创建了一个重置按钮，该按钮当前清除了我创建的整个VBA表单。但是我希望清除整个表单并将名为 cbo_deptCode 的下拉列表的值设置为“CO - Computer Science”。我将如何完成这项工作？

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

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

Answer 1

为什么不添加：

cbo_deptCode.Value = "CO - Computer Science"

你的循环之后？

重置表单，但将单个字段设置为某个值

1 个答案: