激活表单button受某些条件的限制

我正在使用两个combobox和一个button的窗体。 我希望button最初被禁用，只有当用户在两个combobox中select一个有效值时，它才会启用。

我试图禁用使用窗体初始化子例程的button，但button似乎是活动的。 可能是什么问题？ 另外如何启用button使用条件？

Private Sub UserForm1_Initialize() Me.Shapes("ButtonName1").ControlFormat.Enabled = False ActiveSheet.Shapes("ButtonName1").Font.ColorIndex = 16 End Sub 

Answer 1

你在代码中犯了一些错误。

• UserForm1_Initialize应该是UserForm_Initialize
• 您可以使用Userform.ButtonName1来访问您的button的属性
• 使用TextFrame.Characters.Font.ColorIndex来访问工作表上button上的文本

---

下面的代码应该工作

 Private Sub UserForm_Initialize() UserForm1.ButtonName1.Enabled = False ActiveSheet.Shapes("ButtonName1").TextFrame.Characters.Font.ColorIndex = 16 End Sub