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 に答える