VBA 复选框附加代码

Question

如果可以将另一个事件添加到VBA Excel中的复选框中，我正在徘徊。我创建了一个这样的复选框：

ActiveSheet.CheckBoxes.Add(.Left, .Top,.Width, .Height).Select
With Selection
    .Caption = ""
    .LinkedCell = "AN2"
    .Value = xlOn
End With

我想知道我是否可以向其添加代码，以便每当有人检查它时，某个单元格都会获得当前日期，例如：

Cells(1,"A").Now()

干杯！

Answer 1

正如@Rory所提到的，answear 是：

加上".OnAction ="宏的名称"，然后您可以编写一个响应单击的宏：

With Selection
    .Caption = ""
    .LinkedCell = "AN2"
    .Value = xlOff
    .OnAction = "DateClicked"
End With
Function DateClicked()
    If Cells(2,"AN") = "TRUE" Then
        Cells(2,"A") = Now()
    Else 
        Cells(2,"A") = ""
    End If
End Function