【发布时间】:2016-11-26 07:21:05
【问题描述】:
所以我有一个用户表单,并且组合框决定它不想显示选项。这是用户窗体初始化代码。
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) 代码是在用户窗体中,还是在“模块”中? (b) 尝试将
Me.放在对ComboBox1的引用之前。 (c) 你越过了一条写着CheckBox.Valuepsia = False的行,这让我觉得你的代码的第一行没有Option Explicit- 请把它放在那里(它会突出显示很多错误,这将让我们更好地了解您的问题是什么)。 -
它是 checkbox.valuepsia = false...我对我花了多少时间试图解决这个问题感到非常生气。再次感谢。
标签: excel combobox userform vba