重置表單，但將單個字段設置爲特定值

我創建了一個重置按鈕，它目前清除了我創建的整個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

來源

2012-10-18 methuselah

爲什麼不只是添加：

cbo_deptCode.Value = "CO - Computer Science"

你的循環之後？

來源

2012-10-18 10:07:13 SWa

我得到運行時錯誤'380' – methuselah

我輸入'cbo_deptCode =「CO - Computer Science」'現在可以工作。感謝您指點我正確的方向。 – methuselah

組合框的具體屬性是什麼？你有MatchEntry設置爲true，如果是的話，是列表中的文本？你是否將它設置爲僅列表模式？您在變更事件中是否有可能觸發的任何代碼？ – SWa

重置表單，但將單個字段設置爲特定值

回答

相關問題