0
私はユーザーフォームを持っており、コンボボックスはオプションを表示したくないと判断しました。ここにuserform初期化コードがあります。Userformはコンボボックスオプションで混乱を初期化します
Private Sub VaporPressureUserForm_Initialize()
OptionButtonKelvin.Value = False
OptionButtonFahrenheit.Value = False
OptionButtonCelsius.Value = False
CheckBoxatm.Value = False
CheckBoxBar.Value = False
CheckBoxmmHg.Value = False
CheckBox.Valuepsia = False
ComboBox1.Clear
With ComboBox1
.AddItem "Methane"
.AddItem "Ethane"
.AddItem "n-Propane"
.AddItem "n-Butane"
.AddItem "n-Pentane"
.AddItem "n-Hexane"
.AddItem "n-Heptane"
.AddItem "n-Octane"
End With
End Sub
しかし、これは機能しません。コンボボックスの名前は正しく指定されており、ユーザーフォーム上の他のボタンはすべて機能しますが、コンボボックスは機能しません。
また、解決策は「前の部分がなくてもUserForm_Initializeを持つようにユーザーフォームを初期化する」と考えている場合、これを実行したときにランタイムエラー '424'が発生し、ユーザーフォームの機能に加えて修正する必要があります。
ご協力いただきありがとうございます。
愚かだ 'ComboBox1.ColumnCount'と' ComboBox1.ColumnWidths'の値は何ですか？ –
（a）UserFormのコードは "Module"ですか？ （b） 'ComboBox1'への参照の前に' Me.'を置いてみてください。 （c） 'CheckBox.Valuepsia = False'という行を過ぎているということは、コードの最初の行に' Option Explicit'がないと思うようになります。私たちにあなたの問題が何であるかのより良い考えを与えるエラーの多く）。 – YowE3K
それはcheckbox.valuepsia = falseだった...私はこの問題を解決しようとしていた時間についてどれほど怒っている。再度、感謝します。 – Derek