如何启用/禁用基于vba条件/文本更改的button？

我正在自动化一些帐户的细节，我不希望他们增加双倍。 为此，我需要限制button单击事件一次，以便它们不被添加两次或三次。 我怎样才能限制一个button点击事件，否则，如果我改变任何金额我想要button更新。 请任何帮助。

commandbutton1.enable = true commandbutton1.enable = false 

这是行得通的，但是当我的帐户值在单元格中更改时，我想要button。

Answer 1

您可以使用Worksheet_Change事件重新启用该button

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

如果您只想在某个单元格更改时启用该button，请按如下所示进行操作：

 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