未自动满足条件后命令按钮未重新启用

Question

我创建了一个命令按钮并使用 if 条件编写了一个小代码来匹配我的条件。如果它们是单元格/范围中的任何值，它的工作正常，它根据代码“要求输入数据”并且如果它们是任何值“说数据已经输入”并禁用按钮（我到底想要什么）。

但是，当我将数据/值重新输入这些单元格时，它不会自动重新启用按钮。我必须手动转到属性才能启用它，我不想每次都这样做。

下面是我的代码"

Private Sub RESET_Click()
If Range("A10").Value = "" Then
  Reset.Enabled = False
  MsgBox "Data has already updated for this period"
Else
  Reset.Enabled = True
  MsgBox "Please, enter the data"
End If
End Sub

即使在我在 else 条件下列出 True 之后，它也不会重新启用按钮。

如果他们是这样的话，请告诉我。因此，我可以使用 VBA 在每月 1 日自动重置/重新启用此按钮。

感谢您的回复。

谢谢

Answer 1

您的代码似乎是由按下按钮触发的。这样，一旦满足if 语句的第一个条件，按钮就会被禁用并且不再运行其代码。

也许您想要的是在单元格更改时重新启用按钮。因此，将您的子设置为公开后，将此代码放在工作表上：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("A10")) Is Nothing Then call RESET_click
End Sub

编辑：

也许您还必须 set 主 sub 内的按钮对象：

Set Reset = yourworksheet.Buttons("yourbuttonname")

我还建议不要在 VBA 中使用 Reset 作为名称，因为它已经是一个语句，可能会引起混淆。