如何基于vba中的条件/文本更改来启用/禁用按钮？

Question

我正在自动化一些帐户详细信息，我不希望他们添加双倍。 为此，我需要将按钮单击事件限制为一次，以便它们不会被添加两次或三次。 如何限制按钮单击事件，否则如果我更改任何金额我想要按钮更新。 对此有任何帮助。

commandbutton1.enable = true 
commandbutton1.enable = false 

这是行得通的，但我希望按钮回来，当我的帐户值在单元格中变化时。

Answer 1

可以使用Worksheet_Change事件重新启用按钮

Private Sub Worksheet_Change(ByVal Target As Range) 
commandbutton1.Enabled = True 
End Sub 

如果只想当某小区改变要启用的按钮，像这样做：

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = "$A$1" Then 'Adjust this Cell Address 
    commandbutton1.Enabled = True 
End If 
End Sub 

如果你想检查多个单元，你可以这样做：

Dim testRange As Range 

Set testRange = Range("A1,B3:B10,D5") 

If Not Intersect(Target, testRange) Is Nothing Then 

    'Do something 
    Debug.Print "Target Cell in testRange" 
End If 

要检查如果改变细胞是在某一行：

If Target.Row = 2 Then 

对于列：

If Target.Column = 1 Then