Userform使用组合框选项初始化混乱

时间:2016-11-25 04:25:00

标签: excel-vba combobox userform vba excel

所以我有一个用户表单,组合框已决定它不想显示选项。这是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初始化更改为只有UserForm_Initialize而没有开始部分",当我之前执行此操作时,我会收到运行时错误' 424'并且需要一个对象,以便除了userform工作之外还必须修复问题。

提前感谢您的帮助!

1 个答案:

答案 0 :(得分:0)

问题是我有CheckBox.Valuepsia而不是CheckBoxpsia.value ...我很笨