Question

着急！求助：excel中怎么用Enable语句让按钮变灰色不可用

例如：编写一个宏如下：
Sub 按钮4_click()
ActiveSheet.Range("A28").Value = ActiveSheet.Range("A27").Value +
End Sub
就是让A28=A27+A26.现在我想让单元格A27和A26为空的情况下，按钮4变灰色不能用，我就这么修改了宏：
Sub 按钮4_click()
ActiveSheet.Range("A28").Value = ActiveSheet.Range("A27").Value + ActiveSheet.Range("A26").Value
If Range("A27") = "" Or Range("A26") = "" Then
按钮4.Enabled = False
Else
按钮4.Enabled = True
End If
End Sub
但是显示出错了，请问大侠错在哪里了，怎么修改啊？
大虾能不能帮我写个全的？我根本不会vba，就是因为工作需要，昨天才开始看的～～～

Answer 1

建议将if....end if代码段放在工作表的change事件内:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A27").Value = "" Or Range("A26").Value = "" Then
按钮4.Enabled = False
Else
按钮4.Enabled = True
End If
End Sub

Answer 2

Private Sub Workbook_Open()

If Range("A27") = "" Or Range("A26") = "" Then
按钮4.Enabled = False
Else
按钮4.Enabled = True
ActiveSheet.Range("A28").Value = ActiveSheet.Range("A27").Value + ActiveSheet.Range("A26").Value
End If
End Sub

1.在ThisWorKbook中添加以上代码.
Sheet首先加载ThisWorKbook中得Workbook_Open()方法.
2.ActiveSheet.Range("A28").Value = ActiveSheet.Range("A27").Value + ActiveSheet.Range("A26").Value
在ActiveSheet.Range("A27").Value = "" 或 ActiveSheet.Range("A26").Value = ""时 相加可能出错.(根据你需要决定位置)