2016-09-15 64 views
0

我有一个问题。如何根据单元格是否为空来启用/禁用按钮。如何根据空白单元格禁用按钮

在名为“Sheet1”的Excel表格中,我有一个名为“CommandButton1”的按钮,分配给一个名为“If_empty”的宏。

我需要做的是如果列“F2”是空的我想禁用按钮,但如果列“F2”有任何值的按钮被启用。

我该如何做到这一点?

帮助是极大的赞赏

+0

你可以尝试添加一个小参考子,如果(细胞(2,6).value的=“”然后退出子否则Run_Normal_Macro 你可以添加类似的事情,你的现有代码的开始。它不会禁用按钮,但点击它将不会显然做任何事情。 –

+2

我想'CommandButton1.Enabled = [F2]>“”' – Slai

+0

Slai,这是一个好主意,我想按钮不在用户窗体中的工作表上 如果工作表中的activex控件可能在这样的工作表中设置事件控件 Private Sub CommandButton1_MouseDown(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Single,ByVal Y As Single) 如果单元格(2,6)。 VALU e =“”Then Exit Sub 致电宏 End Sub –

回答

0

由于@Slai和Doug建议,使用下面的代码(将其添加到您的Worksheet_Change事件)。

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim WatchRange     As Range 
Dim IntersectRange    As Range 
Dim i, j      As Integer 

Set WatchRange = Range("F2") 

Set IntersectRange = Intersect(Target, WatchRange) 
If Not IntersectRange Is Nothing Then 
    If Target.Value = "" Then 
     CommandButton1.Enabled = False 
    Else 
     CommandButton1.Enabled = True 
    End If 

End If 

End Sub 
相关问题