如何根据单元格值调用命令按钮单击事件？

Question

我有一个有许多记录的货件追踪表，每一个记录代表一批货物，在不同的表格中，我有一个“到达通知”模板，带有一个命令按钮，用于更新模板值，并在货物到达时自动发送电子邮件给客户端。

回到表中，"Z“列有到货日期列"AH”作为到达通知。它只能有两个值(发送，发送)。发送未发送通知的货件，并发送已发送的通知

我想要的是:对于每一个只有“发送”值的"AH“单元格，单击后从第二个工作表运行代码CommandButton1_Click，然后将单元格值更改为”发送“。

*我所做的是如下所示，但不起作用

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = Range("AH1").Column Then
Call CommandButton1_Click
Else
Range("AH" & Target.Row).Value = "SENT"
  End If
End Sub

Answer 1

首先，为SelectionChange查找Worksheet事件(这很重要，因为您不能将代码放在任何地方.一定是在那件事上。

然后将此代码粘贴到其中。

If Target.Column = 26 Then ' column Z
  CommandButton1_Click
  Range("AH" & Target.Row).Value = "SENT"
End If

当您完成时，应该如下所示：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 26 Then ' column Z
    CommandButton1_Click
    Range("AH" & Target.Row).Value = "SENT"
  End If
End Sub