VBA 复选框附加代码答案

【问题标题】：VBA Checkbox Additional codeVBA 复选框附加代码
【发布时间】：2016-02-11 15:15:42
【问题描述】：

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

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

我想知道是否可以向它添加代码，这样每当有人检查它时，某些单元格就会得到当前日期，例如：

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

干杯！

【问题讨论】：

只需将执行所需操作的宏的名称分配给它的OnAction 属性
谢谢，只是我在找，不知道有这个嵌入。

标签： vba excel checkbox

【解决方案1】：

正如@Rory 提到的，答案是：

添加 ".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

【讨论】：