如何根据空白单元格禁用按钮

时间:2016-09-15 01:55:38

标签: excel excel-vba vba

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

在excel表中名为" Sheet1"我有一个名为" CommandButton1"分配给名为" if_empty"。

的宏

我需要做的是如果列" F2"是空的我想要禁用按钮但是如果列" F2"在其中有任何值可以启用按钮。

我如何实现这一目标?

非常感谢帮助

1 个答案:

答案 0 :(得分: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