写在Worksheet_Change事件里,如果写在Worksheet_SelectionChange,会有个bug,比如往E1里输入不符合要求的内容,然后直接按保存,这是不会触发Worksheet_SelectionChange事件,然后再按按钮就会出错。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1, r2, r3
r1 = Range("e1").Value
r2 = Range("e2").Value
r3 = Range("e3").Value
CommandButton1.Enabled = False
If r1 <> "" And r2 <> "" And r3 <> "" And IsNumeric(r1) And IsNumeric(r2) And IsNumeric(r3) Then
CommandButton1.Enabled = True
End If
End Sub
晕,CommandButton1_Click().Enable = False
按钮名不可能是CommandButton1_Click()的吧,你是按钮事件中直接复制过来的吧,把点击事件整个复制过来了,把后面的_Click()去掉吧,CommandButton1.Enable = False
在窗体中写就直接
CommandButton1.Enabled = False
如果你的按钮在工作表中
Sheets("首页").CommandButton1.Enable = False
不理解,sheet1.CommandButton1.enabled=false不行吗? 注意是ActiveX control控件,不是宏控件